type kind =
    [ `color | `edge_flag | `index | `normal | `texture_coord | `vertex ]
external edge_flag : [ `bitmap ] Raw.t -> unit = "ml_glEdgeFlagPointer"
external tex_coord :
  [< `four | `one | `three | `two ] ->
  [< `double | `float | `int | `short ] Raw.t -> unit
  = "ml_glTexCoordPointer"
external color :
  [< `four | `three ] ->
  [< `byte | `double | `float | `int | `short | `ubyte | `uint | `ushort ]
  Raw.t -> unit = "ml_glColorPointer"
external index : [< `double | `float | `int | `short | `ubyte ] Raw.t -> unit
  = "ml_glIndexPointer"
external normal : [< `byte | `double | `float | `int | `short ] Raw.t -> unit
  = "ml_glNormalPointer"
external vertex :
  [< `four | `three | `two ] ->
  [< `double | `float | `int | `short ] Raw.t -> unit = "ml_glVertexPointer"
external enable : kind -> unit = "ml_glEnableClientState"
external disable : kind -> unit = "ml_glDisableClientState"
external element : int -> unit = "ml_glArrayElement"
external draw_arrays : GlDraw.shape -> first:int -> count:int -> unit
  = "ml_glDrawArrays"
external draw_elements :
  GlDraw.shape -> count:int -> [< `ubyte | `uint | `ushort ] Raw.t -> unit
  = "ml_glDrawElements"