abstract away slip2 and scis

diff --git a/layout/parts.i4 b/layout/parts.i4
index 80055f10a68e7d8cda4752f8cb71eb61a56d77cb..dcd45e834806adbd3abb642c6e2766e76f79fa1b 100644 (file)
--- a/layout/parts.i4
+++ b/layout/parts.i4
@@ -128,33 +128,45 @@ enddef
 #  objflip pt_shino_cl c c =
 #enddef
 
-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
+define(`def_slip2',`
+dnl OBJNAME-EXCLUDING-SLIP2 HALF-LEN HALF-ANG
+ defpart slip2_$1
+  abs m 200 200 0
+  rel m ml 0 0  $3
+  rel m mr 0 0 -$3
+  extend ml tl len $2
+  extend mr tr len $2
+  extend ml br len -$2
+  extend mr bl len -$2
+  join bl tl 500
+  join br tr 500
+ enddef
+')
+
+def_slip2(`shino', 114, 4.75)
 
-defpart scis_shino
+define(`def_scis',`
+dnl OBJNAME-EXCLUDING-SCIS HALF-LENGTH HALF-SPACING HALF-ANG MIN-R
+ defpart scis_$1
   abs bl 200 200 0
-  rel bl br 0 33 0
-  extend bl tl len 308
-  extend br tr len 308
+  rel bl m $2 $3
+  rel m br -$2 $3
+  extend bl ml len $2
+  extend ml tl len $2
+  extend br mr len $2
+  extend mr tr len $2
   layer s
-  rel bl m 154 16.5
-  rel m ml 0 0 9.5
-  rel m mr 0 0 -9.5
+  rel m mxl 0 0 $4
+  rel m mxr 0 0 -$4
   layer =
-  join bl mr 315
-  join mr tr 315
-  join br ml 315
-  join ml tl 315
-enddef
+  join bl mxr $5
+  join mxr tr $5
+  join br mxl $5
+  join mxl tl $5
+ enddef
+')
+
+def_scis(`shino', 154, 16.5, 9.5, 315)
 
 define(`tt_do_circle',`
  layer s