PR terni :n :a
lokal "x" lokal "y"
wenn :n=0 dann farbe 0 0 255 ternidann :a rk
setze "x" xko setze "y" yko
farbe 255/:n 150-150/:n 0
vw :a terni :n-1 :a/2 punkt :x :y re 120
farbe 255/:n 150-150/:n 0
vw :a terni :n-1 :a/2 punkt :x :y re 120
farbe 255/:n 150-150/:n 0
vw :a terni :n-1 :a/2 punkt :x :y re 120
ENDE
Die Farben sind im RGB-System angegeben.
Erklärung auf den Seiten Farben und Computer.
|
Diese Prozedur ternidann sorgt für den eigentlichen Dreistern. Im
nebenstehenden Fraktal-Hauptprogramm wird dreimal das Fraktal von verkleinerter Stufe mit
verkürzten Längen aufgerufen.
PR ternidann :a
lokal "x" lokal "y"
setze "x" xko setze "y" yko
vw :a punkt :x :y re 120
vw :a punkt :x :y re 120
vw :a punkt :x :y re 120
ENDE
|