lablGL/glMat.mli

   1 (* $Id: glMat.mli,v 1.6 2003-04-22 03:24:02 erickt Exp $ *)
   2
   3 open Gl
   4
   5 type t
   6
   7 val of_raw : [`double] Raw.t -> t
   8 external to_raw : t -> [`double] Raw.t = "%identity"
   9     (* Those two functions are just the identity, and keep sharing.
  10        [double] Raw.t is a raw array of 16 floating point values
  11        representing as 4x4 matrix *)
  12 val of_array : float array array -> t
  13 val to_array : t -> float array array
  14
  15 val load : t -> unit
  16 val load_transpose : t -> unit
  17 val mult : t -> unit
  18 val mult_transpose : t -> unit
  19 val load_identity : unit -> unit
  20
  21 val push : unit -> unit
  22 val pop : unit -> unit
  23     (* Push and pop the matrix on the stack *)
  24
  25 val mode : [`modelview|`projection|`texture] -> unit
  26 val get_matrix : [`modelview_matrix|`projection_matrix|`texture_matrix] -> t
  27
  28 val rotate : angle:float -> ?x:float -> ?y:float -> ?z:float -> unit -> unit
  29 val scale : ?x:float -> ?y:float -> ?z:float -> unit -> unit
  30 val translate : ?x:float -> ?y:float -> ?z:float -> unit -> unit
  31
  32 val rotate3 : angle:float -> vect3 -> unit
  33 val scale3 : point3 -> unit
  34 val translate3 : point3 -> unit
  35
  36 val ortho : x:float * float -> y:float * float -> z:float * float -> unit
  37 val frustum : x:float * float -> y:float * float -> z:float * float -> unit