package glMLite

  1. Overview
  2. Docs
val gluPerspective : fovy:float -> aspect:float -> zNear:float -> zFar:float -> unit
val gluLookAt : eyeX:float -> eyeY:float -> eyeZ:float -> centerX:float -> centerY:float -> centerZ:float -> upX:float -> upY:float -> upZ:float -> unit
val gluOrtho2D : left:float -> right:float -> bottom:float -> top:float -> unit
val gluErrorString : error:GL.gl_error -> string
val gluPickMatrix : x:float -> y:float -> width:float -> height:float -> viewport:(int * int * int * int) -> unit
val gluUnProject : win_x:float -> win_y:float -> win_z:float -> model:float array array -> proj:float array array -> viewport:int array -> float * float * float
val gluUnProjectFlat : win_x:float -> win_y:float -> win_z:float -> model:float array -> proj:float array -> viewport:int array -> float * float * float
val gluUnProjectUtil : x:int -> y:int -> float * float * float
val gluUnProjectPixel : x:int -> y:int -> float * float * float
val gluProject : win_x:float -> win_y:float -> win_z:float -> model:float array array -> proj:float array array -> viewport:int array -> float * float * float
val gluProjectFlat : win_x:float -> win_y:float -> win_z:float -> model:float array -> proj:float array -> viewport:int array -> float * float * float
val gluProjectUtil : obj_x:float -> obj_y:float -> obj_z:float -> float * float * float
type glu_desc =
  1. | GLU_VERSION
  2. | GLU_EXTENSIONS
val gluGetString : name:glu_desc -> string
val gluBuild2DMipmaps : internal_format:GL.InternalFormat.internal_format -> width:int -> height:int -> format_:GL.pixel_data_format -> type_:GL.pixel_data_type -> pixels:GL.image_data -> unit
val gluBuild1DMipmaps : internal_format:GL.InternalFormat.internal_format -> width:int -> format_:GL.pixel_data_format -> type_:GL.pixel_data_type -> pixels:GL.image_data -> unit
val gluBuild3DMipmaps : internal_format:GL.InternalFormat.internal_format -> width:int -> height:int -> depth:int -> format_:GL.pixel_data_format -> type_:GL.pixel_data_type -> pixels:GL.image_data -> unit
type glu_quadric
val gluNewQuadric : unit -> glu_quadric
val gluDeleteQuadric : quad:glu_quadric -> unit
type draw_style =
  1. | GLU_POINT
  2. | GLU_LINE
  3. | GLU_FILL
  4. | GLU_SILHOUETTE
val gluQuadricDrawStyle : quad:glu_quadric -> draw_style:draw_style -> unit
val gluQuadricTexture : quad:glu_quadric -> texture:bool -> unit
val gluSphere : quad:glu_quadric -> radius:float -> slices:int -> stacks:int -> unit
val gluCylinder : quad:glu_quadric -> base:float -> top:float -> height:float -> slices:int -> stacks:int -> unit
val gluDisk : quad:glu_quadric -> inner:float -> outer:float -> slices:int -> loops:int -> unit
val gluPartialDisk : quad:glu_quadric -> inner:float -> outer:float -> slices:int -> loops:int -> start:float -> sweep:float -> unit
type orientation =
  1. | GLU_OUTSIDE
  2. | GLU_INSIDE
val gluQuadricOrientation : quad:glu_quadric -> orientation:orientation -> unit
type normal =
  1. | GLU_NONE
  2. | GLU_FLAT
  3. | GLU_SMOOTH
val gluQuadricNormals : quad:glu_quadric -> normal:normal -> unit
type glu_tesselator
val gluNewTess : unit -> glu_tesselator
val gluDeleteTess : tess:glu_tesselator -> unit
val gluBeginPolygon : tess:glu_tesselator -> unit
val gluEndPolygon : tess:glu_tesselator -> unit
val gluTessBeginPolygon : tess:glu_tesselator -> unit
val gluTessBeginPolygonData : tess:glu_tesselator -> data:'a -> unit
val gluTessEndPolygon : tess:glu_tesselator -> unit
val gluTessBeginContour : tess:glu_tesselator -> unit
val gluTessEndContour : tess:glu_tesselator -> unit
type tess_contour =
  1. | GLU_CW
  2. | GLU_CCW
  3. | GLU_INTERIOR
  4. | GLU_EXTERIOR
  5. | GLU_UNKNOWN
val gluNextContour : tess:glu_tesselator -> contour:tess_contour -> unit
val gluTessVertex : tess:glu_tesselator -> x:float -> y:float -> z:float -> unit
val gluTessNormal : tess:glu_tesselator -> x:float -> y:float -> z:float -> unit
val gluTesselate : glu_tesselator -> (float * float * float) array -> unit
val gluTesselateIter : tess:glu_tesselator -> data:(float * float * float) array list -> unit
type tess_winding =
  1. | GLU_TESS_WINDING_ODD
  2. | GLU_TESS_WINDING_NONZERO
  3. | GLU_TESS_WINDING_POSITIVE
  4. | GLU_TESS_WINDING_NEGATIVE
  5. | GLU_TESS_WINDING_ABS_GEQ_TWO
type tess_property =
  1. | GLU_TESS_WINDING_RULE of tess_winding
  2. | GLU_TESS_BOUNDARY_ONLY of bool
  3. | GLU_TESS_TOLERANCE of float
val gluGetTessWindingRule : tess:glu_tesselator -> winding:tess_winding -> unit
val gluGetTessBoundaryOnly : tess:glu_tesselator -> boundary_only:bool -> unit
val gluGetTessTolerance : tess:glu_tesselator -> tolerance:float -> unit
val gluTessProperty : tess:glu_tesselator -> prop:tess_property -> unit
type tess_callback =
  1. | GLU_TESS_BEGIN
  2. | GLU_TESS_BEGIN_DATA
  3. | GLU_TESS_EDGE_FLAG
  4. | GLU_TESS_EDGE_FLAG_DATA
  5. | GLU_TESS_VERTEX
  6. | GLU_TESS_VERTEX_DATA
  7. | GLU_TESS_END
  8. | GLU_TESS_END_DATA
  9. | GLU_TESS_COMBINE
  10. | GLU_TESS_COMBINE_DATA
  11. | GLU_TESS_ERROR
  12. | GLU_TESS_ERROR_DATA
val gluTessDefaultCallback : tess:glu_tesselator -> cb:tess_callback -> unit
type tess_error =
  1. | GLU_TESS_MISSING_BEGIN_POLYGON
  2. | GLU_TESS_MISSING_BEGIN_CONTOUR
  3. | GLU_TESS_MISSING_END_POLYGON
  4. | GLU_TESS_MISSING_END_CONTOUR
  5. | GLU_TESS_COORD_TOO_LARGE
  6. | GLU_TESS_NEED_COMBINE_CALLBACK
  7. | GLU_OUT_OF_MEMORY
  8. | GLU_TESS_ERROR7
  9. | GLU_TESS_ERROR8
val gluCallbackTessVertex : tess:glu_tesselator -> tess_vertex:(x:float -> y:float -> z:float -> unit) -> unit
val gluCallbackTessBegin : tess:glu_tesselator -> tess_begin:(prim:GL.primitive -> unit) -> unit
val gluCallbackTessEnd : tess:glu_tesselator -> tess_end:(unit -> unit) -> unit
val gluCallbackTessError : tess:glu_tesselator -> tess_error:(error:tess_error -> unit) -> unit
val gluTessErrorString : error:tess_error -> string
type glu_nurbs
val gluNewNurbsRenderer : unit -> glu_nurbs
val gluBeginSurface : nurb:glu_nurbs -> unit
val gluEndSurface : nurb:glu_nurbs -> unit
type nurbs_mode =
  1. | GLU_NURBS_RENDERER
  2. | GLU_NURBS_TESSELLATOR
type sampling_method =
  1. | GLU_PATH_LENGTH
  2. | GLU_PARAMETRIC_ERROR
  3. | GLU_DOMAIN_DISTANCE
  4. | GLU_OBJECT_PATH_LENGTH
  5. | GLU_OBJECT_PARAMETRIC_ERROR
module Disp : sig ... end
type nurbs_property =
  1. | GLU_SAMPLING_TOLERANCE of float
  2. | GLU_DISPLAY_MODE of Disp.display_mode
  3. | GLU_CULLING of bool
  4. | GLU_AUTO_LOAD_MATRIX of bool
  5. | GLU_PARAMETRIC_TOLERANCE of float
  6. | GLU_SAMPLING_METHOD of sampling_method
  7. | GLU_U_STEP of int
  8. | GLU_V_STEP of int
  9. | GLU_NURBS_MODE of nurbs_mode
val gluNurbsProperty : nurb:glu_nurbs -> property:nurbs_property -> unit
type surface_type =
  1. | GLU_MAP2_VERTEX_3
  2. | GLU_MAP2_VERTEX_4
val gluNurbsSurface : nurb:glu_nurbs -> sKnots:float array -> tKnots:float array -> sStride:int -> tStride:int -> control:float array -> sOrder:int -> tOrder:int -> surface_type:surface_type -> unit