glMLite 0.03.53 (latest) · OCaml Package

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 =

| GLU_VERSION
| 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 =

| GLU_POINT
| GLU_LINE
| GLU_FILL
| 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 =

| GLU_OUTSIDE
| GLU_INSIDE

val gluQuadricOrientation : quad:glu_quadric -> orientation:orientation -> unit

type normal =

| GLU_NONE
| GLU_FLAT
| 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 =

| GLU_CW
| GLU_CCW
| GLU_INTERIOR
| GLU_EXTERIOR
| 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 =

| GLU_TESS_WINDING_ODD
| GLU_TESS_WINDING_NONZERO
| GLU_TESS_WINDING_POSITIVE
| GLU_TESS_WINDING_NEGATIVE
| GLU_TESS_WINDING_ABS_GEQ_TWO

type tess_property =

| GLU_TESS_WINDING_RULE of tess_winding
| GLU_TESS_BOUNDARY_ONLY of bool
| 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 =

| GLU_TESS_BEGIN
| GLU_TESS_BEGIN_DATA
| GLU_TESS_EDGE_FLAG
| GLU_TESS_EDGE_FLAG_DATA
| GLU_TESS_VERTEX
| GLU_TESS_VERTEX_DATA
| GLU_TESS_END
| GLU_TESS_END_DATA
| GLU_TESS_COMBINE
| GLU_TESS_COMBINE_DATA
| GLU_TESS_ERROR
| GLU_TESS_ERROR_DATA

val gluTessDefaultCallback : tess:glu_tesselator -> cb:tess_callback -> unit

type tess_error =

| GLU_TESS_MISSING_BEGIN_POLYGON
| GLU_TESS_MISSING_BEGIN_CONTOUR
| GLU_TESS_MISSING_END_POLYGON
| GLU_TESS_MISSING_END_CONTOUR
| GLU_TESS_COORD_TOO_LARGE
| GLU_TESS_NEED_COMBINE_CALLBACK
| GLU_OUT_OF_MEMORY
| GLU_TESS_ERROR7
| 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 =

| GLU_NURBS_RENDERER
| GLU_NURBS_TESSELLATOR

type sampling_method =

| GLU_PATH_LENGTH
| GLU_PARAMETRIC_ERROR
| GLU_DOMAIN_DISTANCE
| GLU_OBJECT_PATH_LENGTH
| GLU_OBJECT_PARAMETRIC_ERROR

module Disp : sig ... end

type nurbs_property =

| GLU_SAMPLING_TOLERANCE of float
| GLU_DISPLAY_MODE of Disp.display_mode
| GLU_CULLING of bool
| GLU_AUTO_LOAD_MATRIX of bool
| GLU_PARAMETRIC_TOLERANCE of float
| GLU_SAMPLING_METHOD of sampling_method
| GLU_U_STEP of int
| GLU_V_STEP of int
| GLU_NURBS_MODE of nurbs_mode

val gluNurbsProperty : nurb:glu_nurbs -> property:nurbs_property -> unit

type surface_type =

| GLU_MAP2_VERTEX_3
| 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

package glMLite