Logo im Internet |
Hauptprogramm | Auswahl der Farbe, in der der Strich gezeichnet wird | Entscheidung, ob ein Knick nach links oder rechts kommt |
lerne Drachen :Schritte :laenge vi setscreencolor [0 0 140] aufxy 0 0 aufkurs 0 clean setze "x 1 wh :Schritte [Farbe :x vw :laenge gehe :x setze "x :x+1] ende |
lerne Farbe :x setpencolor [250 125 0] wenn :x < :Schritte * 0.75 [setpencolor [250 250 0]] wenn :x < :Schritte * 0.5 [setpencolor [250 0 0]] wenn :x < :Schritte * 0.25 [setpencolor [0 250 0]] ende
|
lerne gehe :Rest wenn (Rest :Rest 4) = 1 [li 90] wenn (Rest :Rest 4) = 3 [re 90] wenn (Rest :Rest 2) = 0 [gehe :Rest/2] ende
|