diff options
Diffstat (limited to 'layer/linePrinter.ml')
-rwxr-xr-x | layer/linePrinter.ml | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/layer/linePrinter.ml b/layer/linePrinter.ml deleted file mode 100755 index d223760..0000000 --- a/layer/linePrinter.ml +++ /dev/null @@ -1,68 +0,0 @@ -module Make(Repr: Repr.PRINTER) = struct - - type point = Path.Point.t - - let mark point path = - let open Gg.V2 in - let point = Path.Point.get_coord point in - - let dist = 5. - and dist' = -5. in - - let path = Repr.move_to (point - (of_tuple (dist, dist))) path - |> Repr.line_to ( point + (of_tuple (dist, dist))) - |> Repr.move_to (point + (of_tuple (dist', dist))) - |> Repr.line_to ( point + (of_tuple (dist, dist'))) - in - path - - - type t = - { path: (Repr.t) - } - - type repr = Repr.t - - let create_path - : 'b -> t - = fun _ -> - { path = Repr.create () - } - - let start - : point -> point -> t -> t - = fun p1 _ { path } -> - let path = mark p1 path in - { path - } - - let line_to - : (point * point) -> (point * point) -> t -> t - = fun (p0, p1) _ {path} -> - let path = Repr.move_to (Path.Point.get_coord p0) path - |> Repr.line_to (Path.Point.get_coord p1) - |> mark p1 in - { path - } - - let quadratic_to - : (point * Gg.v2 * Gg.v2 * point) -> (point * Gg.v2 * Gg.v2 * point) -> t -> t - = fun (p0, ctrl0, ctrl1, p1) _ {path} -> - - let path = Repr.move_to (Path.Point.get_coord p0) path - |> Repr.quadratic_to ctrl0 ctrl1 (Path.Point.get_coord p1) - |> mark p1 in - - { path = path } - - let stop - : t -> t - = fun path -> path - - - let get - : t -> Repr.t - = fun {path; _} -> - path - -end |