Español   Ejemplos: Fractales.

Curva de Peano

Si le indicamos un orden elevado, esta curva rellena un cuadrado.

para empezar :orden
# Inicializamos papel, lapiz y tortuga
  reponetodo pontamañopantalla [400 400]
  poncolorpapel negro poncolorlapiz verde
  subelapiz ocultatortuga
#
  haz "lado 0 # Variable global
  haz "x (( redondea :orden/2)-1)
  repitepara (frase "n 0 :x-1)
    [haz "lado :lado + potencia 3 :n]
  haz "lado 1+(3*:lado)
  haz "lado 190/:lado
#
  ponposicion [-190 -190] poncolorlapiz amarillo bajalapiz
  peano :orden 1
fin

para peano :orden :paridad
  si :orden < 1 [alto] # o sea, si = 0
  giraderecha :paridad*90
  peano :orden-1 cambiasigno :paridad avanza :lado
  peano :orden-1 :paridad avanza :lado
  peano :orden-1 cambiasigno :paridad
  giraizquierda :paridad*90
fin


Probar este programa ahora

Procedimiento a ejecutar:
empezar 6