diff options
Diffstat (limited to 'path/fixed.ml')
-rwxr-xr-x | path/fixed.ml | 7 |
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 |