Blog integration

1 files changed, 4 insertions, 8 deletions

diff --git a/path/builder.ml b/path/builder.ml
index b77c60a..3ccad9c 100755
--- a/path/builder.ml
+++ b/path/builder.ml
@@ -328,7 +328,6 @@ module Make(Point:P) = struct
         Repr.stop repr
   end
 
-
   let box
     : bezier -> Gg.box2
     = fun bezier ->
@@ -338,7 +337,6 @@ module Make(Point:P) = struct
       |> (fun b -> Gg.Box2.add_pt b bezier.ctrl0)
       |> (fun b -> Gg.Box2.add_pt b bezier.ctrl1)
 
-
   let distance
     : Gg.v2 -> fixedPath -> float option =
     fun point beziers ->
@@ -353,6 +351,7 @@ module Make(Point:P) = struct
             begin match Gg.Box2.mem point box with
               | false -> res
               | true ->
+                (* TODO Evaluate the normal *)
                 res
             end
           | Curve bezier ->
@@ -373,12 +372,9 @@ module Make(Point:P) = struct
                 | None -> Some distance
                 | Some d -> if d < distance then res else (Some distance)
             end
-
-
         )
 
-
-
-
-
+  let id
+    : fixedPath -> int
+    = fun {id; _} -> id
 end