join c r 315 arcline
enddef
-# this one is broken, because we don't have full details
-#defpart pt_shino_cl
-# abs c 200 200 -20
-# extend c a len 268 -315
-# rel a b -4 -18 10
-# join c b 275 twoarcs
-## extend c b upto a -285
-#enddef
-#defpart pt_shino_cr
-# abs c 200 200 20
-# objflip pt_shino_cl c c =
-#enddef
-
define(`def_slip2',`
dnl OBJNAME-EXCLUDING-SLIP2 HALF-LEN HALF-ANG
defpart slip2_$1