/usr/lib/ocaml/lablgl/gluTess.ml is in liblablgl-ocaml-dev 1:1.05-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | (* $Id: gluTess.ml,v 1.7 2004-07-13 07:55:18 garrigue Exp $ *)
(* Code contributed by Jon Harrop *)
type winding_rule = [`odd|`nonzero|`positive|`negative|`abs_geq_two]
type vertices = (float * float * float) list
external tesselate :
?winding:winding_rule -> ?boundary_only:bool -> ?tolerance:float ->
vertices list -> unit
= "ml_gluTesselate"
type triangles =
{ singles: vertices list; strips: vertices list; fans: vertices list }
external tesselate_and_return :
?winding:winding_rule -> ?tolerance:float -> vertices list -> triangles
= "ml_gluTesselateAndReturn"
|