chiark / gitweb /
atlas crossings
authorian <ian>
Fri, 6 Feb 2004 23:23:07 +0000 (23:23 +0000)
committerian <ian>
Fri, 6 Feb 2004 23:23:07 +0000 (23:23 +0000)
layout/parts.i4

index 4abd189c1c27a04de4be61f9029c123bcb8820d1..c5aec8fe4ea5707e0228fd168ebcd5035a50abd9 100644 (file)
@@ -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')