# Thanks for inspiration from this and this # From: # www.contextfreeart.org/gallery2/#design/3906

startshape HEX[b 1 sat 1]

CF::Background = [b -1] CF::Size=[s 2] CF::MinimumSize = .5

R=sqrt(3)/6 G=(-1+sqrt(5))/2 G2= (1+G+G^2+G^3) + G^4 //+ …+G^n W=1/G2*.5

shape HEX {

loop 6 [r 60] TRI [h 200 x 0.5 y (tan(30)/2)]

}

shape TRI {

TRIANGLE[h -5]
triangness[b -.4 sat 1 s (1/G2*.25) x (1/G2*.25*R) y (1/G2*.25*.5) z 1]
loop 3 [r 120] 
 TRI[h  5 s 0.5 y R b -.2]

}

shape triangness {

loop 3 [r 120 x -(R*3) y -.5]
  triang [h -15 ]

}

shape triang {

loop  2 [f 90 x -(R*2)]
{
  TRIANGLE [r 30]
   triangness [h 30 b .2 s W  r -30  x (W/2) y (W*R) ]
}
loop 2 [f 90 x -(R*2)]
   triang [h -0 s G x (R*2+G*R) y (G*.5) b .1 ]

}