Fractales con forma de rastrillo
Fractales antenna.
para empezar :orden # Inicializamos papel, lapiz y tortuga reponetodo pontamañopantalla [400 400] poncolorpapel negro poncolorlapiz verde subelapiz ocultatortuga # haz "tam 96 # haz tam e invraiz2 globales haz "invraiz2 1/raizcuadrada 2 # leyenda :orden centro giraderecha 90 poncolorlapiz verde bajalapiz arbol :orden :tam fin para leyenda :orden # Muestra encabezado y nivel de curva poncolorlapiz blanco ponposicion [-190 184] rotula frase [Arbol antenna nivel] :orden fin para arbol :orden :tam si :orden < 1 [alto] # o sea, si = 0 pongrosor :orden avanza :tam giraizquierda 90 arbol :orden-1 :invraiz2*:tam pongrosor :orden giraizquierda 90 avanza 2*:tam giraizquierda 90 arbol :orden-1 :invraiz2*:tam pongrosor :orden giraizquierda 90 avanza :tam fin |