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

extend -midx_bl -hj_a len 10 315
part hj ^pt_peco_sr a

extend -hj_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_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

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

# top level

#silent:
extend l3_pbl -h_bbll upto l3_lst

extend h_bbll h_bbll_c len 120
part h_bbll ^pt_peco_sr c
extend h_bbll_b -h_bll_b uptoang 80 -230
part h_bll pt_peco_sr b

#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 40
extend hj_s1 hj_s2 uptoang 135 -315
#extend hj_s2 hj_ct uptoang 180 -230
join hj_s2 h_bll_c 230

eof