Ejemplos: Animaciones. Árbol recursivo
Este programa dibuja una serie de árboles recursivos, variando el ángulo de inclinación de las ramas, dando la sensación de que se abre.|
# Comando de Inicio: empezar para empezar reponetodo pontamañopantalla [400 400] ocultatortuga poncolorpapel negro poncolorlapiz verde animacion subelapiz retrocede 150 bajalapiz repitepara [angulo 0 180 4] # angulo desde 0 hasta 180 [ limpia arbol 100 :angulo refrescar espera 20] detieneanimacion fin para arbol :long :angulo # Detiene si long es muy pequeño si :long < 10 [alto] # Reduce el grosor al menguar las ramas pongrosor :long/9 # El color de la rama depende de la longitud poncolorlapiz arbolcol :long avanza :long giraizquierda :angulo/2 # El siguiente "arbol" con rama 29% menor arbol :long*0.71 :angulo giraderecha :angulo arbol :long*0.71 :angulo giraizquierda :angulo/2 # Vuelve al punto de partida subelapiz retrocede :long bajalapiz fin para arbolcol :long # El color depende de la long haz "color redondea 2.5*(100-:long) # rojo si :color vale 0 y amarillo si vale 255 devuelve frase lista 255 :color 0 fin |
empezar
