(* $Id: glDraw.mli,v 1.3 2007-04-13 01:17:50 garrigue Exp $ *) open Gl val color : ?alpha:float -> rgb -> unit    (* Sets the current color *)val index : float -> unit    (* Sets the current index *)val cull_face : face -> unit    (* Specifies which faces are candidates for culling *)val front_face : [`ccw|`cw] -> unit    (* Specifies wether front faces are clockwise or not *)val edge_flag : bool -> unitval line_width : float -> unitval line_stipple : ?factor:int -> short -> unit    (* [line_stipple :factor pattern] sets the line stipple to the       16-bit integer [pattern]. Each bit is used [factor] times *)val point_size : float -> unitval polygon_offset : factor:float -> units:float -> unitval polygon_mode : face:face -> [`fill|`line|`point] -> unitval polygon_stipple : GlPix.bitmap -> unit val shade_model : [`flat|`smooth] -> unit val normal : ?x:float -> ?y:float -> ?z:float -> unit -> unitval normal3 : vect3 -> unit    (* [glNormal] *) val rect : point2 -> point2 -> unit type shape =  [`line_loop|`line_strip|`lines|`points|`polygon|`quad_strip|`quads  |`triangle_fan|`triangle_strip|`triangles]val begins : shape -> unitval ends : unit -> unit val vertex : x:float -> y:float -> ?z:float -> ?w:float -> unit -> unitval vertex2 : point2 -> unitval vertex3 : point3 -> unitval vertex4 : point4 -> unit val viewport : x:int -> y:int -> w:int -> h:int -> unit