having trouble with the top

diff --git a/layout/ours.m4 b/layout/ours.m4
index 0a3aae40426a80c9b6cebf5402af36addbe54374..6a2a1f1502efe398138cd45f85cfaefbbb9d9c4b 100644 (file)
--- 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