chiark / gitweb /
abortive jr
authorian <ian>
Sat, 31 Jan 2004 21:59:40 +0000 (21:59 +0000)
committerian <ian>
Sat, 31 Jan 2004 21:59:40 +0000 (21:59 +0000)
layout/ours.m4

index 96e68633a8a8cb472b8712f248fb6dbe708032b0..3eebb7f81b83030b25b98fb177969f5cf71d5b1f 100644 (file)
@@ -25,6 +25,35 @@ 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
+
+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