--- a/Bezier.st	Mon Nov 03 16:30:26 1997 +0100
+++ b/Bezier.st	Thu Nov 27 17:14:23 1997 +0100
@@ -336,14 +336,13 @@
     [
         p4X = x1 ifTrue:[
             "p4X = x1, i.e. dx = 0"
-            (x2 - x1) abs <= ScaledFlatness and: [(x3 - x1) abs <= ScaledFlatness]
+            (x2 - x1) abs <= ScaledFlatness 
+	    and: [(x3 - x1) abs <= ScaledFlatness]
         ] ifFalse:[
             dx3 := p4X - x1.
             dy3 := p4Y - y1.
 
-            (dx3 >= 0 ifTrue: [dx3] ifFalse: [0 - dx3]) >=
-             (dy3 >= 0 ifTrue: [dy3] ifFalse: [0 - dy3])
-            ifTrue:[
+            (dx3 abs >= dy3 abs) ifTrue:[
                 t := dy3 asFloat / dx3.
                 d := ((1.0 + (t * t)) sqrt * ScaledFlatness) rounded.
                 dist := (t * (x2 - x1)) rounded - (y2 - y1).
@@ -472,6 +471,6 @@
 !Bezier class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Bezier.st,v 1.3 1997-02-12 18:28:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Bezier.st,v 1.4 1997-11-27 16:14:23 cg Exp $'
 ! !
 Bezier initialize!