From 329b774e315b41bc0d5b7daf8737222768c8d1f3 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sat, 9 Jan 2021 11:35:40 +0100
Subject: Formalized exchanges between worker and app

---
 path/builder.ml | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

(limited to 'path/builder.ml')

diff --git a/path/builder.ml b/path/builder.ml
index fd772ea..7901e78 100755
--- a/path/builder.ml
+++ b/path/builder.ml
@@ -133,15 +133,15 @@ module Make(Point:P) = struct
 
           Repr.start p0 path
           |> Repr.quadratic_to
-            p0'
-            b0.Shapes.Bezier.ctrl0
-            b0.Shapes.Bezier.ctrl1
-            p1'
+            ( p0'
+            , b0.Shapes.Bezier.ctrl0
+            , b0.Shapes.Bezier.ctrl1
+            , p1' )
           |> Repr.quadratic_to
-            p1'
-            b1.Shapes.Bezier.ctrl0
-            b1.Shapes.Bezier.ctrl1
-            p2'
+            ( p1'
+            , b1.Shapes.Bezier.ctrl0
+            , b1.Shapes.Bezier.ctrl1
+            , p2' )
         | (p0::_ as points) ->
 
           let (let*) v f =
@@ -179,10 +179,10 @@ module Make(Point:P) = struct
                   let bezier = Array.get beziers (i - 1) in
 
                   path := Repr.quadratic_to
-                      !point
-                      bezier.Shapes.Bezier.ctrl0
-                      bezier.Shapes.Bezier.ctrl1
-                      pt
+                      ( !point
+                      , bezier.Shapes.Bezier.ctrl0
+                      , bezier.Shapes.Bezier.ctrl1
+                      , pt )
                       (!path);
                   point := pt;
                 )
@@ -195,11 +195,12 @@ module Make(Point:P) = struct
       Repr.stop @@ List.fold_left beziers
         ~init:path
         ~f:(fun path bezier ->
-            let p0' = bezier.p0
-            and ctrl0 = bezier.ctrl0
-            and ctrl1 = bezier.ctrl1
-            and p1' = bezier.p1 in
-            Repr.quadratic_to p0' ctrl0 ctrl1 p1' path
+            Repr.quadratic_to
+              ( bezier.p0
+              , bezier.ctrl0
+              , bezier.ctrl1
+              , bezier.p1 )
+              path
           )
 
 end
-- 
cgit v1.2.3