From e5c2a971644746818f8764481c60c4c5cf1a80c4 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Thu, 17 Dec 2020 22:29:25 +0100
Subject: Moved path builder in a dedicated file

---
 path/draw.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'path/draw.ml')

diff --git a/path/draw.ml b/path/draw.ml
index 757c778..ba5272a 100755
--- a/path/draw.ml
+++ b/path/draw.ml
@@ -2,6 +2,7 @@ open StdLabels
 module Path = Brr_canvas.C2d.Path
 
 module Point = Point
+module Builder = Builder
 
 (** Translate the point in the canva area *)
 let translate_point
@@ -17,7 +18,6 @@ let translate_point'
     translate_point ~area
       (point + vect)
 
-
 (* Draw a straight line between two points *)
 let line
   : Gg.v2 -> p1:Point.t -> Path.t -> unit
@@ -138,7 +138,7 @@ let go_back
   : ?connexion:Point.t -> area:Gg.v2 -> Brr_canvas.C2d.Path.t -> path -> unit
   = fun ?connexion ~area canvaPath path ->
     let vect = Gg.V2.of_polar @@ Gg.V2.v
-        0.02
+        0.01
         Gg.Float.pi_div_4
     in
     match connexion, path with
-- 
cgit v1.2.3