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

illusion_optique.cfdg
#@AUTEUR: Thomas Labarussias

startshape illusion_droites // declaration de la regle principale

//le code est dispose dans l'ordre des operations

rule base
 // sert a creer la ligne initiale
{
13*{x 2} SQUARE {s 2 b 0}
 // cree un carre noir de dimension 2*2 qui est duplique
 // 13 fois en decalant de 2 sur x chaque duplicatat
10*{x 4} SQUARE {x 2 s 1.9 b 1}
 // cree un carre blanc de dimension 1.9*1.9 a la position
 // x = 2 puis le duplique avec un decalage de 4 sur x
 // a chaque fois (10 fois)
}

rule clone
 //duplique la ligne cree par la regle base
{
2*{x 0.9 y 1.9} base{}
 // duplique la ligne formee precedemment, la copie etant decalee
 //de 0.9 sur x et de 1.9 sur y
}

rule illusion_droites
 // regle principale (duplique les deux lignes precedentes)
{
4*{y 3.8} clone{}
 //copie la double ligne obtenue 4 fois en decalant de 3.8 sur y a chaque iteration
}

 // complements :

 // b 0 -> brigthness 0 -> couleur noire
 // b 1 -> brigthness 1 -> couleur blanche