# 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 ]
}