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