From: ian <ian>
Date: Sat, 7 Feb 2004 00:20:22 +0000 (+0000)
Subject: some experiments on layer 0
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=cf303a19416b2b680296d66cab1da8a0d7cd0fb1;p=trains.git

some experiments on layer 0
---

diff --git a/layout/ours.m4 b/layout/ours.m4
index 22c2e9b..3449518 100644
--- a/layout/ours.m4
+++ b/layout/ours.m4
@@ -143,6 +143,43 @@ extend -l3_ptl -l3_tlc7 ang 60 -389
 extend -l2_ptl -l2_tcl7 ang 60 -352
 extend -l0_jtl_c -l0_tcl7 ang 60 -315
 
+part l45_lx scis_shino tl l4_ct
+
+part l4_shbr pt_peco_sl c l4_cl
+
+#---------- station
+
+layer 0
+
+rel sq_br_i sta_far_4 30 300 -175
+extend -sta_far_4 -sta_plat_4 len 1118
+
+rel sta_far_4 sta_far_5 0 30
+extend -sta_far_5 -sta_plat_5 upto sta_plat_4
+
+part l4_stbr pt_peco_sl a sta_plat_4
+part l4_stbrx pt_peco_sr c -sta_plat_4
+
+extend l4_shbr_a l4_stbr_q ang 100 -315
+#join l4_shbr_a l4_stbr_c 315
+
+#---------- shunting yard
+
+layer 0
+
+rel sq_br_i shunt_f09 140 550 180
+extend -shunt_f09 -shunt_yp09_b len 400
+part shunt_yp09 pt_peco_sr b
+
+define(`extendyard',`
+ part $1_yp$2 pt_peco_sr a $1_yp$3_c
+ extend $1_yp$2_b $1_f$2 upto $1_f$3
+')
+
+extendyard(`shunt',`10',`09')
+extendyard(`shunt',`11',`10')
+extendyard(`shunt',`12',`11')
+
 
 #---------- hill branch (figure of 8)