Español   Ejemplos: Fractales.

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


Probar este programa ahora

Procedimiento a ejecutar:
empezar 7