Una variante della curva di Koch
dimensione=400
ricorsione=4
GLOBAL d
;--------------------------------------
TO minkowski n
GLOBAL d
IF n == 1 [
FORWARD d[n]
] [
minkowski(n-1) LEFT 90
minkowski(n-1) RIGHT 90
minkowski(n-1) RIGHT 90
minkowski(n-1)
minkowski(n-1) LEFT 90
minkowski(n-1) LEFT 90
minkowski(n-1) RIGHT 90
minkowski(n-1)
]
END
;--------------------------------------
CLEARSCREEN
PENSIZE 1
PENCOLOR “blue”
d=(ricorsione+1)*[0]
d[ricorsione]=dimensione
FOR i IN RANGE ricorsione-1 0 -1 [
d[i]=d[i+1]/4
]
RIGHT 90
peano(ricorsione)
Curva chiusa
Con 4 tratti ad angoli di 90° si ottiene una curva chiusa
minkowski(ricorsione) RIGHT 90
minkowski(ricorsione) RIGHT 90
minkowski(ricorsione) RIGHT 90
minkowski(ricorsione)