# www.contextfreeart.org/gallery/view.php?id=3723
startshape begin[] CF::Size=[s 5.5] CF::MinimumSize=.5
s3=sqrt(3) G=(-1+sqrt(5))/2
shape begin{
si[ sat 1 b 1 r 30] hexagon[s 2.56 r 30 x .03 y -2.55 z -.1] bg[s 1.7 h 40 z -10]
}
shape si {
loop 6[r 60 ] tri []
}
shape tri {
loop 2 [f 0 y s3 sat -.14] Sierpinski[r 180 s .96 y (1/s3)] loop 2 [f 90] tri [h 2 sat 1 b -.13 s G x .5 y (s3/2)]
}
shape Sierpinski{
TRIANGLE [s .85] Sierpinski [ h 8 s 0.5 r 60 ] Sierpinski [s 0.5 y (s3/6)] Sierpinski [s 0.5 y (-s3/12) x 0.25] Sierpinski [s 0.5 y (-s3/12) x -0.25]
}
shape bg {
CIRCLE[ sat 1 b 1 s 5 ] bg[s .98 h -1 z .01]
}
path hexagon{
MOVETO ( 0,0) loop 6 [r 60] LINEREL ( 1,0) CLOSEPOLY() STROKE ( .00002) [b -1] FILL()[]
}