extend -l0_jtl_c -l0_lst uptoang -90 -315
rel l0_lst l2_lst 0 -37
rel l2_lst l3_lst 0 -37
+
+extend -l0_jtr_c l0_rst uptoang -90 315
+rel l0_rst l2_rst 0 -37
+
+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_a oa
+ rel x_tl ia
+ rel x_tr ob
+ rel pt_i_b ib
+enddef
+
+rel l0_rst -l23_dj_ic 37 -37
+part l23_dj ^dualjn_peco_r ic
+
+
+#rel l2_rst l3_rst 0 -37
+
+#rel -l2_rst l2_jr_c
+
+
+#rel l2_jr_c l3_jr_c 0 37
+#part l2_jr pt_peco_ll c
+#part l23_jrx cross_peco_l bl l2_jr_a
+#part l3_jr pt_peco_ll c
+
eof
rel lst1 lst2 0 -37
rel lst2 lst3 0 -37