Español   Ejemplos: Fractales

Tapando agujeros

Se trata de ir reduciendo huecos, como si fuéramos añadiendo juntas en cada hueco para disminuir su amplitud hasta hacerlos desaparecer.

para empezar :orden
  nuevo
  ponposicion [-200 -200] poncolorlapiz [0 0 1] bajalapiz
  rellenando 400 :orden
fin

para nuevo
# Inicializamos papel, lapiz y tortuga
  reponetodo pontamañopantalla [400 400]
  poncolorpapel negro subelapiz ocultatortuga
fin

para rellenando :lado :orden
  si :orden < 1 [alto] # o sea, si = 0
  repite 4 [miforma :lado :orden giraderecha 90]
  mirelleno :lado :orden
fin

para miforma :lado :orden
  rellenando :lado/3 :orden-1
  avanza :lado/3
  rellenando :lado/3 :orden-1
  avanza 2*:lado/3
fin

para mirelleno :lado :orden
  subelapiz giraderecha 45 avanza 0.7*:lado
  poncolorlapiz :orden rellena
  retrocede 0.7*:lado giraizquierda 45 bajalapiz
  poncolorlapiz [0 0 1]
fin


Probar este programa ahora

Procedimiento a ejecutar:
empezar 4