Proyectos en LogoWriter
Este procedimiento permite dibujar usando los números. Para ejecutarlo
escribe el procedimiento en el reves y ejecuta el procedimiento DIBUJA
en la Línea de mandos. La figura 1 debe ser una cruz o un lapiz .
para dibuja
ffig 1
lapiz
fin
para lapiz
da "tecla leecar
si :tecla = 8 [frumbo 0 ad 1]
si :tecla = 9 [frumbo 45 ad 1]
si :tecla = 6 [frumbo 90 ad 1]
si :tecla = 3 [frumbo 135 ad 1]
si :tecla = 2 [frumbo 180 ad 1]
si :tecla = 1 [frumbo 225 ad 1 ]
si :tecla = 4 [frumbo 270 ad 1]
si :tecla = 7 [frumbo 315 ad 1]
si :tecla = "p [sp]
si :tecla = "l [cp]
si :tecla = "b [pb ]
si :tecla = "q [ alto ]
lapiz
fin