include(`parts.i4') abs midx_m 930 700 90 part midx cross_peco_s m define(`pt_main_r',`pt_peco_mr') defobj dualjn_peco_r abs ic 200 200 0 part pt_i pt_peco_lr c ic part x cross_peco_l br pt_i_a part pt_o pt_peco_lr b x_bl rel pt_o_c oc rel x_tl ia extend pt_o_a oa upto ia rel x_tr ob rel pt_i_b ib enddef defobj demos abs right 200 200 0 part main_up ^pt_main_r c right b right_main_up part main_down pt_main_r c right b right_main_down part short_down pt_peco_sr c right b right_short_down abs up 200 200 90 part main_left ^pt_main_r c up b up_main_left part main_right pt_main_r c up b up_main_right part dualjn_tr ^dualjn_peco_r ib -right enddef #abs demos_right 200 1200 0 #part demos demos right extend midx_tr -l0_jtr_b parallel demos!right_main_up 315 part l0_jtr ^pt_main_r b extend midx_tl -l0_jtl_b parallel demos!-right_main_down -315 part l0_jtl pt_main_r b rel l0_jtl_c l2_ptl 0 -37 rel l2_ptl l3_ptl 0 -37 rel l3_ptl l4_ptl 0 -37 rel l4_ptl l5_ptl 0 -37 extend -midx_bl -hj_a len 10 315 part hj ^pt_peco_sr a #rel l0_jblx_c l2_pblx 0 37 #rel l2_pblx l3_pblx 0 37 #extend -l0_lst l0_jblx_c uptoang 0 -315 extend -hj_c -l0_jbl_b parallel demos!right_main_up 315 part l0_jbl ^pt_main_r b extend -l0_jbl_c l0_lst uptoang 90 315 rel l0_lst l2_lst 0 -37 rel l2_lst l3_lst 0 -37 #rel l3_lst l4_lst 0 -37 #rel l4_lst l5_lst 0 -37 rel -l0_jbl_c l2_pbl 0 -37 rel l2_pbl l3_pbl 0 -37 extend -l0_jtr_c l0_rst uptoang -90 315 rel l0_rst l2_rst 0 -37 rel l2_rst l3_rst 0 -37 extend -l0_jtr_c l0p_dj parallel demos!dualjn_tr_ic 315 rel l0p_dj -l23_dj_ic 0 -37 part l23_dj ^dualjn_peco_r ic extend l23_dj_oa l3_sh uptoang 180 -315 #thinlines: extend l3_pbl sq_bl_o upto l3_lst rel sq_bl_o sq_bl_i 0 0 -90 extend sq_bl_i sq_tl_o upto l5_ptl rel sq_tl_o sq_tl_i 0 0 -90 extend sq_tl_i sq_tr_o upto l3_rst rel sq_tr_o sq_tr_i 0 0 -90 extend sq_tr_i sq_br_o upto sq_bl_i rel sq_br_o sq_br_i 0 0 -90 extend sq_br_i sq_bl_o2 upto sq_bl_o #endthinlines rel sq_tl_i l4_ct 352 37 180 rel l4_ct l5_ct 0 37 extend l4_ct l4_cl ang 90 -315 extend l5_ct l5_cl ang 90 -352 extend l3_lst l3_tlc5 ang 30 389 extend l2_lst l2_tlc5 ang 30 352 extend l0_lst l0_tlc5 ang 30 315 extend -l3_ptl -l3_tlc7 ang 60 -389 extend -l2_ptl -l2_tcl7 ang 60 -352 extend -l0_jtl_c -l0_tcl7 ang 60 -315 # top level extend -sq_bl_o h_bbll_c len 150 part h_bbll ^pt_peco_sr c extend h_bbll_b -h_bll_b uptoang 80 -230 part h_bll pt_peco_sr b eof #silent: extend h_bll_a -demo_h_bbl_b parallel demos!right_short_down -230 part demo_h_bbl pt_peco_sr b extend hj_b hj_s1 len 0.0040 extend hj_s1 hj_s2 uptoang 135 -230 #extend hj_s2 hj_ct uptoang 180 -230 extend -h_bll_c -hj_s9 ang 40 -230 #join hj_s2 hj_s9 230 #join hj_s2 hj_s9 0 extend -hj_s9 -hj_s9_e ang 180 230 eof