extend with negative length gives negative rail sense (it seems)

diff --git a/layout/parts.i4 b/layout/parts.i4
index d6836b3d1442cf150f86290cc462bcd80b9a6604..47f1a3293339a977b54f34444e058a8e76989e0d 100644 (file)
--- a/layout/parts.i4
+++ b/layout/parts.i4
@@ -60,11 +60,9 @@ dnl OBJNAME-EXCLUDING-CROSS HALF-ANG HALF-LENGTH
   rel m mr 0 0 -$2
   segment F
   extend mr tr len $3
-  segment -F
   extend mr bl len -$3
   segment B
   extend ml tl len $3
-  segment -B
   extend ml br len -$3
  enddef
 ')