1 define(`def_thing_l_r',`
2 dnl OBJNAME-EXCLUDING-L
9 define(`def_point_ord',`
10 dnl OBJNAME-EXCLUDING-PT-L ANGLE STRAIGHT-L CURVE-LONGER CURVE-DIVERGE-Y
17 def_thing_l_r(`pt_$1')
20 define(`def_point_curve',`
21 dnl OBJNAME-EXCLUDING-PT-L TIGHT-ANG TIGHT-RECT TIGHT-DIVERGE-Y SHALLOW...
29 def_thing_l_r(`pt_$1')
32 define(`def_point_y',`
33 dnl OBJNAME-EXCLUDING-PT HALF-ANG RECT HALF-DIVERGE-Y
43 define(`def_crossing',`
44 dnl OBJNAME-EXCLUDING-CROSS HALF-ANG HALF-LENGTH
56 def_point_ord(`peco_s', 22.5, 87, -0.5, 17)
57 def_point_ord(`peco_m', 14, 126.5,-1.55,13.21)
58 def_point_ord(`peco_l', 8, 160, -0.4, 13.21)
59 # catalogue says 123.7 for STRAIGHT-L ?!
61 def_point_curve(`peco_c', 10, 154.4, 13.8, 3, 156.0, 0.8)
62 dnl 163.2- } dist to markings on paper cribsheet from c
65 def_point_y(`peco_y', 4, 127, 8.4)
67 def_crossing(`mythical',7, 80)
68 def_crossing(`peco_l', 4, 93.75)
69 def_crossing(`peco_s', 12.5, 46)
72 define(`def_point_shino',`
73 dnl OBJNAME-EXCLUDING-PT-L($1) A($2) B($3) Q($4)
78 rel c strintersect $3 0 $4
79 rel strintersect strbackanal -$3
85 def_thing_l_r(`pt_$1')
88 def_point_shino(`shino_4', 136, 45, 14.25)
89 def_point_shino(`shino_6', 177, 49, 9.50)
90 def_point_y(`shino_y', 7.125, 140, 10.9)
95 rel c strintersectc 74 0 9.5
96 rel c strintersectb 103 0 -12
98 rel strintersectc l 141
99 rel strintersectb r 112
111 extend ml br len -114
112 extend mr bl len -114