From: ian <ian>
Date: Fri, 6 Feb 2004 23:23:07 +0000 (+0000)
Subject: atlas crossings
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=7ea4a9fb72f2a0b92a2da7c167491aea566d9e54;p=trains.git

atlas crossings
---

diff --git a/layout/parts.i4 b/layout/parts.i4
index 4abd189..c5aec8f 100644
--- a/layout/parts.i4
+++ b/layout/parts.i4
@@ -69,6 +69,19 @@ def_crossing(`peco_l',  4,   93.75)
 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)
@@ -79,7 +92,7 @@ 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')