To big_kite :SIZE
Fd :SIZE * 1.618
Rt 144 Fd :SIZE Lt 108
LT_KITE :SIZE
RT_KITE :SIZE
Rt 72 Fd :SIZE Rt 144
RT_DART :SIZE
Fd :SIZE * 1.618
Rt 108
End

To expand :SIZE
HT
STAR :SIZE 5
Fd :SIZE + :SIZE * 1.618 Lt 108
Repeat 5 [STAR :SIZE 3 STARMOVE :SIZE]
ST
End

To lt_dart :SIDE
Fd :SIDE * 1.618 Lt 108
Fd :SIDE * 1.618 Lt 144
Fd :SIDE Rt 36
Fd :SIDE Lt 144
End

To lt_kite :SIDE
Fd :SIDE * 1.618 Lt 108
Fd :SIDE * 1.618 Lt 108
Fd :SIDE Lt 36
Fd :SIDE Lt 108
End

To rt_dart :SIDE
Fd :SIDE * 1.616
Rt 108 Fd :SIDE * 1.618
Rt 144 Fd :SIDE
Lt 36 Fd :SIDE
Rt 144
End

To rt_kite :SIDE
Fd :SIDE * 1.618 Rt 108
Fd :SIDE * 1.618 Rt 108
Fd :SIDE Rt 36
Fd :SIDE Rt 108
End

To star :SIZE :SEGMENTS
Repeat :SEGMENTS [BIG_KITE :SIZE RT 72]
End

To starmove :SIZE
Fd :SIZE * 1.618
Rt 36
Fd :SIZE * 1.618
Rt 180
End

CS EXPAND 10
