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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
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