lablGL/glArray.ml

   1 (* $Id: glArray.ml,v 1.6 2008-10-30 07:51:33 garrigue Exp $ *)
   2
   3 open Gl
   4 open Raw
   5
   6 type kind = [`edge_flag | `texture_coord | `color | `index | `normal | `vertex ]
   7
   8 let check_static func f raw =
   9   if not (Raw.static raw) then
  10     invalid_arg ("GlArray." ^ func ^ " : buffer must be static");
  11   f raw
  12
  13 external _edge_flag : [< `bitmap] Raw.t -> unit = "ml_glEdgeFlagPointer"
  14 let edge_flag raw = check_static "edge_flag" _edge_flag raw
  15
  16 external _tex_coord :
  17   [< `one | `two | `three | `four] ->
  18   [< `short | `int | `float | `double] Raw.t -> unit
  19         = "ml_glTexCoordPointer"
  20 let tex_coord n = check_static "tex_coord" (_tex_coord n)
  21
  22 external _color :
  23   [< `three | `four] ->
  24   [< `byte | `ubyte | `short | `ushort | `int | `uint | `float | `double] Raw.t
  25   -> unit
  26         = "ml_glColorPointer"
  27 let color n = check_static "color" (_color n)
  28
  29 external _index : [< `ubyte | `short | `int | `float | `double] Raw.t -> unit
  30         = "ml_glIndexPointer"
  31 let index raw = check_static "index" _index raw
  32
  33 external _normal : [< `byte | `short | `int | `float | `double] Raw.t -> unit
  34         = "ml_glNormalPointer"
  35 let normal raw = check_static "normal" _normal raw
  36
  37 external _vertex :
  38   [< `two | `three | `four] -> [< `short | `int | `float | `double] Raw.t
  39   -> unit
  40         = "ml_glVertexPointer"
  41 let vertex n = check_static "vertex" (_vertex n)
  42
  43 external enable : kind -> unit= "ml_glEnableClientState"
  44
  45 external disable : kind -> unit = "ml_glDisableClientState"
  46
  47 external element : int -> unit = "ml_glArrayElement"
  48
  49 external draw_arrays : GlDraw.shape -> first:int -> count:int -> unit
  50     = "ml_glDrawArrays"
  51
  52 external draw_elements
  53     :  GlDraw.shape -> count:int -> [< `ubyte | `ushort | `uint] Raw.t -> unit
  54         = "ml_glDrawElements"