def_crossing(`peco_s', 12.5, 46)
+def_crossing(`atlas_15', 7.5, 64)
+def_crossing(`atlas_15m', 7.5, 61)
+def_crossing(`atlas_90', 45, 62.4)
+def_crossing(`atlas_90m', 45, 8.5)
+def_crossing(`atlas_30', 15, 32.9)
+def_crossing(`atlas_30m', 15, 30.9)
+def_crossing(`atlas_60', 30, 48.5)
+def_crossing(`atlas_60m', 30, 14.5)
+def_crossing(`atlas_20', 10, 63.5)
+def_crossing(`atlas_20m', 10, 46.0)
+def_crossing(`atlas_45', 22.5, 50.9)
+def_crossing(`atlas_45m', 22.5, 19.5)
+
define(`def_point_shino',`
dnl OBJNAME-EXCLUDING-PT-L($1) A($2) B($3) Q($4)
dnl not R($5)
rel strintersect strbackanal -$3
layer =
rel strbackanal b $2
- join c b 1 arcline
+ join c b 240 arcline
extend c a len $2
enddef
def_thing_l_r(`pt_$1')