From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Mon, 29 Nov 2010 01:53:23 +0000 (+0000)
Subject: layout/parts.i4: attempt at a non-broken segment assignment for slips
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=commitdiff_plain;h=81927915b2e7e367c791f553c19c4da735b61718;p=trains.git

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

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