Source

Triangulator / client.ml

Full commit
open Geometry;;
open Triangulator;;

let q = {x=1.0;y=1.0};;
let qq = {xx=1.0;yy=1.0;zz=1.0};;

let f = triangulate [qq] [[1;2;3;4;5]];;

print_int (List.length f);;
print_newline ();;
print_endline "lalala";;