include(`parts.i4')

abs midx_m 830 500 90
part midx cross_peco_l m

define(`pt_main_r',`pt_peco_mr')

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
  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
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 -l0_jtl_c -l0_lst uptoang -90 -315
rel l0_lst l2_lst 0 -37
rel l2_lst l3_lst 0 -37
eof
rel lst1 lst2 0 -37
rel lst2 lst3 0 -37

extend midx_tr trj0_b parallel dem_trjp_b 315

obj pt_peco_ml -trj0_b b trj0_
obj pt_peco_mr -trj0_c c trj0b_
extend trj0b_a trj1_b ang 60 315
#extend -trj0_c trj1_b ang 60 315
obj pt_peco_ml -trj1_b b trj1_

#obj cross_peco_s trj0_b br trj0_
#extend trj0_tr rst0 uptoang -90 315
#rel rst0 rst1 0 -37
#rel rst1 rst2 0 -37
#rel rst2 rst3 0 -37

#extend trj0_tl trj1_b_ uptoang 14 315
#obj pt_peco_ml -trj1_b_ b trj1_

#extend -trj1_c rst1b uptoang -90 315
extend -trj1_c rst1b uptoang -90 315
rel rst1b rst2b 0 -37
rel rst2b rst3b 0 -37


#join tlj0_a trj0_bl 0

#obj cross_peco_s 

#obj pt_peco_mr tlj_cross_i_bl b tlj_pt_o_
#obj pt_peco_mr -tlj_pt_i_b_ b tlj_pt_i_