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