Source

Triangulator / triangulator.ml

Full commit
(* triangulator implementation *)
open Geometry;;
open Query;;

let triangulate (verts: point3 list) (ids: int list list) =
  let plane = get_plane verts in
  let matrix = transform_matrix plane in
    (* projection = [point2 list] *)
  let projection = apply_transform matrix verts in
  let my_query = Source (ref (ref (Sink Plane))) in
    
    (* list of triangles *)
    [];;