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_a oa
+ 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
-rel l0_rst -l23_dj_ic 37 -37
+#rel l0_rst -l23_dj_ic 37 -37
+rel -l0_jtr_c -l23_dj_ic 37 -37 -8
part l23_dj ^dualjn_peco_r ic
+extend l23_dj_oa l3_sh uptoang 180 -315
#rel l2_rst l3_rst 0 -37