6 part midx cross_peco_s m
8 define(`pt_main_r',`pt_peco_mr')
12 part pt_i pt_peco_lr c ic
13 part x cross_peco_l br pt_i_a
14 part pt_o pt_peco_lr b x_bl
17 extend pt_o_a oa upto ia
24 part main_up ^pt_main_r c right b right_main_up
25 part main_down pt_main_r c right b right_main_down
26 part short_down pt_peco_sr c right b right_short_down
28 part main_left ^pt_main_r c up b up_main_left
29 part main_right pt_main_r c up b up_main_right
30 part dualjn_tr ^dualjn_peco_r ib -right
33 #abs demos_right 200 1200 0
34 #part demos demos right
36 extend midx_tr -l0_jtr_b parallel demos!right_main_up 315
37 part l0_jtr ^pt_main_r b
39 extend midx_tl -l0_jtl_b parallel demos!-right_main_down -315
40 part l0_jtl pt_main_r b
41 rel l0_jtl_c l2_ptl 0 -37
42 rel l2_ptl l3_ptl 0 -37
43 rel l3_ptl l4_ptl 0 -37
44 rel l4_ptl l5_ptl 0 -37
46 extend -midx_bl hj_c len 10 315
49 extend hj_a -l0_jbl_b parallel demos!right_main_up 315
50 part l0_jbl ^pt_main_r b
52 extend -l0_jbl_c l0_lst uptoang 90 315
53 rel l0_lst l2_lst 0 -37
54 rel l2_lst l3_lst 0 -37
55 #rel l3_lst l4_lst 0 -37
56 #rel l4_lst l5_lst 0 -37
58 rel -l0_jbl_c l2_pbl 0 -37
59 rel l2_pbl l3_pbl 0 -37
61 extend -l0_jtr_c l0_rst uptoang -90 315
62 rel l0_rst l2_rst 0 -37
63 rel l2_rst l3_rst 0 -37
65 extend -l0_jtr_c l0p_dj parallel demos!dualjn_tr_ic 315
66 rel l0p_dj -l23_dj_ic 0 -37
67 part l23_dj ^dualjn_peco_r ic
69 extend l23_dj_oa l3_sh uptoang 180 -315
72 extend l3_pbl sq_bl_o upto l3_lst
73 rel sq_bl_o sq_bl_i 0 0 -90
75 extend sq_bl_i sq_tl_o upto l5_ptl
76 rel sq_tl_o sq_tl_i 0 0 -90
78 extend sq_tl_i sq_tr_o upto l3_rst
79 rel sq_tr_o sq_tr_i 0 0 -90
81 extend sq_tr_i sq_br_o upto sq_bl_i
82 rel sq_br_o sq_br_i 0 0 -90
84 extend sq_br_i sq_bl_o2 upto sq_bl_o
88 rel sq_tl_i l4_ct 352 37 180
90 extend l4_ct l4_cl ang 90 -315
91 extend l5_ct l5_cl ang 90 -352
93 extend l3_lst l3_tlc5 ang 30 389
94 extend l2_lst l2_tlc5 ang 30 352
95 extend l0_lst l0_tlc5 ang 30 315
97 extend -l3_ptl -l3_tlc7 ang 60 -389
98 extend -l2_ptl -l2_tcl7 ang 60 -352
99 extend -l0_jtl_c -l0_tcl7 ang 60 -315
106 rel sq_bl_i h_bl_l 230 0 180
107 extend h_bl_l h_bl_b ang 90 -230
109 extend -h_bl_l -h_bre upto l0_lst 230
110 extend -h_bre -h_brj1 len 20 230
111 extend -h_brj1 -h_brjm len 30
112 extend -h_brjm -h_brj0 len 30
113 extend -h_brj0 -h_brh len 80 230
114 extend -h_brh -h_8m uptoang -35 230
115 extend -h_8m -h_8b uptoang 245 -230
117 rel l0_tlc5 h_ub 0 45
120 #extend -h_ub -h_pbl_c parallel l0_jbl_c -270
121 rel l0_jbl_c -h_pbl_c 0 -45
122 rel l0_jbl_b -h_pbl_b 0 -45
123 join h_pbl_c h_ub 230
124 join h_pbl_b h_pbl_c 230
125 extend -h_pbl_b -hj_p ang 40 -270
129 #extend -h_pbl_c -h_pbl_p parallel l0_jbl_c -278
130 #extend -h_ub -hj_p parallel hj_b -278
138 extend -sq_bl_o h_bbll_c len 150
139 part h_bbll ^pt_peco_sr c
140 extend h_bbll_b -h_bll_b uptoang 80 -230
141 part h_bll pt_peco_sr b
146 extend h_bll_a -demo_h_bbl_b parallel demos!right_short_down -230
147 part demo_h_bbl pt_peco_sr b
149 extend hj_b hj_s1 len 0.0040
150 extend hj_s1 hj_s2 uptoang 135 -230
151 #extend hj_s2 hj_ct uptoang 180 -230
153 extend -h_bll_c -hj_s9 ang 40 -230
154 #join hj_s2 hj_s9 230
157 extend -hj_s9 -hj_s9_e ang 180 230