diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-17 22:29:25 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2020-12-17 22:29:25 +0100 |
commit | e5c2a971644746818f8764481c60c4c5cf1a80c4 (patch) | |
tree | 2719a0c0c64f71c3277addb33ab1562602ba10cc /path/draw.ml | |
parent | 20d10a93e5becb41d1145f9d35136782365b0ba4 (diff) |
Moved path builder in a dedicated file
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 |