rel m mr 0 0 -$2
segment F
extend mr tr len $3
- segment -F
extend mr bl len -$3
segment B
extend ml tl len $3
- segment -B
extend ml br len -$3
enddef
')
-def_point_ord(`peco_s', 22.5, 87, -0.5, 17, 200) # not minr 230 ?
-def_point_ord(`peco_m', 14, 126.5,-1.55,13.21, 315) # not minr 457 ?
-def_point_ord(`peco_l', 8, 160, -0.4, 13.21, 914)
+def_point_ord(`peco_s', 22.5, 87, -0.5, 17, 200) #ST-5,6 not minr 230 ?
+def_point_ord(`peco_m', 14, 126.5,-1.55,13.21, 315) #SL-395,396 not minr 457 ?
+def_point_ord(`peco_l', 8, 160, -0.4, 13.21, 914) #SL-388,389
# catalogue says 123.7 for STRAIGHT-L ?!
+ # SL-<n> and SL-E<n> have the same geometry
+
+def_point_ord(`pecofguess_l', 10, 160, -1.0, 13.21, 800) #SLE-388F,389F
+ # not minr 914 ?
+ # 36 sleepers just like 36
+ # has 5.2mm gauge, 8.15mm rails offset:
+ # unlike 4.9mm gauge, 7.15mm rails offset:
+ # SL-<n>F and SL-<n> do NOT have the same geometry
def_point_curve(`peco_c', 10, 154.4, 13.8, 3, 156.0, 0.8, 457)
dnl 163.2- } dist to markings on paper cribsheet from c
def_point_y(`peco_y', 4, 127, 8.4, 800) # not minr 762 ?
#def_crossing(`mythical',7, 80)
-def_crossing(`peco_l', 4, 93.75)
-def_crossing(`peco_s', 12.5, 46)
-def_crossing(`pecof_s', 10, 51.85)
+def_crossing(`peco_l', 4, 93.75) # SL-394
+def_crossing(`peco_s', 12.5, 46) # ST-7
+def_crossing(`pecof_s', 10, 51.85) # SL-E391F,E392F
+def_crossing(`pecof_l', 5, 77.00) # SL-E394F
def_crossing(`atlas_15', 7.5, 64)
layer p
rel cout bl -40 -40
rel cout br -40 40
- extend bl tl len 100
- extend br tr len 100
+ extend bl tl len 89
+ extend br tr len 89
join tl -tr 0.1
enddef
+
+#ident $Revision$