Ejemplos: EspiralesEspirales que forman estrellas
El procedimiento espiral dibuja una línea, gira un ángulo fijo, y se llama a sí mismo aumentando la longitud 4 pasos de tortuga.|
para empezar repitepara [angulo 158 176 2] [ # repite 10 veces nuevo poncolorlapiz verde bajalapiz # empezamos con espiral de lado 1 espera 5 espiral 1 :angulo espera 200] fin para nuevo # Inicializamos papel, lapiz y tortuga reponetodo pontamañopantalla [400 400] poncolorpapel negro poncolorlapiz verde subelapiz ocultatortuga fin para espiral :long :angulo # color de lapiz depende de long. de linea poncolorlapiz color :long si :long > 390 # si linea muy larga ... [avanza :long/2 alto] # dibuja media linea y alto # dibuja linea y rota angulo fijado avanza :long giraizquierda :angulo # repite, pero 4 pixels mas largo espiral :long+4 :angulo fin para color :long haz "green redondea :long/1.62 # verde depende de long. devuelve frase lista 0 :green 0 # rojo y azul fijados en 0 fin |
empezar
