4 part midx cross_peco_s m
6 define(`pt_main_r',`pt_peco_mr')
10 part pt_i pt_peco_lr c ic
11 part x cross_peco_l br pt_i_a
12 part pt_o pt_peco_lr b x_bl
15 extend pt_o_a oa upto ia
22 part main_up ^pt_main_r c right b right_main_up
23 part main_down pt_main_r c right b right_main_down
24 part short_down pt_peco_sr c right b right_short_down
26 part main_left ^pt_main_r c up b up_main_left
27 part main_right pt_main_r c up b up_main_right
28 part dualjn_tr ^dualjn_peco_r ib -right
31 #abs demos_right 200 1200 0
32 #part demos demos right
34 extend midx_tr -l0_jtr_b parallel demos!right_main_up 315
35 part l0_jtr ^pt_main_r b
37 extend midx_tl -l0_jtl_b parallel demos!-right_main_down -315
38 part l0_jtl pt_main_r b
40 extend -midx_bl -hj_a len 10 315
43 #rel l0_jblx_c l2_pblx 0 37
44 #rel l2_pblx l3_pblx 0 37
45 #extend -l0_lst l0_jblx_c uptoang 0 -315
47 extend -hj_c -l0_jbl_b parallel demos!right_main_up 315
48 part l0_jbl ^pt_main_r b
50 extend -l0_jbl_c l0_lst uptoang 90 315
51 rel l0_lst l2_lst 0 -37
52 rel l2_lst l3_lst 0 -37
53 #rel l3_lst l4_lst 0 -37
54 #rel l4_lst l5_lst 0 -37
56 rel -l0_jbl_c l2_pbl 0 -37
57 rel l2_pbl l3_pbl 0 -37
59 extend -l0_jtr_c l0_rst uptoang -90 315
60 rel l0_rst l2_rst 0 -37
61 rel l2_rst l3_rst 0 -37
63 extend -l0_jtr_c l0p_dj parallel demos!dualjn_tr_ic 315
64 rel l0p_dj -l23_dj_ic 0 -37
65 part l23_dj ^dualjn_peco_r ic
67 extend l23_dj_oa l3_sh uptoang 180 -315
72 extend l3_pbl -h_bbll upto l3_lst
74 extend h_bbll h_bbll_c len 150
75 part h_bbll ^pt_peco_sr c
76 extend h_bbll_b -h_bll_b uptoang 80 -230
77 part h_bll pt_peco_sr b
80 extend h_bll_a -demo_h_bbl_b parallel demos!right_short_down -230
81 part demo_h_bbl pt_peco_sr b
83 extend hj_b hj_s1 len 0.0040
84 extend hj_s1 hj_s2 uptoang 135 -230
85 #extend hj_s2 hj_ct uptoang 180 -230
87 extend -h_bll_c -hj_s9 ang 40 -230