[Solar-educacion] Merry Christmas

Vie Dic 24 16:52:18 CET 2004

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

------------ próxima parte ------------
Se ha borrado un mensaje que no está en formato texto plano...
Nombre     : tree.gif
Tipo       : image/gif
Tamaño     : 8696 bytes
Descripción: no disponible
Url        : /pipermail/solar-educacion/attachments/20041224/2e76e97a/tree.gif