chiark / gitweb /
hill loop, ok
[trains.git] / layout / ours.m4
1 include(`parts.i4')
2
3 layer 10
4
5 abs midx_m 930 700 90
6 part midx cross_peco_s m
7
8 define(`pt_main_r',`pt_peco_mr')
9
10 defobj dualjn_peco_r
11   abs ic 200 200 0
12   part pt_i pt_peco_lr c ic
13   part x cross_peco_l br pt_i_a
14   part pt_o pt_peco_lr b x_bl
15   rel pt_o_c oc
16   rel x_tl ia
17   extend pt_o_a oa upto ia
18   rel x_tr ob
19   rel pt_i_b ib
20 enddef
21
22 defobj demos
23   abs right 200 200 0
24   part main_up   ^pt_main_r  c right b right_main_up
25   part main_down  pt_main_r  c right b right_main_down
26   part short_down pt_peco_sr c right b right_short_down
27   abs up 200 200 90
28   part main_left  ^pt_main_r c up b up_main_left
29   part main_right  pt_main_r c up b up_main_right
30   part dualjn_tr ^dualjn_peco_r ib -right
31 enddef
32
33 #abs demos_right 200 1200 0
34 #part demos demos right
35
36 extend midx_tr -l0_jtr_b parallel demos!right_main_up 315
37 part l0_jtr ^pt_main_r b
38
39 extend midx_tl -l0_jtl_b parallel demos!-right_main_down -315
40 part l0_jtl pt_main_r b
41 rel l0_jtl_c l2_ptl 0 -37
42 rel l2_ptl l3_ptl 0 -37
43 rel l3_ptl l4_ptl 0 -37
44 rel l4_ptl l5_ptl 0 -37
45
46 extend -midx_bl hj_c len 10 315
47 part hj pt_peco_sr c
48
49 extend hj_a -l0_jbl_b parallel demos!right_main_up 315
50 part l0_jbl ^pt_main_r b
51
52 extend -l0_jbl_c l0_lst uptoang 90 315
53 rel l0_lst l2_lst 0 -37
54 rel l2_lst l3_lst 0 -37
55 #rel l3_lst l4_lst 0 -37
56 #rel l4_lst l5_lst 0 -37
57
58 rel -l0_jbl_c l2_pbl 0 -37
59 rel l2_pbl l3_pbl 0 -37
60
61 extend -l0_jtr_c l0_rst uptoang -90 315
62 rel l0_rst l2_rst 0 -37
63 rel l2_rst l3_rst 0 -37
64
65 extend -l0_jtr_c l0p_dj parallel demos!dualjn_tr_ic 315
66 rel l0p_dj -l23_dj_ic 0 -37
67 part l23_dj ^dualjn_peco_r ic
68
69 extend l23_dj_oa l3_sh uptoang 180 -315
70
71 layer l5
72 extend l3_pbl sq_bl_o upto l3_lst
73 rel sq_bl_o sq_bl_i 0 0 -90
74
75 extend sq_bl_i sq_tl_o upto l5_ptl
76 rel sq_tl_o sq_tl_i 0 0 -90
77
78 extend sq_tl_i sq_tr_o upto l3_rst
79 rel sq_tr_o sq_tr_i 0 0 -90
80
81 extend sq_tr_i sq_br_o upto sq_bl_i
82 rel sq_br_o sq_br_i 0 0 -90
83
84 extend sq_br_i sq_bl_o2 upto sq_bl_o
85
86 layer 10
87
88 rel sq_tl_i l4_ct 352 37 180
89 rel l4_ct l5_ct 0 37
90 extend l4_ct l4_cl ang 90 -315
91 extend l5_ct l5_cl ang 90 -352
92
93 extend l3_lst l3_tlc5 ang 30 389
94 extend l2_lst l2_tlc5 ang 30 352
95 extend l0_lst l0_tlc5 ang 30 315
96
97 extend -l3_ptl -l3_tlc7 ang 60 -389
98 extend -l2_ptl -l2_tcl7 ang 60 -352
99 extend -l0_jtl_c -l0_tcl7 ang 60 -315
100
101 # top level
102
103
104 layer 20
105
106 rel sq_bl_i h_bl_l 230 0 180
107 extend h_bl_l h_bl_b ang 90 -230
108
109 extend -h_bl_l -h_bre upto l0_lst 230
110 extend -h_bre -h_brj1 len 20 230
111 extend -h_brj1 -h_brjm len 30
112 extend -h_brjm -h_brj0 len 30
113 extend -h_brj0 -h_brh  len 80 230
114 extend -h_brh -h_8m uptoang -35 230
115 extend -h_8m -h_8b uptoang 245 -230
116
117 rel l0_tlc5 h_ub 0 45
118 join h_ub h_8b 230
119
120 #extend -h_ub -h_pbl_c parallel l0_jbl_c -270
121 rel l0_jbl_c -h_pbl_c 0 -45
122 rel l0_jbl_b -h_pbl_b 0 -45
123 join h_pbl_c h_ub 230
124 join h_pbl_b h_pbl_c 230
125 extend -h_pbl_b -hj_p ang 40 -270
126 join hj_b hj_p 230
127
128
129 #extend -h_pbl_c -h_pbl_p parallel l0_jbl_c -278
130 #extend -h_ub -hj_p parallel hj_b -278
131 #join hj_b hj_p 230
132
133 eof
134
135 layer 20s
136 extend -sq_bl_o 
137
138 extend -sq_bl_o h_bbll_c len 150
139 part h_bbll ^pt_peco_sr c
140 extend h_bbll_b -h_bll_b uptoang 80 -230
141 part h_bll pt_peco_sr b
142
143 eof
144
145 #silent:
146 extend h_bll_a -demo_h_bbl_b parallel demos!right_short_down -230
147 part demo_h_bbl pt_peco_sr b
148
149 extend hj_b hj_s1 len 0.0040
150 extend hj_s1 hj_s2 uptoang 135 -230
151 #extend hj_s2 hj_ct uptoang 180 -230
152
153 extend -h_bll_c -hj_s9 ang 40 -230
154 #join hj_s2 hj_s9 230
155 #join hj_s2 hj_s9 0
156
157 extend -hj_s9 -hj_s9_e ang 180 230
158
159 eof