Modifié le 31 Décembre 2007 à 15 h 08

courbe_sierpinski_1.cfdg
#@AUTEUR: Thomas Labarussias

startshape sieper

rule croix
{
SQUARE{}
4* {r 270} SQUARE{s 0.5 r 45 x 0.5 y 0.5}
}

rule base
{
2*{x 2} croix{}
SQUARE{x 1  y -1}
2*{x 2} croix{y -2}
}

rule carreau
{
2* {x 4} base{}
base{x 2 y -2}
2* {x 4} base{y -4}
}

rule ligne
{
4* {x 8} carreau{}
}

rule croisement
{
2*{x 16} croix {x 7 y -7}
}

rule sieper
{
4* {y -8} ligne{}
2* {y -16} croisement{}
SQUARE {x 15 y -15}
}