Ejemplos: Árboles.

Árbol simple

Este programa dibuja un árbol de la forma recursiva más simple posible.
El ángulo entre dos nuevas ramas se fija en 60 grados. Si se cambia este valor (por ejemplo a 50) el aspecto del árbol cambia.

# Comando de Inicio: empezar para empezar # Inicializamos pantalla, papel, tortuga, ...   reponetodo pontamañopantalla [400 400]   poncolorpapel negro poncolorlapiz verde subelapiz ocultatortuga   retrocede 160 bajalapiz   haz "angulo 60 arbol 90 # angulo inicial: 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.75 giraderecha :angulo # arbol con rama = 3/4 long   arbol :long*0.75 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

Probar este programa ahora Procedimiento a ejecutar: empezar