/usr/lib/ocaml/lablgl/glClear.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 | (* $Id: glClear.ml,v 1.5 2000-04-12 07:40:23 garrigue Exp $ *)
open Gl
external accum : float -> float -> float -> float -> unit
= "ml_glClearAccum"
let accum ?(alpha=1.) (r,g,b : rgb) =
accum r g b alpha
type buffer = [`color|`depth|`accum|`stencil]
external clear : buffer list -> unit = "ml_glClear"
external color :
red:float -> green:float -> blue:float -> alpha:float -> unit
= "ml_glClearColor"
let color ?(alpha=1.) (red, green, blue : rgb) =
color ~red ~green ~blue ~alpha
external depth : clampf -> unit = "ml_glClearDepth"
external index : float -> unit = "ml_glClearIndex"
external stencil : int -> unit = "ml_glClearStencil"
|