XProfan

die Oekowelle rollt
by Karl-Heinz Rattay / 2009
einfach ausprobieren
Wems gefällt der kann ja einen screensaver draus machen!
Dieses Modul ist einfach so wie es ist. Wems nicht gefällt, der kann umstricken!!
declare Zaehler&

proc zeichne

    parameters c&,hpos%,vpos%, size%
    usepen   0,(size%/5),c&
    useBrush 0,c&
    ellipse (hpos%-(Size%/1.5)),(vpos%-(Size%/1.5)) - (hpos%+(Size%/1.5)),(vpos%+(Size%/1.5))
    ellipse ((hpos%+size%*2.0)-(Size%/1.5)),(vpos%-(Size%/1.5)) - ((hpos%+size%*2.0)+(Size%/1.5)),(vpos%+(Size%/1.5))
    usepen   0,(size%/8),c&
    moveto hpos%,vpos%
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1.05))
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*0.95) + (size%/6))
    lineto (hpos%+(size%*1.1))  , vpos%
    moveto (hpos%+(size%/4)),(vpos% - (Size%*1.3))
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1.3))
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1))
    lineto (hpos%+(size%*1.1))  , vpos%
    lineto (hpos%+(size%*2))  , vpos%
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*1) + (size%/6))
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*1) -(size%/7))
    moveto (hpos%+(size%*1.7)-(size%/5))   , (vpos% - (Size%*1.1) -(size%/8))
    lineto (hpos%+(size%*1.7)+(size%/5))   , (vpos% - (Size%*1.1) -(size%/8))
    moveto (hpos%+(size%*1.1))  , (vpos%-(size%*0.3))
    lineto (hpos%+(size%*1.1))  , (vpos%+(size%*0.3))

Endproc

cls
showmax

whilenot 0

    inc zaehler&

    if zaehler& > 80

        zeichne  @rgb( @rnd(255),@rnd(255),@rnd(255) ) ,
        ((%maxx*0.6) + @rnd(%maxx/4)) ,
        (100+@rnd(@rnd(%maxy*0.85))) ,
        (15+@rnd(40))
        zaehler& = 1

    endif

    copyBmp 1,0 - %maxx,%maxy > 0,0;0

endwhile

die Oekowelle rollt
by Karl-Heinz Rattay / 2009
einfach ausprobieren
Wems gefällt der kann ja einen screensaver draus machen!
Dieses Modul ist einfach so wie es ist. Wems nicht gefällt, der kann umstricken!!
declare Zaehler&

proc zeichne

    parameters col&, hpos%, vpos%, size%
    die Reifen
    usepen   0,(size%/5),(col& & 600000)   Farbe für die Reifen neu anmischen
    useBrush 0,col&
    ellipse (hpos%-(Size%/1.2)),(vpos%-(Size%/1.5)) - (hpos%+(Size%/1.8)),(vpos%+(Size%/1.5))
    ellipse ((hpos%+size%*2.3)-(Size%/1.5)),(vpos%-(Size%/1.5)) - ((hpos%+size%*2.3)+(Size%/1.5)),(vpos%+(Size%/1.5))
    Rahmen Teil 1
    usepen   0,(size%/8),col&
    moveto (hpos%-Size%/7),vpos%
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1.05))
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*0.95) + (size%/6))
    lineto (hpos%+(size%*1.1))  , vpos%
    Rahmen Teil 2
    moveto (hpos%+(size%/4)),(vpos% - (Size%*1.3))
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1.3))
    lineto (hpos%+(size%/6)),(vpos% - (Size%*1))
    lineto (hpos%+(size%*1.1))  , vpos%
    lineto (hpos%+(size%*2.4))  , vpos%
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*1) + (size%/6))
    lineto (hpos%+(size%*1.7))   , (vpos% - (Size%*1) -(size%/7))
    Anbauteile
    moveto (hpos%+(size%*1.7)-(size%/5))   , (vpos% - (Size%*1.1) -(size%/8))
    lineto (hpos%+(size%*1.7)+(size%/5))   , (vpos% - (Size%*1.1) -(size%/8))
    moveto (hpos%+(size%*1.1))  , (vpos%-(size%*0.3))
    lineto (hpos%+(size%*1.1))  , (vpos%+(size%*0.3))

Endproc

cls
showmax
randomize

whilenot 0

    waitinput 10
    inc zaehler&

    if zaehler& > 80                nur bei jedem 80. Durchlauf neues Rad zeichnen, sonst wirds zu bunt

        zeichne  @rgb( @rnd(255),@rnd(255),@rnd(255) ) ,      die Farbe festlegen
        ((%maxx*0.6) + @rnd(%maxx/4)) ,                       horizontale Position
        (100+@rnd(@rnd(%maxy*0.85))) ,                        vertikale Position
        (15+@rnd(40))                                          Größe
        zaehler& = 1

    endif

    Bild einen Punkt verschieben, damit die Räder sich bewegen
    copyBmp 1,0 - %maxx,%maxy > 0,0;0

endwhile

Testprogramm für Robin
declare ende%,MoveHor%,MoveVer%,PosHor%,PosVer%
cls
randomize Zufallsgenerator neu starten
rectangle 10,10 - 200,200Rechteck von 10,10 links oben nach 200,200 rechts unten zeichnen
ende% = 0 Der variablen den Wert 0 zuweisen
PosHor% = @rnd(170)+ 20
PosVer% = @rnd(170)+ 20

whilenot ende%  Schleife solange durchlaufen wie ende% 0 ist

    usepen 0,2, @rgb(192,192,192) Zeichenstift 2 Punkte breit , durchgezogene Linie, rot
    Ellipse PosHor%,PosVer% - (PosHor%+20),(PosVer%+15)
    waitinput 1
    usepen 0,2, @rgb(255,255,255)
    Ellipse PosHor%,PosVer% - (PosHor%+20),(PosVer%+15)
    MoveHor% = @rnd(12) -5.5
    MoveVer% = @rnd(12) -5.5
    PosHor%  = PosHor% + MoveHor%
    PosVer%  = PosVer% + MoveVer%

    if PosHor% > 188 zu weit nach rechts geraten

        PosHor%  = 184 ein bißchen zurückschubsen

    endif

    if PosHor% < 20 zu weit nach links geraten

        PosHor%  = 24 ein bißchen zurückschubsen

    endif

    if PosVer% > 188 zu weit nach unten geraten

        PosVer%  = 184 ein bißchen zurückschubsen

    endif

    if PosVer% < 20 zu weit nach oben geraten

        PosVer%  = 24 ein bißchen zurückschubsen

    endif

    if %key = 27

        end

    endif

    endwhile Ende der Boucle