Con lo stesso codice del fiocco di neve di Koch ma con angoli di 90° (disegnando quadrati invece che triangoli equilateri)
Dimensione=300
n=1, 2, 3, 4, 5
dimensione=300
ricorsione=5
GLOBAL d
;----------------------------------------------------------------
TO koch n
GLOBAL d
IF n==1 [
FORWARD d[n]
] [
koch(n-1) LEFT 90
koch(n-1) RIGHT 90
koch(n-1) RIGHT 90
koch(n-1) LEFT 90
koch(n-1)
]
END
; --- impostazioni generali
CLEARSCREEN
HOME
PENSIZE 1
PENCOLOR “BLUE”
FILLCOLOR “AQUA”
; --- calcolo anticipato delle lunghezze dei lati
d=(ricorsione+1)*[0]
d[ricorsione]=dimensione
FOR i IN RANGE ricorsione-1 0 -1 [ d[i]=d[i+1]/3 ]
RIGHT 90
koch(ricorsione)
Curva chiusa
Ripetendo 4 volte la chiamata, cambiando angolo di 90° gradi, si ottengono le figure chiuse seguenti
Dimensione=300
n=1
n=2
n=3
n=4
Dimensione=400
n=5
