Proyectos en LogoWriter
Este procedimiento permite crear una palmera haciendo uso de arcos
con variables.
PARA ARCO :A
REPITE 90[AD :A / 10 DE 1]
FIN
PARA ARCOAT :A
REPITE 90[AT :A / 10 IZ 1]
FIN
PARA ARCO2 :A
REPITE 90[AD :A / 10 IZ 1]
FIN
PARA ARCOAT2 :A
REPITE 90[AT :A / 10 DE 1]
FIN
PARA HOJA
SP FPOS [-70 30] CP
FRUMBO 60
ARCO 8 DE 20
ARCOAT 8 IZ 20
ARCO 6 DE 10
ARCOAT 7 IZ 45
ARCO 3 DE 10
ARCOAT 4 IZ 45
ARCO 3 DE 190
ARCOAT -4
SP FPOS [-90 30] CP
FRUMBO 360 - 60
ARCO2 8 IZ 20
ARCOAT2 8 DE 20
ARCO2 6 IZ 10
ARCOAT2 7 DE 45
ARCO2 3 IZ 10
ARCOAT2 4 DE 45
ARCO2 3 IZ 190
ARCOAT2 -4
FIN
PARA TRONCO
REPITE 8[T2]
FIN
PARA T2
CP FRUMBO 300
REPITE 4 [AD 20 DE 90]
SP FRUMBO 0 AD 15 CP PINTA
FIN
PARA PALMERA
RG
FCOLOR 6
SP FPOS[-75 -90]CP
TRONCO
FCOLOR 101
HOJA
SP AD 10 CP PINTA
FIN