# 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()[]

}