24 Dec
2004
24 Dec
'04
3:52 p.m.
to aaa ; MSWLogo code cs pu setxy -225 -300 rt 90 tree 10 setpc [4 206 50] setfc [4 206 50] setxy 0 300 pd setxy -275 -325 setxy 275 -325 setxy 0 300 pu setxy 0 275 fill end to tree :n if :n = 0 [stop] base :n lt 90 fd 60 rt 90 fd 25 tree :n - 1 end to base :n if :n = 0 [stop] bulb (list 255 130 + random 125 0) fd 50 base :n - 1 bk 50 end to bulb :c [:p pos] [:h heading] setpc :c setfc :c pd circle 20 lt 45 arc2 90 10 rt 45 arc2 -110 10 setpos :p pu fd 5 (fill "true) setpos :p seth :h end Daniel OpenWorld Learning
