Español   Ejemplos: Fractales.

Un copo cuadrado

La misma idea que el copo de Koch, pero ahora dibujando sobre un cuadrado. Se muestran ambas curvas, la interior y la exterior.

para empezar :nivelint :nivelext
# Inicializamos papel, lapiz y tortuga
  reponetodo pontamañopantalla [400 400]
  poncolorpapel negro subelapiz ocultatortuga
#
  ponposicion [-94 -94] bajalapiz
  poncolorlapiz gris koch.int 0 189
#
  poncolorlapiz rojo koch.int :nivelint 189
  poncolorlapiz verde koch.ext :nivelext 189
fin

para koch :nivel :lado
  si :nivel < 1 [avanza :lado alto]
  koch :nivel-1 :lado/3 giraizquierda 90
  koch :nivel-1 :lado/3 giraderecha 90
  koch :nivel-1 :lado/3 giraderecha 90
  koch :nivel-1 :lado/3 giraizquierda 90
  koch :nivel-1 :lado/3
fin

para koch.int :nivel :lado
  ponrumbo 90 repite 4
    [koch :nivel :lado giraizquierda 90]
fin

para koch.ext :nivel :lado
  ponrumbo 0 repite 4
    [koch :nivel :lado giraderecha 90]
fin


Probar este programa ahora

Procedimiento a ejecutar:
empezar 4 6