1 define(pt_circ, pt_peco_sr)
2 define(radius_circ, 230)
9 extend pt_i_a x_bl ang 1 -315
12 part x cross_peco_l bl
13 #part x cross_mythical bl
14 extend -x_br -pt_o_b ang 0.0030 315
15 part pt_o pt_peco_ml b
17 extend x_tl o_end uptoang 180 -315
19 #extend pt_i_b i_end uptoang 180 -315
21 #extend pt_i_b i_mid upto x_tl
22 #extend -i_end -i_mid_ ang 60 315
23 #join pt_i_b i_end 315
25 extend x_tr si_end uptoang 180 -315
26 extend -pt_i_c -i_begin uptoang 180 315
27 extend -pt_o_c -o_begin uptoang 180 315
28 #extend pt_o_a so_end uptoang 180 -315
29 rel si_end so_end 0 37
31 abs tcp0_p_c 1500 1100 90
32 part tcp0 tricirpair p_c
34 abs tcp1_p_c 1500 400 90
35 part tcp1 ^tricirpair p_c