5 extend pt_i_a x_bl ang 1 -315
9 #part x cross_mythical bl
10 extend -x_br -pt_o_b ang 0.0030 315
11 part pt_o pt_peco_ml b
13 extend x_tl o_end uptoang 180 -315
15 #extend pt_i_b i_end uptoang 180 -315
17 #extend pt_i_b i_mid upto x_tl
18 #extend -i_end -i_mid_ ang 60 315
19 #join pt_i_b i_end 315
21 extend x_tr si_end uptoang 180 -315
22 extend -pt_i_c -i_begin uptoang 180 315
23 extend -pt_o_c -o_begin uptoang 180 315
24 #extend pt_o_a so_end uptoang 180 -315
25 rel si_end so_end 0 37
30 extend p_a e_a ang 270 -230
31 extend p_b e_b ang 270 230
34 abs tcp0_p_c 1500 1100 90
35 part tcp0 tricirpair p_c
37 abs tcp1_p_c 1500 400 90
38 part tcp1 ^tricirpair p_c
41 abs c230l$1x$2 $1 $2 90
42 extend c230l$1x$2 c230ll$1x$2 ang 359 230