/usr/lib/ocaml/lablgl/glMap.ml is in liblablgl-ocaml-dev 1:1.05-1.
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 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | (* $Id: glMap.ml,v 1.4 2008-01-10 05:50:37 garrigue Exp $ *)
external eval_coord1 : float -> unit = "ml_glEvalCoord1d"
external eval_coord2 : float -> float -> unit = "ml_glEvalCoord2d"
external eval_mesh1 : mode:[`point|`line] -> int -> int -> unit
= "ml_glEvalMesh1"
let eval_mesh1 ~mode ~range:(u1,u2) = eval_mesh1 ~mode u1 u2
external eval_mesh2 :
mode:[`point|`line|`fill] -> int -> int -> int -> int -> unit
= "ml_glEvalMesh2"
let eval_mesh2 ~mode ~range1:(u1,u2) ~range2:(v1,v2) =
eval_mesh2 ~mode u1 u2 v1 v2
external eval_point1 : int -> unit = "ml_glEvalPoint1"
external eval_point2 : int -> int -> unit = "ml_glEvalPoint2"
type target =
[ `vertex_3
| `vertex_4
| `index
| `color_4
| `normal
| `texture_coord_1
| `texture_coord_2
| `texture_coord_3
| `texture_coord_4 ]
external map1 :
target:target -> (float*float) -> order:int -> [`double] Raw.t -> unit
= "ml_glMap1d"
external map2 :
target:target -> (float*float) -> order:int ->
(float*float) -> order:int -> [`double] Raw.t -> unit
= "ml_glMap2d_bc" "ml_glMap2d"
external grid1 : n:int -> range:(float * float) -> unit
= "ml_glMapGrid1d"
external grid2 :
n1:int -> range1:(float * float) ->
n2:int -> range2:(float * float) -> unit
= "ml_glMapGrid2d"
|