startshape begin[r 45 sat 1 b 1] CF::Size=[s 3.7] CF::MinimumSize=.5
G=(-1+sqrt(5))/2
shape begin {
loop 4[r 90 ] tri []
}
shape tri {
SQUARE[ x .5 y .5 h 0 sat 1 ] begin[ r 45 h 20 x .5 y .5 s .27 b -.1 z 1] tri [h 5 x 1 s G] tri [h 5 sat 1 b -.13 s G y 1]
}