Mit q=3 ergibt sich das linke, mit q=2,618 =(3+Wurzel(5))/2 das mittlere Fraktal
PR quintus :n :a
lokal "x" lokal "y"
;*q=2 ist zu groß q=3 ist zu klein q= 2,618 passt
setze "q" 2,618
wenn :n=0 dann farbe 0 0 255 quintusdann :a rk
setze "x" xko setze "y" yko
farbe 255/:n 150-150/:n 0
vw :a quintus :n-1 :a/:q punkt :x :y re 72
farbe 255/:n 150-150/:n 0
vw :a quintus :n-1 :a/:q punkt :x :y re 72
farbe 255/:n 150-150/:n 0
vw :a quintus :n-1 :a/:q punkt :x :y re 72
farbe 255/:n 150-150/:n 0
vw :a quintus :n-1 :a/:q punkt :x :y re 72
farbe 255/:n 150-150/:n 0
vw :a quintus :n-1 :a/:q punkt :x :y re 72
ENDE
|
Diese Prozedur quintusdann sorgt für den eigentlichen Fünfstern. Im
nebenstehenden Fraktal-Hauptprogramm wird fünfmal das Fraktal von verkleinerter Stufe mit
vrkürzten Längen aufgerufen.
PR quintusdann :a
lokal "x" lokal "y"
setze "x" xko setze "y" yko
vw :a punkt :x :y re 72
vw :a punkt :x :y re 72
vw :a punkt :x :y re 72
vw :a punkt :x :y re 72
vw :a punkt :x :y re 72
ENDE
|