From: ian <ian>
Date: Sat, 31 Jan 2004 21:59:40 +0000 (+0000)
Subject: abortive jr
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=b8e7389a04fcd6d0730e0d0c0b495986edec7253;p=trains.git

abortive jr
---

diff --git a/layout/ours.m4 b/layout/ours.m4
index 96e6863..3eebb7f 100644
--- a/layout/ours.m4
+++ b/layout/ours.m4
@@ -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