Ejemplos: Árboles.
Un árbol inclinado
Ahora, las ramas de izquierda son más cortas que las de derecha (0.65 frente a 0.85). El resultado es un árbol inclinado como si hubiera viento. El procedimiento nuevo empieza el árbol por la izquierda con un ángulo de inclinación de 5 grados.|
# Comando de Inicio: empezar para empezar # Inicializamos pantalla, papel, tortuga, ... reponetodo pontamañopantalla [400 400] poncolorpapel negro poncolorlapiz verde subelapiz ocultatortuga ponposicion [-94 -160] giraderecha 5 bajalapiz haz "angulo 50 arbol 85 # angulo initial: 60 grados y color rojo fin para arbol :long si :long< 10 [alto] # Fin de recursion si long muy pequeña pongrosor :long/9 # Reduce grosor lapiz al menguar la rama poncolorlapiz arbolcol :long # color de rama depende de long avanza :long giraizquierda :angulo/2 arbol :long*0.65 giraderecha :angulo # arbol con rama = 3/4 long arbol :long*0.85 giraizquierda :angulo/2 subelapiz retrocede :long bajalapiz # Volvemos a punto de partida fin para arbolcol :long haz "green redondea 2.5*(100-:long) # color depende de long devuelve frase lista 255 :green 0 # rojo si vale 0 y amarillo para 255 fin |
empezar
