aboutsummaryrefslogtreecommitdiff
path: root/script.ml
diff options
context:
space:
mode:
authorSébastien Dailly <sebastien@chimrod.com>2020-12-20 06:38:04 +0100
committerSébastien Dailly <sebastien@chimrod.com>2020-12-20 06:38:04 +0100
commit986a36b3728eba40789d6063997dafda67b519ec (patch)
treef0c26704df237b5ccad380596c49a3b13eeac14f /script.ml
parent01c0f5faf98b78d44aaae7f70e0cf4229ad8ed91 (diff)
Update
Diffstat (limited to 'script.ml')
-rwxr-xr-xscript.ml3
1 files changed, 2 insertions, 1 deletions
diff --git a/script.ml b/script.ml
index be7fe8e..198453f 100755
--- a/script.ml
+++ b/script.ml
@@ -8,6 +8,7 @@ module Point = Draw.Point
module Path = Draw
module Path_Builder = Path.Builder.Make(Point)
+module Path_Printer = Path_Builder.Draw(Path.WireFrame)
type mode =
| Edit
@@ -199,7 +200,7 @@ let on_change canva mouse_position state =
state.current
in
- let path = Point.get @@ Path_Builder.draw current in
+ let path = Draw.WireFrame.get @@ Path_Printer.draw current in
stroke context path;
(*