From: ian <ian>
Date: Fri, 30 Jan 2004 02:45:46 +0000 (+0000)
Subject: single track for fig-8, improving plausibility, still strange
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=dc927bcac5bafd03106e01b6a3f4f268a0d3209e;p=trains.git

single track for fig-8, improving plausibility, still strange
---

diff --git a/layout/ours.m4 b/layout/ours.m4
index 85c2964..aeb5a60 100644
--- a/layout/ours.m4
+++ b/layout/ours.m4
@@ -1,16 +1,38 @@
 include(`parts.i4')
 
-abs mid_x_l_m 800 500 90
-obj cross_peco_s mid_x_l_m m mid_x_l_
-obj cross_peco_s mid_x_l_tr bl mid_x_t_
-obj cross_peco_s mid_x_l_br tl mid_x_b_
-obj cross_peco_s mid_x_t_br tl mid_x_r_
+abs midx_m 830 500 90
+obj cross_peco_s midx_m m midx_
 
 abs dem_tljp_m 200 200 0
 obj pt_peco_mr dem_tljp_m c dem_tljp_
 
-extend mid_x_t_tl tlj_o_b_ parallel dem_tljp_b -315
-obj cross_mythical -tlj_o_b_ tr tlj_cross_i_
+obj cross_peco_s dem_tljp_m bl dem_trjp_
+
+extend midx_tl tlj0_b_ parallel dem_tljp_b -315
+obj pt_peco_mr -tlj0_b_ b tlj0_
+extend -tlj0_c lst0_ uptoang -90 -315
+rel lst0_ lst1 0 37 180
+rel lst1 lst2 0 -37
+rel lst2 lst3 0 -37
+
+extend midx_tr trj0_b parallel dem_trjp_tl 315
+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
+
+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_