From 986a36b3728eba40789d6063997dafda67b519ec Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sun, 20 Dec 2020 06:38:04 +0100
Subject: Update

---
 path/point.ml | 74 -----------------------------------------------------------
 1 file changed, 74 deletions(-)

(limited to 'path/point.ml')

diff --git a/path/point.ml b/path/point.ml
index 7a32ae1..83cb168 100755
--- a/path/point.ml
+++ b/path/point.ml
@@ -30,77 +30,3 @@ let get_coord'
     let open Gg.V2 in
     let trans = of_polar @@ v t.size t.angle in
     t.p + trans
-
-module Repr = CanvaPrinter
-
-type 'a repr =
-  { back: ('a Repr.t -> 'a Repr.t)
-  ; path: ('a Repr.t)
-  ; last_point : t option
-  }
-
-let create_path
-  : unit -> 'a repr
-  = fun () ->
-    { back = Repr.close
-    ; path = Repr.create ()
-    ; last_point = None
-    }
-
-(* Start a new path. *)
-let start
-  : t -> 'a repr -> 'a repr
-  = fun t {back; path; _} ->
-    let path = Repr.move_to (get_coord t) path in
-    let line' = Repr.line_to (get_coord' t) in
-    { back = (fun p -> back @@ line' p)
-    ; path
-    ; last_point = Some t
-    }
-
-let line_to
-  : t -> 'a repr -> 'a repr
-  = fun t {back; path; _} ->
-    let line' = Repr.line_to (get_coord' t) in
-    { back = (fun t -> back @@ line' t)
-    ; path = Repr.line_to t.p path
-    ; last_point = Some t
-    }
-
-let quadratic_to
-  : t -> t -> t -> t -> 'a repr -> 'a repr
-  = fun p0 ctrl0 ctrl1 p1 t ->
-
-    let line' path =
-      Repr.quadratic_to
-        (get_coord' ctrl1)
-        (get_coord' ctrl0)
-        (get_coord' p0) path in
-
-    let path = Repr.quadratic_to
-        (get_coord ctrl0)
-        (get_coord ctrl1)
-        (get_coord p1)
-        t.path in
-    { back = (fun p -> t.back @@ line' p)
-    ; path
-    ; last_point = Some p1
-    }
-
-let stop
-  : 'a repr -> 'a repr
-  = fun {back; path; last_point} ->
-
-    let path =
-      match last_point with
-      | Some point -> Repr.line_to (get_coord' point) path
-      | None -> path in
-
-    { back = (fun x -> x)
-    ; path = back path
-    ; last_point = None }
-
-let get
-  : 'a repr -> 'a Repr.t
-  = fun {back; path; _} ->
-    back path
-- 
cgit v1.2.3