HILBERTVARIATION II
Wir gehen vor wie im Fall der Hilbertvariation I, ersetzen jedoch das dortige Grundmotiv durch einen Kreisauschnitt mit den Öffnungswinkeln \( 45^\circ: \)
Die nachfolgenden Abbildungen zeigen die Iterationsschritte 1 bis 6 sowie 7. Hier der KTurtle-Code für den 6. Schritt (der Teilungsfaktor \( 40 \) muss für kleinere Iterationen erhöht werden):
learn kreisausschnitt $w,$h {
repeat 40 {
forward $h/40
turnright $w/40
}
}
learn grundmotiv $w,$h {
repeat 40 {
forward $h/40
turnright 0-$w/40
}
forward $h/40
turnright $w
repeat 40 {
forward $h/40
turnright $w/40
}
forward $h/40
turnleft $w
repeat 40 {
forward $h/40
turnright $w/40
}
forward $h/40
turnright $w
repeat 40 {
forward $h/40
turnright 0-$w/40
}
forward $h/40
}
learn weg $w,$h,$lev {
if $lev == 1
{
kreisausschnitt $w,$h
}
if $lev == 2
{
grundmotiv $w,$h
}
if $lev > 2
{
weg 0-$w,$h,$lev-1
turnright $w
weg $w,$h,$lev-1
turnleft $w
weg $w,$h,$lev-1
turnright $w
weg 0-$w,$h$lev-1
}
}
learn kurve $h,$lev {
if $lev == 0
{
break
}
else {
turnleft 45
weg 90,$h,$lev
}
}
reset
canvassize 400,400
direction 90
penwidth 1.5
pencolor 220,50,20
go 11,390
$lev = 6
$h = 2*192/(2^$lev)*2.1
kurve $h,$lev
