layout/parts.i4: attempt at a non-broken segment assignment for slips

diff --git a/layout/parts.i4 b/layout/parts.i4
index b178c1906c59cbd4cabc8dd8a773a7fa981d8574..2b90aaa75a688891b2f95e3cce59b04a82889d18 100644 (file)
--- a/layout/parts.i4
+++ b/layout/parts.i4
@@ -152,16 +152,16 @@ dnl OBJNAME-EXCLUDING-SLIP2 HALF-LEN HALF-ANG
   abs m 200 200 0
   rel m ml 0 0  $3
   rel m mr 0 0 -$3
-  segment /S2
-  extend ml tl len $2
-  segment -/S2
-  extend ml br len -$2
-  segment /S1
-  extend mr tr len $2
-  segment -/S1
-  extend mr bl len -$2
+  rel ml tl  $2
+  rel ml br -$2
+  rel mr tr  $2
+  rel mr bl -$2
   segment /S0
   join bl tl 500
+  segment /S1
+  join bl tr 500
+  segment /S2
+  join br tl 500
   segment /S3
   join br tr 500
  enddef