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

courbe_sierpinski_2.cfdg
#@AUTEUR: Thomas Labarussias

startshape sieper

rule heptagone
{
2*{r 90} SQUARE {s 2 1}
2*{r 90} SQUARE {s 0.707 2.121 r 45}
}

rule base
{
SQUARE {s 2}
heptagone {x -1.5 y 1.5}
heptagone {x -1.5 y -1.5}
heptagone {x 1.5 y -1.5}
heptagone {x 1.5 y 1.5}
}

rule carreau
{
2* {x 6} base{}
SQUARE {s 2 x 3 y -3}
2* {x 6} base{y -6}
}

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

rule croisement
{
2*{x 24} heptagone {x 9 y -9}
}

rule sieper
{
4* {y -12} ligne{}
2* {y -24} croisement{}
SQUARE {s 2 x 21 y -21}
}