lablGL/glFunc.mli

   1 (* $Id: glFunc.mli,v 1.4 2000-04-03 02:57:41 garrigue Exp $ *)
   2
   3 val accum : op:[`accum|`add|`load|`mult|`return] -> float -> unit
   4
   5 val alpha_func : Gl.cmp_func -> ref:Gl.clampf -> unit
   6
   7 type sfactor =
   8   [`dst_alpha|`dst_color|`one|`one_minus_dst_alpha|`one_minus_dst_color
   9   |`one_minus_src_alpha|`src_alpha|`src_alpha_saturate|`zero]
  10 type dfactor =
  11   [`dst_alpha|`one|`one_minus_dst_alpha|`one_minus_src_alpha
  12   |`one_minus_src_color|`src_alpha|`src_color|`zero]
  13 val blend_func : src:sfactor -> dst:dfactor -> unit
  14
  15 val color_mask :
  16   ?red:bool -> ?green:bool -> ?blue:bool -> ?alpha:bool -> unit -> unit
  17
  18 val depth_func : Gl.cmp_func -> unit
  19 val depth_mask : bool -> unit
  20 val depth_range : near:float -> far:float -> unit
  21
  22 val index_mask : int -> unit
  23
  24 val stencil_func : Gl.cmp_func -> ref:int -> mask:int -> unit
  25 val stencil_mask : int -> unit
  26 type stencil_op = [`decr|`incr|`invert|`keep|`replace|`zero]
  27 val stencil_op :
  28   ?fail:stencil_op -> ?zfail:stencil_op -> ?zpass:stencil_op -> unit -> unit
  29
  30 type logic_op =
  31   [`And|`Or|`and_inverted|`and_reverse|`clear|`copy|`copy_inverted|`equiv
  32   |`invert|`nand|`noop|`nor|`or_inverted|`or_reverse|`set|`xor]
  33 val logic_op : logic_op -> unit
  34
  35 type draw_buffer =
  36   [`aux of int|`back|`back_left|`back_right|`front|`front_and_back|`front_left
  37   |`front_right|`left|`none|`right]
  38 val draw_buffer : draw_buffer -> unit
  39
  40 type read_buffer =
  41   [`aux of int|`back|`back_left|`back_right|`front|`front_left|`front_right
  42   |`left|`right]
  43 val read_buffer : read_buffer -> unit