#
#
#  Adaption of the delphi3d.net OpenGL units to FreePascal
#  Sebastian Guenther (sg@freepascal.org) in 2002
#  These units are free to use
#******************************************************************************
# Converted to Delphi by Tom Nuydens (tom@delphi3d.net)
# For the latest updates, visit Delphi3D: http://www.delphi3d.net
#******************************************************************************

import opengl

{.deadCodeElim: on.}

when defined(windows):
  {.push, callconv: stdcall.}
else:
  {.push, callconv: cdecl.}

when defined(windows):
  const
    dllname = "glu32.dll"
elif defined(macosx):
  const
    dllname = "/System/Library/Frameworks/OpenGL.framework/Libraries/libGLU.dylib"
else:
  const
    dllname = "libGLU.so.1"

type
  ViewPortArray* = array[0..3, GLint]
  T16dArray* = array[0..15, GLdouble]
  CallBack* = proc () {.cdecl.}
  T3dArray* = array[0..2, GLdouble]
  T4pArray* = array[0..3, pointer]
  T4fArray* = array[0..3, GLfloat]

{.deprecated: [
  TViewPortArray: ViewPortArray,
  TCallBack: CallBack,
].}

type
  GLUnurbs*{.final.} = ptr object
  GLUquadric*{.final.} = ptr object
  GLUtesselator*{.final.} = ptr object
  GLUnurbsObj* = GLUnurbs
  GLUquadricObj* = GLUquadric
  GLUtesselatorObj* = GLUtesselator
  GLUtriangulatorObj* = GLUtesselator

proc gluErrorString*(errCode: GLenum): cstring{.dynlib: dllname,
    importc: "gluErrorString".}
when defined(Windows):
  proc gluErrorUnicodeStringEXT*(errCode: GLenum): ptr int16{.dynlib: dllname,
      importc: "gluErrorUnicodeStringEXT".}
proc gluGetString*(name: GLenum): cstring{.dynlib: dllname,
    importc: "gluGetString".}
proc gluOrtho2D*(left, right, bottom, top: GLdouble){.dynlib: dllname,
    importc: "gluOrtho2D".}
proc gluPerspective*(fovy, aspect, zNear, zFar: GLdouble){.dynlib: dllname,
    importc: "gluPerspective".}
proc gluPickMatrix*(x, y, width, height: GLdouble, viewport: var ViewPortArray){.
    dynlib: dllname, importc: "gluPickMatrix".}
proc gluLookAt*(eyex, eyey, eyez, centerx, centery, centerz, upx, upy, upz: GLdouble){.
    dynlib: dllname, importc: "gluLookAt".}
proc gluProject*(objx, objy, objz: GLdouble,
                 modelMatrix, projMatrix: var T16dArray,
                 viewport: var ViewPortArray, winx, winy, winz: ptr GLdouble): int{.
    dynlib: dllname, importc: "gluProject".}
proc gluUnProject*(winx, winy, winz: GLdouble,
                   modelMatrix, projMatrix: var T16dArray,
                   viewport: var ViewPortArray, objx, objy, objz: ptr GLdouble): int{.
    dynlib: dllname, importc: "gluUnProject".}
proc gluScaleImage*(format: GLenum, widthin, heightin: GLint, typein: GLenum,
                    datain: pointer, widthout, heightout: GLint,
                    typeout: GLenum, dataout: pointer): int{.dynlib: dllname,
    importc: "gluScaleImage".}
proc gluBuild1DMipmaps*(target: GLenum, components, width: GLint,
                        format, atype: GLenum, data: pointer): int{.
    dynlib: dllname, importc: "gluBuild1DMipmaps".}
proc gluBuild2DMipmaps*(target: GLenum, components, width, height: GLint,
                        format, atype: GLenum, data: pointer): int{.
    dynlib: dllname, importc: "gluBuild2DMipmaps".}
proc gluNewQuadric*(): GLUquadric{.dynlib: dllname, importc: "gluNewQuadric".}
proc gluDeleteQuadric*(state: GLUquadric){.dynlib: dllname,
    importc: "gluDeleteQuadric".}
proc gluQuadricNormals*(quadObject: GLUquadric, normals: GLenum){.
    dynlib: dllname, importc: "gluQuadricNormals".}
proc gluQuadricTexture*(quadObject: GLUquadric, textureCoords: GLboolean){.
    dynlib: dllname, importc: "gluQuadricTexture".}
proc gluQuadricOrientation*(quadObject: GLUquadric, orientation: GLenum){.
    dynlib: dllname, importc: "gluQuadricOrientation".}
proc gluQuadricDrawStyle*(quadObject: GLUquadric, drawStyle: GLenum){.
    dynlib: dllname, importc: "gluQuadricDrawStyle".}
proc gluCylinder*(qobj: GLUquadric, baseRadius, topRadius, height: GLdouble,
                  slices, stacks: GLint){.dynlib: dllname,
    importc: "gluCylinder".}
proc gluDisk*(qobj: GLUquadric, innerRadius, outerRadius: GLdouble,
              slices, loops: GLint){.dynlib: dllname, importc: "gluDisk".}
proc gluPartialDisk*(qobj: GLUquadric, innerRadius, outerRadius: GLdouble,
                     slices, loops: GLint, startAngle, sweepAngle: GLdouble){.
    dynlib: dllname, importc: "gluPartialDisk".}
proc gluSphere*(qobj: GLuquadric, radius: GLdouble, slices, stacks: GLint){.
    dynlib: dllname, importc: "gluSphere".}
proc gluQuadricCallback*(qobj: GLUquadric, which: GLenum, fn: CallBack){.
    dynlib: dllname, importc: "gluQuadricCallback".}
proc gluNewTess*(): GLUtesselator{.dynlib: dllname, importc: "gluNewTess".}
proc gluDeleteTess*(tess: GLUtesselator){.dynlib: dllname,
    importc: "gluDeleteTess".}
proc gluTessBeginPolygon*(tess: GLUtesselator, polygon_data: pointer){.
    dynlib: dllname, importc: "gluTessBeginPolygon".}
proc gluTessBeginContour*(tess: GLUtesselator){.dynlib: dllname,
    importc: "gluTessBeginContour".}
proc gluTessVertex*(tess: GLUtesselator, coords: var T3dArray, data: pointer){.
    dynlib: dllname, importc: "gluTessVertex".}
proc gluTessEndContour*(tess: GLUtesselator){.dynlib: dllname,
    importc: "gluTessEndContour".}
proc gluTessEndPolygon*(tess: GLUtesselator){.dynlib: dllname,
    importc: "gluTessEndPolygon".}
proc gluTessProperty*(tess: GLUtesselator, which: GLenum, value: GLdouble){.
    dynlib: dllname, importc: "gluTessProperty".}
proc gluTessNormal*(tess: GLUtesselator, x, y, z: GLdouble){.dynlib: dllname,
    importc: "gluTessNormal".}
proc gluTessCallback*(tess: GLUtesselator, which: GLenum, fn: CallBack){.
    dynlib: dllname, importc: "gluTessCallback".}
proc gluGetTessProperty*(tess: GLUtesselator, which: GLenum, value: ptr GLdouble){.
    dynlib: dllname, importc: "gluGetTessProperty".}
proc gluNewNurbsRenderer*(): GLUnurbs{.dynlib: dllname,
                                        importc: "gluNewNurbsRenderer".}
proc gluDeleteNurbsRenderer*(nobj: GLUnurbs){.dynlib: dllname,
    importc: "gluDeleteNurbsRenderer".}
proc gluBeginSurface*(nobj: GLUnurbs){.dynlib: dllname,
                                        importc: "gluBeginSurface".}
proc gluBeginCurve*(nobj: GLUnurbs){.dynlib: dllname, importc: "gluBeginCurve".}
proc gluEndCurve*(nobj: GLUnurbs){.dynlib: dllname, importc: "gluEndCurve".}
proc gluEndSurface*(nobj: GLUnurbs){.dynlib: dllname, importc: "gluEndSurface".}
proc gluBeginTrim*(nobj: GLUnurbs){.dynlib: dllname, importc: "gluBeginTrim".}
proc gluEndTrim*(nobj: GLUnurbs){.dynlib: dllname, importc: "gluEndTrim".}
proc gluPwlCurve*(nobj: GLUnurbs, count: GLint, aarray: ptr GLfloat,
                  stride: GLint, atype: GLenum){.dynlib: dllname,
    importc: "gluPwlCurve".}
proc gluNurbsCurve*(nobj: GLUnurbs, nknots: GLint, knot: ptr GLfloat,
                    stride: GLint, ctlarray: ptr GLfloat, order: GLint,
                    atype: GLenum){.dynlib: dllname, importc: "gluNurbsCurve".}
proc gluNurbsSurface*(nobj: GLUnurbs, sknot_count: GLint, sknot: ptr GLfloat,
                      tknot_count: GLint, tknot: ptr GLfloat,
                      s_stride, t_stride: GLint, ctlarray: ptr GLfloat,
                      sorder, torder: GLint, atype: GLenum){.dynlib: dllname,
    importc: "gluNurbsSurface".}
proc gluLoadSamplingMatrices*(nobj: GLUnurbs,
                              modelMatrix, projMatrix: var T16dArray,
                              viewport: var ViewPortArray){.dynlib: dllname,
    importc: "gluLoadSamplingMatrices".}
proc gluNurbsProperty*(nobj: GLUnurbs, aproperty: GLenum, value: GLfloat){.
    dynlib: dllname, importc: "gluNurbsProperty".}
proc gluGetNurbsProperty*(nobj: GLUnurbs, aproperty: GLenum, value: ptr GLfloat){.
    dynlib: dllname, importc: "gluGetNurbsProperty".}
proc gluNurbsCallback*(nobj: GLUnurbs, which: GLenum, fn: CallBack){.
    dynlib: dllname, importc: "gluNurbsCallback".}
  #*** Callback function prototypes ***
type                          # gluQuadricCallback
  GLUquadricErrorProc* = proc (p: GLenum) # gluTessCallback
  GLUtessBeginProc* = proc (p: GLenum)
  GLUtessEdgeFlagProc* = proc (p: GLboolean)
  GLUtessVertexProc* = proc (p: pointer)
  GLUtessEndProc* = proc ()
  GLUtessErrorProc* = proc (p: GLenum)
  GLUtessCombineProc* = proc (p1: var T3dArray, p2: T4pArray, p3: T4fArray,
                              p4: ptr pointer)
  GLUtessBeginDataProc* = proc (p1: GLenum, p2: pointer)
  GLUtessEdgeFlagDataProc* = proc (p1: GLboolean, p2: pointer)
  GLUtessVertexDataProc* = proc (p1, p2: pointer)
  GLUtessEndDataProc* = proc (p: pointer)
  GLUtessErrorDataProc* = proc (p1: GLenum, p2: pointer)
  GLUtessCombineDataProc* = proc (p1: var T3dArray, p2: var T4pArray,
                                  p3: var T4fArray, p4: ptr pointer, p5: pointer) #
  GLUnurbsErrorProc* = proc (p: GLenum) #***           Generic constants               ****/

const                         # Version
  GLU_VERSION_1_1* = 1
  GLU_VERSION_1_2* = 1        # Errors: (return value 0 = no error)
  GLU_INVALID_ENUM* = 100900
  GLU_INVALID_VALUE* = 100901
  GLU_OUT_OF_MEMORY* = 100902
  GLU_INCOMPATIBLE_GL_VERSION* = 100903 # StringName
  GLU_VERSION* = 100800
  GLU_EXTENSIONS* = 100801    # Boolean
  GLU_TRUE* = GL_TRUE
  GLU_FALSE* = GL_FALSE #***           Quadric constants               ****/
                        # QuadricNormal
  GLU_SMOOTH* = 100000
  GLU_FLAT* = 100001
  GLU_NONE* = 100002          # QuadricDrawStyle
  GLU_POINT* = 100010
  GLU_LINE* = 100011
  GLU_FILL* = 100012
  GLU_SILHOUETTE* = 100013    # QuadricOrientation
  GLU_OUTSIDE* = 100020
  GLU_INSIDE* = 100021        # Callback types:
                              #      GLU_ERROR       = 100103;
                              #***           Tesselation constants           ****/
  GLU_TESS_MAX_COORD* = 1.00000e+150 # TessProperty
  GLU_TESS_WINDING_RULE* = 100140
  GLU_TESS_BOUNDARY_ONLY* = 100141
  GLU_TESS_TOLERANCE* = 100142 # TessWinding
  GLU_TESS_WINDING_ODD* = 100130
  GLU_TESS_WINDING_NONZERO* = 100131
  GLU_TESS_WINDING_POSITIVE* = 100132
  GLU_TESS_WINDING_NEGATIVE* = 100133
  GLU_TESS_WINDING_ABS_GEQ_TWO* = 100134 # TessCallback
  GLU_TESS_BEGIN* = 100100    # void (CALLBACK*)(GLenum    type)
  constGLU_TESS_VERTEX* = 100101 # void (CALLBACK*)(void      *data)
  GLU_TESS_END* = 100102      # void (CALLBACK*)(void)
  GLU_TESS_ERROR* = 100103    # void (CALLBACK*)(GLenum    errno)
  GLU_TESS_EDGE_FLAG* = 100104 # void (CALLBACK*)(GLboolean boundaryEdge)
  GLU_TESS_COMBINE* = 100105 # void (CALLBACK*)(GLdouble  coords[3],
                             #                                                            void      *data[4],
                             #                                                            GLfloat   weight[4],
                             #                                                            void      **dataOut)
  GLU_TESS_BEGIN_DATA* = 100106 # void (CALLBACK*)(GLenum    type,
                                #                                                            void      *polygon_data)
  GLU_TESS_VERTEX_DATA* = 100107 # void (CALLBACK*)(void      *data,
                                 #                                                            void      *polygon_data)
  GLU_TESS_END_DATA* = 100108 # void (CALLBACK*)(void      *polygon_data)
  GLU_TESS_ERROR_DATA* = 100109 # void (CALLBACK*)(GLenum    errno,
                                #                                                            void      *polygon_data)
  GLU_TESS_EDGE_FLAG_DATA* = 100110 # void (CALLBACK*)(GLboolean boundaryEdge,
                                    #                                                            void      *polygon_data)
  GLU_TESS_COMBINE_DATA* = 100111 # void (CALLBACK*)(GLdouble  coords[3],
                                  #                                                            void      *data[4],
                                  #                                                            GLfloat   weight[4],
                                  #                                                            void      **dataOut,
                                  #                                                            void      *polygon_data)
                                  # TessError
  GLU_TESS_ERROR1* = 100151
  GLU_TESS_ERROR2* = 100152
  GLU_TESS_ERROR3* = 100153
  GLU_TESS_ERROR4* = 100154
  GLU_TESS_ERROR5* = 100155
  GLU_TESS_ERROR6* = 100156
  GLU_TESS_ERROR7* = 100157
  GLU_TESS_ERROR8* = 100158
  GLU_TESS_MISSING_BEGIN_POLYGON* = GLU_TESS_ERROR1
  GLU_TESS_MISSING_BEGIN_CONTOUR* = GLU_TESS_ERROR2
  GLU_TESS_MISSING_END_POLYGON* = GLU_TESS_ERROR3
  GLU_TESS_MISSING_END_CONTOUR* = GLU_TESS_ERROR4
  GLU_TESS_COORD_TOO_LARGE* = GLU_TESS_ERROR5
  GLU_TESS_NEED_COMBINE_CALLBACK* = GLU_TESS_ERROR6 #***           NURBS constants                 ****/
                                                    # NurbsProperty
  GLU_AUTO_LOAD_MATRIX* = 100200
  GLU_CULLING* = 100201
  GLU_SAMPLING_TOLERANCE* = 100203
  GLU_DISPLAY_MODE* = 100204
  GLU_PARAMETRIC_TOLERANCE* = 100202
  GLU_SAMPLING_METHOD* = 100205
  GLU_U_STEP* = 100206
  GLU_V_STEP* = 100207        # NurbsSampling
  GLU_PATH_LENGTH* = 100215
  GLU_PARAMETRIC_ERROR* = 100216
  GLU_DOMAIN_DISTANCE* = 100217 # NurbsTrim
  GLU_MAP1_TRIM_2* = 100210
  GLU_MAP1_TRIM_3* = 100211   # NurbsDisplay
                              #      GLU_FILL                = 100012;
  GLU_OUTLINE_POLYGON* = 100240
  GLU_OUTLINE_PATCH* = 100241 # NurbsCallback
                              #      GLU_ERROR               = 100103;
                              # NurbsErrors
  GLU_NURBS_ERROR1* = 100251
  GLU_NURBS_ERROR2* = 100252
  GLU_NURBS_ERROR3* = 100253
  GLU_NURBS_ERROR4* = 100254
  GLU_NURBS_ERROR5* = 100255
  GLU_NURBS_ERROR6* = 100256
  GLU_NURBS_ERROR7* = 100257
  GLU_NURBS_ERROR8* = 100258
  GLU_NURBS_ERROR9* = 100259
  GLU_NURBS_ERROR10* = 100260
  GLU_NURBS_ERROR11* = 100261
  GLU_NURBS_ERROR12* = 100262
  GLU_NURBS_ERROR13* = 100263
  GLU_NURBS_ERROR14* = 100264
  GLU_NURBS_ERROR15* = 100265
  GLU_NURBS_ERROR16* = 100266
  GLU_NURBS_ERROR17* = 100267
  GLU_NURBS_ERROR18* = 100268
  GLU_NURBS_ERROR19* = 100269
  GLU_NURBS_ERROR20* = 100270
  GLU_NURBS_ERROR21* = 100271
  GLU_NURBS_ERROR22* = 100272
  GLU_NURBS_ERROR23* = 100273
  GLU_NURBS_ERROR24* = 100274
  GLU_NURBS_ERROR25* = 100275
  GLU_NURBS_ERROR26* = 100276
  GLU_NURBS_ERROR27* = 100277
  GLU_NURBS_ERROR28* = 100278
  GLU_NURBS_ERROR29* = 100279
  GLU_NURBS_ERROR30* = 100280
  GLU_NURBS_ERROR31* = 100281
  GLU_NURBS_ERROR32* = 100282
  GLU_NURBS_ERROR33* = 100283
  GLU_NURBS_ERROR34* = 100284
  GLU_NURBS_ERROR35* = 100285
  GLU_NURBS_ERROR36* = 100286
  GLU_NURBS_ERROR37* = 100287 #***           Backwards compatibility for old tesselator           ****/

proc gluBeginPolygon*(tess: GLUtesselator){.dynlib: dllname,
    importc: "gluBeginPolygon".}
proc gluNextContour*(tess: GLUtesselator, atype: GLenum){.dynlib: dllname,
    importc: "gluNextContour".}
proc gluEndPolygon*(tess: GLUtesselator){.dynlib: dllname,
    importc: "gluEndPolygon".}
const                         # Contours types -- obsolete!
  GLU_CW* = 100120
  GLU_CCW* = 100121
  GLU_INTERIOR* = 100122
  GLU_EXTERIOR* = 100123
  GLU_UNKNOWN* = 100124       # Names without "TESS_" prefix
  GLU_BEGIN* = GLU_TESS_BEGIN
  GLU_VERTEX* = constGLU_TESS_VERTEX
  GLU_END* = GLU_TESS_END
  GLU_ERROR* = GLU_TESS_ERROR
  GLU_EDGE_FLAG* = GLU_TESS_EDGE_FLAG

{.pop.}
# implementation