Ejemplos: Recursividad.
Los cuadrados nunca se acaban
En cada uno de los cuatro vértices de un cuadrado dibujamos un cuadrado cuyo lado es la mitad del inicial; en cada vértice de cada cuadrado dibujamos un cuadrado cuyo ...Para obtener un patrón con la proporción aurea, cambia el 2 a 1.618034 y reduce el lado a 96.
|
para empezar nuevo menguacuadrado 194 fin para nuevo # Inicializamos pantalla, lapiz, tortuga, ... reponetodo pontamañopantalla [400 400] poncolorpapel negro poncolorlapiz 2 subelapiz ocultatortuga fin para menguacuadrado :lado si :lado < 24 [alto] retrocede :lado/2 giraderecha 90 retrocede :lado/2 repite 4 [ poncolorlapiz frase lista 0 redondea :lado+61 0 bajalapiz avanza :lado subelapiz giraizquierda 90 menguacuadrado :lado/2] avanza :lado/2 giraizquierda 90 avanza :lado/2 fin |
Para mayor recursividad, cambia el condicional en la línea:
si :lado < 24 [alto]
empezar
