Code: Select all
startshape A
rule A
{
film { r 90}
A { r 1 x 6 s .9 b .01}
}
rule film
{
SQUARE { }
SQUARE { x 1}
SQUARE { x 2}
SQUARE { x 3}
SQUARE { x 4}
rectangulos { x 4 r 90 y 1}
rectangulos { x 4 r 90 y 2}
rectangulos { x 4 r 90 y 3}
rectangulos { x 4 r 90 y 4}
rectangulos { x 4 r 90 y 5}
rectangulos { x 4 r 90 y 6}
SQUARE { y 7}
SQUARE { x 1 y 7}
SQUARE { x 2 y 7}
SQUARE { x 3 y 7}
SQUARE { x 4 y 7}
}
rule rectangulos
{
SQUARE { }
SQUARE { s .5 b 1 }
SQUARE { y 4 }
SQUARE { y 4 s .5 b 1 }
}