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
25 part main_left ^pt_main_r c up b up_main_left
26 part main_right pt_main_r c up b up_main_right
27 part dualjn_tr ^dualjn_peco_r ib -right
30 #abs demos_right 200 1200 0
31 #part demos demos right
33 extend midx_tr -l0_jtr_b parallel demos!right_main_up 315
34 part l0_jtr ^pt_main_r b
36 extend midx_tl -l0_jtl_b parallel demos!-right_main_down -315
37 part l0_jtl pt_main_r b
39 extend -midx_bl -hj_a len 10 315
42 extend -hj_c l0_lst uptoang 90 315
43 rel l0_lst l2_lst 0 -37
44 rel l2_lst l3_lst 0 -37
45 #rel l3_lst l4_lst 0 -37
46 #rel l4_lst l5_lst 0 -37
48 #rel l0_jblx_c l2_pblx 0 37
49 #rel l2_pblx l3_pblx 0 37
50 #extend -l0_lst l0_jblx_c uptoang 0 -315
52 extend -hj_c -l0_jbl_b parallel demos!right_main_up 315
53 part l0_jbl ^pt_main_r b
55 rel -l0_jbl_c l2_pbl 0 -37
56 rel l2_pbl l3_pbl 0 -37
58 extend -l0_jtr_c l0_rst uptoang -90 315
59 rel l0_rst l2_rst 0 -37
60 rel l2_rst l3_rst 0 -37
62 extend -l0_jtr_c l0p_dj parallel demos!dualjn_tr_ic 315
63 rel l0p_dj -l23_dj_ic 0 -37
64 part l23_dj ^dualjn_peco_r ic
66 extend l23_dj_oa l3_sh uptoang 180 -315