diff options
Diffstat (limited to 'path/draw.ml')
-rwxr-xr-x | path/draw.ml | 4 |
1 files changed, 2 insertions, 2 deletions
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 |