Context Free Forums and Gallery

Sam Suan Chen wrote:startshape DIAMONDS background{b -.85 sat 1}
rule DIAMONDS{2*{y -1}
{5*{x 1}
{9*{h 18 s .8 y .05}
CIRCLE{b .5 h 240 sat 1 s .9}}}
A{b 1 s .400 x 0 y .3 h 60 sat .5}
C{b 1 s .425 x 1 y .3 h 60 sat .3}
E{b 1 s .445 x 2 y .3 h 60 sat .1}
G{b 1 s .465 x 3 y .3 h 60 sat .1}
I{b 1 s .500 x 4 y .3 h 60 sat 0}
J{b 1 s .420 x 0 y -.7 h 120 sat .7}
CIRCLE{b .5 h 0 sat 1 s .18 y -.7 h 120 sat .7}
B{b 1 s .425 x 1 y -.7 h 120 sat .5}
D{b 1 s .445 x 2 y -.7 h 120 sat .3}
F{b 1 s .465 x 3 y -.7 h 120 sat .1}
H{b 1 s .500 x 4 y -.7} }
path A{MOVETO{y 1}16*{r(1*360/17)}
{LINETO{x cos(90+1*360/17) y sin(90+360/17)}}
CLOSEPOLY{}}
path B{MOVETO{y 1}16*{r(2*360/17)}
{LINETO{x cos(90+2*360/17) y sin(90+2*360/17)}}
CLOSEPOLY{}FILL{p evenodd}}
path C{MOVETO{y 1}16*{r(3*360/17)}
{LINETO{x cos(90+3*360/17) y sin(90+3*360/17)}}
CLOSEPOLY{}FILL{p evenodd}}
path D{MOVETO{y 1}16*{r(4*360/17)}
{LINETO{x cos(90+4*360/17) y sin(90+4*360/17)}}
CLOSEPOLY{}FILL{p evenodd}}
path E{MOVETO{y 1}16*{r(5*360/17)}
{LINETO{x cos(90+5*360/17) y sin(90+5*360/17)}}
CLOSEPOLY{}FILL{p evenodd}}
path F{MOVETO{y 1}16*{r(6*360/17)}
{LINETO{x cos(90+6*360/17) y sin(90+6*360/17)}}
CLOSEPOLY{}FILL{p evenodd}}
path G{MOVETO{y 1}16*{r(7*360/17)}
{LINETO{x cos(90+7*360/17) y sin(90+7*360/17)}}
CLOSEPOLY{}FILL{p evenodd}}
path H{MOVETO{y 1}16*{r(8*360/17)}
{LINETO{x cos(90+8*360/17) y sin(90+8*360/17)}}
CLOSEPOLY{}FILL{p evenodd}}
path I{MOVETO{y 1}16*{r(8*360/17)}
{LINETO{x cos(90+8*360/17) y sin(90+8*360/17)}}
CLOSEPOLY{}}
path J{2*{s .97}{MOVETO{y 1}16*{r(360/17)}
{LINETO{x cos(90+360/17) y sin(90+360/17)}}
CLOSEPOLY{}}FILL{p evenodd}}