chiark / gitweb /
single track for fig-8, improving plausibility, still strange
[trains.git] / layout / ours.m4
1 include(`parts.i4')
2
3 abs midx_m 830 500 90
4 obj cross_peco_s midx_m m midx_
5
6 abs dem_tljp_m 200 200 0
7 obj pt_peco_mr dem_tljp_m c dem_tljp_
8
9 obj cross_peco_s dem_tljp_m bl dem_trjp_
10
11 extend midx_tl tlj0_b_ parallel dem_tljp_b -315
12 obj pt_peco_mr -tlj0_b_ b tlj0_
13 extend -tlj0_c lst0_ uptoang -90 -315
14 rel lst0_ lst1 0 37 180
15 rel lst1 lst2 0 -37
16 rel lst2 lst3 0 -37
17
18 extend midx_tr trj0_b parallel dem_trjp_tl 315
19 obj cross_peco_s trj0_b br trj0_
20 extend trj0_tr rst0 uptoang -90 315
21 rel rst0 rst1 0 -37
22 rel rst1 rst2 0 -37
23 rel rst2 rst3 0 -37
24
25 extend trj0_tl trj1_b_ uptoang 14 315
26 obj pt_peco_ml -trj1_b_ b trj1_
27 extend -trj1_c rst1b uptoang -90 315
28
29 rel rst1b rst2b 0 -37
30 rel rst2b rst3b 0 -37
31
32
33 #join tlj0_a trj0_bl 0
34
35 #obj cross_peco_s 
36
37 #obj pt_peco_mr tlj_cross_i_bl b tlj_pt_o_
38 #obj pt_peco_mr -tlj_pt_i_b_ b tlj_pt_i_