startshape unification_sign

rule unification_sign{

God {z 100}
12 * {r (360/12)} gate_of_heaven {}
four_position_foundation {}
4 * {r 90} whiteout {z 1}
4 * {r (360/4)} gate_of_heaven {r (22.5+360/48) z 2 s

1.6}

2 * {r 180 } give_and_take_action {z 3 s 1.26}

}

rule God {

CIRCLE {s .7 h 1.35 sat 1 b 1 z 1}

}

rule four_position_foundation {

SQUARE {s 1.4  h 1.35 sat 1 b 1}
SQUARE {s 1.27  h 0 sat 0 b 1}

}

rule gate_of_heaven {

lines{r (360/48)}

}

path lines {

MOVETO {x 0 y 0}
LINETO {x 1 y 0}
LINETO {x cos(360/24) y sin(360/24)}
CLOSEPOLY {}
FILL {width .03 h 1.35 sat 1 b 1}

}

path give_and_take_action { MOVETO { x (1-.26/2) y (0-0.02)} LINETO {x 1 y (0.04-0.02)} ARCTO {x -1 y (0.04-0.02) r 1} LINETO {x (-1+.26/2) y (0.04+.02)} LINETO {x (-1+.26) y (0.04-0.02)} ARCTO {x (1-.26) y (0.04-0.02) r (1-.26) p cw} CLOSEPOLY {} FILL {h 1.35 sat 1 b 1} }

path whiteout {

MOVETO {x .7 y .9}
ARCTO  {x .7 y -.9 r 1.1 p cw}
CLOSEPOLY{}
FILL  { h 0 sat 0 b 1}

}