Fix corner case
[llpp.git] / lablGL / glClear.ml
blobbe01f1a615652452ed76ad010e477879fa962459
1 (* $Id: glClear.ml,v 1.5 2000-04-12 07:40:23 garrigue Exp $ *)
3 open Gl
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
10 type buffer = [`color|`depth|`accum|`stencil]
11 external clear : buffer list -> unit = "ml_glClear"
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"