From 81927915b2e7e367c791f553c19c4da735b61718 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Mon, 29 Nov 2010 01:53:23 +0000
Subject: [PATCH] layout/parts.i4: attempt at a non-broken segment assignment
 for slips

---
 layout/parts.i4 | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/layout/parts.i4 b/layout/parts.i4
index b178c19..2b90aaa 100644
--- 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
-- 
2.30.2