From: ian <ian>
Date: Thu, 5 Feb 2004 13:45:54 +0000 (+0000)
Subject: many shinohara points
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=e054180b2439941cafd691288047d4a4f0251643;p=trains.git

many shinohara points
---

diff --git a/layout/parts.i4 b/layout/parts.i4
index 6252963..0d7f4b8 100644
--- a/layout/parts.i4
+++ b/layout/parts.i4
@@ -67,3 +67,36 @@ def_point_y(`peco_y', 4, 127, 8.4)
 def_crossing(`mythical',7,   80)
 def_crossing(`peco_l',  4,   93.75)
 def_crossing(`peco_s', 12.5, 46)
+
+
+define(`def_point_shino',`
+dnl OBJNAME-EXCLUDING-PT-L($1) A($2) B($3) Q($4)
+dnl not R($5)
+ defpart pt_$1l
+  abs c 200 200 0
+  layer s
+  rel c strintersect $3 0 $4
+  rel strintersect strbackanal -$3
+  layer =
+  rel strbackanal b $2
+  join c b 1 arcline
+  extend c a len $2
+ enddef
+ def_thing_l_r(`pt_$1')
+')
+
+def_point_shino(`shino_4', 136, 45, 14.25)
+def_point_shino(`shino_6', 177, 49,  9.50)
+def_point_y(`shino_y', 7.125, 140, 10.9)
+
+defpart slip2_shino
+ abs m 200 200 0
+ rel m ml 0 0  4.75
+ rel m mr 0 0 -4.75
+ extend ml tl len 114
+ extend mr tr len 114
+ extend ml br len -114
+ extend mr bl len -114
+ join bl tl 500
+ join br tr 500
+enddef