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]

}