--- a/Bezier.st	Wed Feb 12 19:19:15 1997 +0100
+++ b/Bezier.st	Wed Feb 12 19:28:25 1997 +0100
@@ -5,18 +5,6 @@
 	category:'Graphics-Geometry'
 !
 
-Bezier comment:'Bezier represents a type of parametric cubic curve.
-
-Instance Variables:
-        start                   <Point>         Starting point of curve.
-        end                             <Point>         End point of curve.
-        controlPoint1   <Point>         1st control point (associated with start).
-        controlPoint2   <Point>         2nd control point (associated with end).
-
-Class Variables:
-        ScaledFlatness          <Integer>       Flatness parameter
-'!
-
 !Bezier class methodsFor:'documentation'!
 
 documentation
@@ -60,31 +48,6 @@
     v displayPoint:50@50.
     v displayPoint:10@80.
                                                                         [exEnd]
-
-
-
-    effect of different values for flatness parameter:
-                                                                        [exBegin]
-    |win bz start end p1 p2 osf size|
-
-    win := StandardSystemView new.
-    win minExtent: (size := 500 @ 300).
-
-    start := 0@50.
-    end := 500@50.
-    p1 := 2@0.
-    p2 := 475@200.
-    osf := ScaledFlatness.
-    ScaledFlatness := 16 * 4096.
-    bz := Bezier start: start end: end controlPoint1: p1 controlPoint2: p2.
-
-    0 to: size y - 150 by: size y // 15 do:[:yo |
-        win add:(bz asPolyline asStroker) at: 0@yo.
-        ScaledFlatness := ScaledFlatness // 2
-    ].
-    ScaledFlatness := osf.
-    win open
-                                                                        [exEnd]
 "
 ! !
 
@@ -509,6 +472,6 @@
 !Bezier class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Bezier.st,v 1.2 1997-02-12 18:15:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Bezier.st,v 1.3 1997-02-12 18:28:25 cg Exp $'
 ! !
 Bezier initialize!