From: ian <ian>
Date: Sun, 1 Feb 2004 18:41:14 +0000 (+0000)
Subject: having trouble with the top
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=3b1cdbc4743c9854b4c226673316db6b60b9065a;p=trains.git

having trouble with the top
---

diff --git a/layout/ours.m4 b/layout/ours.m4
index 0a3aae4..6a2a1f1 100644
--- a/layout/ours.m4
+++ b/layout/ours.m4
@@ -19,8 +19,9 @@ enddef
 
 defobj demos
   abs right 200 200 0
-  part main_up   ^pt_main_r c right b right_main_up
-  part main_down  pt_main_r c right b right_main_down
+  part main_up   ^pt_main_r  c right b right_main_up
+  part main_down  pt_main_r  c right b right_main_down
+  part short_down pt_peco_sr c right b right_short_down
   abs up 200 200 90
   part main_left  ^pt_main_r c up b up_main_left
   part main_right  pt_main_r c up b up_main_right
@@ -65,4 +66,23 @@ part l23_dj ^dualjn_peco_r ic
 
 extend l23_dj_oa l3_sh uptoang 180 -315
 
+# top level
+
+#silent:
+extend l3_pbl -h_bbll upto l3_lst
+
+extend h_bbll h_bbll_c len 120
+part h_bbll ^pt_peco_sr c
+extend h_bbll_b -h_bll_b uptoang 80 -230
+part h_bll pt_peco_sr b
+
+#silent:
+extend h_bll_a -demo_h_bbl_b parallel demos!right_short_down -230
+part demo_h_bbl pt_peco_sr b
+
+extend hj_b hj_s1 len 40
+extend hj_s1 hj_s2 uptoang 135 -315
+#extend hj_s2 hj_ct uptoang 180 -230
+join hj_s2 h_bll_c 230
+
 eof