(* $Id: glMat.mli,v 1.6 2003-04-22 03:24:02 erickt Exp $ *) open Gl type t val of_raw : [`double] Raw.t -> texternal to_raw : t -> [`double] Raw.t = "%identity"    (* Those two functions are just the identity, and keep sharing.       [double] Raw.t is a raw array of 16 floating point values       representing as 4x4 matrix *)val of_array : float array array -> tval to_array : t -> float array array val load : t -> unitval load_transpose : t -> unitval mult : t -> unitval mult_transpose : t -> unitval load_identity : unit -> unit val push : unit -> unitval pop : unit -> unit    (* Push and pop the matrix on the stack *) val mode : [`modelview|`projection|`texture] -> unitval get_matrix : [`modelview_matrix|`projection_matrix|`texture_matrix] -> t val rotate : angle:float -> ?x:float -> ?y:float -> ?z:float -> unit -> unitval scale : ?x:float -> ?y:float -> ?z:float -> unit -> unitval translate : ?x:float -> ?y:float -> ?z:float -> unit -> unit val rotate3 : angle:float -> vect3 -> unitval scale3 : point3 -> unitval translate3 : point3 -> unit val ortho : x:float * float -> y:float * float -> z:float * float -> unitval frustum : x:float * float -> y:float * float -> z:float * float -> unit