lablGL/glClear.ml

   1 (* $Id: glClear.ml,v 1.5 2000-04-12 07:40:23 garrigue Exp $ *)
   2
   3 open Gl
   4
   5 external accum : float -> float -> float -> float -> unit
   6     = "ml_glClearAccum"
   7 let accum ?(alpha=1.) (r,g,b : rgb) =
   8   accum r g b alpha
   9
  10 type buffer = [`color|`depth|`accum|`stencil]
  11 external clear : buffer list -> unit = "ml_glClear"
  12
  13 external color :
  14     red:float -> green:float -> blue:float -> alpha:float -> unit
  15     = "ml_glClearColor"
  16 let color ?(alpha=1.) (red, green, blue : rgb) =
  17   color ~red ~green ~blue ~alpha
  18 external depth : clampf -> unit = "ml_glClearDepth"
  19 external index : float -> unit = "ml_glClearIndex"
  20 external stencil : int -> unit = "ml_glClearStencil"