many shinohara points

diff --git a/layout/parts.i4 b/layout/parts.i4
index 625296345535edcc02dda3f414967b9022d2825e..0d7f4b8024020747dcfc70f1eda208a8b8fbc213 100644 (file)
--- 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