Interior curve evaluation

1 files changed, 6 insertions, 1 deletions

diff --git a/path/fixed.ml b/path/fixed.ml
index d61bb0a..1362ad3 100755
--- a/path/fixed.ml
+++ b/path/fixed.ml
@@ -179,7 +179,12 @@ module Make(Point:P) = struct
             | Curve bezier ->
               let point = f step.point in
               { point
-              ; move = Curve {bezier with p1 = f bezier.p1} }
+              ; move = Curve
+                    { p1 = f bezier.p1
+                    ; ctrl0 = Point.get_coord (f (Point.copy step.point bezier.ctrl0))
+                    ; ctrl1 = Point.get_coord (f (Point.copy bezier.p1 bezier.ctrl1))
+                    }
+              }
           )
 
   let iter