extra/opengl/glu/glu.factor

   1 ! Copyright (C) 2005 Alex Chapman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.c-types alien.libraries alien.syntax kernel
   4 sequences words system combinators opengl.gl ;
   5 IN: opengl.glu
   6
   7 <<
   8
   9 os {
  10     { [ dup macosx? ] [ drop ] }
  11     { [ dup windows? ] [ drop ] }
  12     { [ dup unix? ] [ drop "glu" "libGLU.so.1" "cdecl" add-library ] }
  13 } cond
  14
  15 >>
  16
  17 LIBRARY: glu
  18
  19 ! These are defined as structs in glu.h, but we only ever use pointers to them
  20 C-TYPE: GLUnurbs
  21 C-TYPE: GLUquadric
  22 C-TYPE: GLUtesselator
  23 C-TYPE: GLubyte
  24 TYPEDEF: void* GLUfuncptr
  25
  26 ! StringName
  27 CONSTANT: GLU_VERSION                        100800
  28 CONSTANT: GLU_EXTENSIONS                     100801
  29
  30 ! ErrorCode
  31 CONSTANT: GLU_INVALID_ENUM                   100900
  32 CONSTANT: GLU_INVALID_VALUE                  100901
  33 CONSTANT: GLU_OUT_OF_MEMORY                  100902
  34 CONSTANT: GLU_INCOMPATIBLE_GL_VERSION        100903
  35 CONSTANT: GLU_INVALID_OPERATION              100904
  36
  37 ! NurbsDisplay
  38 CONSTANT: GLU_OUTLINE_POLYGON                100240
  39 CONSTANT: GLU_OUTLINE_PATCH                  100241
  40
  41 ! NurbsCallback
  42 CONSTANT: GLU_NURBS_ERROR                    100103
  43 CONSTANT: GLU_ERROR                          100103
  44 CONSTANT: GLU_NURBS_BEGIN                    100164
  45 CONSTANT: GLU_NURBS_BEGIN_EXT                100164
  46 CONSTANT: GLU_NURBS_VERTEX                   100165
  47 CONSTANT: GLU_NURBS_VERTEX_EXT               100165
  48 CONSTANT: GLU_NURBS_NORMAL                   100166
  49 CONSTANT: GLU_NURBS_NORMAL_EXT               100166
  50 CONSTANT: GLU_NURBS_COLOR                    100167
  51 CONSTANT: GLU_NURBS_COLOR_EXT                100167
  52 CONSTANT: GLU_NURBS_TEXTURE_COORD            100168
  53 CONSTANT: GLU_NURBS_TEX_COORD_EXT            100168
  54 CONSTANT: GLU_NURBS_END                      100169
  55 CONSTANT: GLU_NURBS_END_EXT                  100169
  56 CONSTANT: GLU_NURBS_BEGIN_DATA               100170
  57 CONSTANT: GLU_NURBS_BEGIN_DATA_EXT           100170
  58 CONSTANT: GLU_NURBS_VERTEX_DATA              100171
  59 CONSTANT: GLU_NURBS_VERTEX_DATA_EXT          100171
  60 CONSTANT: GLU_NURBS_NORMAL_DATA              100172
  61 CONSTANT: GLU_NURBS_NORMAL_DATA_EXT          100172
  62 CONSTANT: GLU_NURBS_COLOR_DATA               100173
  63 CONSTANT: GLU_NURBS_COLOR_DATA_EXT           100173
  64 CONSTANT: GLU_NURBS_TEXTURE_COORD_DATA       100174
  65 CONSTANT: GLU_NURBS_TEX_COORD_DATA_EXT       100174
  66 CONSTANT: GLU_NURBS_END_DATA                 100175
  67 CONSTANT: GLU_NURBS_END_DATA_EXT             100175
  68
  69 ! NurbsError
  70 CONSTANT: GLU_NURBS_ERROR1                   100251
  71 CONSTANT: GLU_NURBS_ERROR2                   100252
  72 CONSTANT: GLU_NURBS_ERROR3                   100253
  73 CONSTANT: GLU_NURBS_ERROR4                   100254
  74 CONSTANT: GLU_NURBS_ERROR5                   100255
  75 CONSTANT: GLU_NURBS_ERROR6                   100256
  76 CONSTANT: GLU_NURBS_ERROR7                   100257
  77 CONSTANT: GLU_NURBS_ERROR8                   100258
  78 CONSTANT: GLU_NURBS_ERROR9                   100259
  79 CONSTANT: GLU_NURBS_ERROR10                  100260
  80 CONSTANT: GLU_NURBS_ERROR11                  100261
  81 CONSTANT: GLU_NURBS_ERROR12                  100262
  82 CONSTANT: GLU_NURBS_ERROR13                  100263
  83 CONSTANT: GLU_NURBS_ERROR14                  100264
  84 CONSTANT: GLU_NURBS_ERROR15                  100265
  85 CONSTANT: GLU_NURBS_ERROR16                  100266
  86 CONSTANT: GLU_NURBS_ERROR17                  100267
  87 CONSTANT: GLU_NURBS_ERROR18                  100268
  88 CONSTANT: GLU_NURBS_ERROR19                  100269
  89 CONSTANT: GLU_NURBS_ERROR20                  100270
  90 CONSTANT: GLU_NURBS_ERROR21                  100271
  91 CONSTANT: GLU_NURBS_ERROR22                  100272
  92 CONSTANT: GLU_NURBS_ERROR23                  100273
  93 CONSTANT: GLU_NURBS_ERROR24                  100274
  94 CONSTANT: GLU_NURBS_ERROR25                  100275
  95 CONSTANT: GLU_NURBS_ERROR26                  100276
  96 CONSTANT: GLU_NURBS_ERROR27                  100277
  97 CONSTANT: GLU_NURBS_ERROR28                  100278
  98 CONSTANT: GLU_NURBS_ERROR29                  100279
  99 CONSTANT: GLU_NURBS_ERROR30                  100280
 100 CONSTANT: GLU_NURBS_ERROR31                  100281
 101 CONSTANT: GLU_NURBS_ERROR32                  100282
 102 CONSTANT: GLU_NURBS_ERROR33                  100283
 103 CONSTANT: GLU_NURBS_ERROR34                  100284
 104 CONSTANT: GLU_NURBS_ERROR35                  100285
 105 CONSTANT: GLU_NURBS_ERROR36                  100286
 106 CONSTANT: GLU_NURBS_ERROR37                  100287
 107
 108 ! NurbsProperty
 109 CONSTANT: GLU_AUTO_LOAD_MATRIX               100200
 110 CONSTANT: GLU_CULLING                        100201
 111 CONSTANT: GLU_SAMPLING_TOLERANCE             100203
 112 CONSTANT: GLU_DISPLAY_MODE                   100204
 113 CONSTANT: GLU_PARAMETRIC_TOLERANCE           100202
 114 CONSTANT: GLU_SAMPLING_METHOD                100205
 115 CONSTANT: GLU_U_STEP                         100206
 116 CONSTANT: GLU_V_STEP                         100207
 117 CONSTANT: GLU_NURBS_MODE                     100160
 118 CONSTANT: GLU_NURBS_MODE_EXT                 100160
 119 CONSTANT: GLU_NURBS_TESSELLATOR              100161
 120 CONSTANT: GLU_NURBS_TESSELLATOR_EXT          100161
 121 CONSTANT: GLU_NURBS_RENDERER                 100162
 122 CONSTANT: GLU_NURBS_RENDERER_EXT             100162
 123
 124 ! NurbsSampling
 125 CONSTANT: GLU_OBJECT_PARAMETRIC_ERROR        100208
 126 CONSTANT: GLU_OBJECT_PARAMETRIC_ERROR_EXT    100208
 127 CONSTANT: GLU_OBJECT_PATH_LENGTH             100209
 128 CONSTANT: GLU_OBJECT_PATH_LENGTH_EXT         100209
 129 CONSTANT: GLU_PATH_LENGTH                    100215
 130 CONSTANT: GLU_PARAMETRIC_ERROR               100216
 131 CONSTANT: GLU_DOMAIN_DISTANCE                100217
 132
 133 ! NurbsTrim
 134 CONSTANT: GLU_MAP1_TRIM_2                    100210
 135 CONSTANT: GLU_MAP1_TRIM_3                    100211
 136
 137 ! QuadricDrawStyle
 138 CONSTANT: GLU_POINT                          100010
 139 CONSTANT: GLU_LINE                           100011
 140 CONSTANT: GLU_FILL                           100012
 141 CONSTANT: GLU_SILHOUETTE                     100013
 142
 143 ! QuadricNormal
 144 CONSTANT: GLU_SMOOTH                         100000
 145 CONSTANT: GLU_FLAT                           100001
 146 CONSTANT: GLU_NONE                           100002
 147
 148 ! QuadricOrientation
 149 CONSTANT: GLU_OUTSIDE                        100020
 150 CONSTANT: GLU_INSIDE                         100021
 151
 152 ! TessCallback
 153 CONSTANT: GLU_TESS_BEGIN                     100100
 154 CONSTANT: GLU_BEGIN                          100100
 155 CONSTANT: GLU_TESS_VERTEX                    100101
 156 CONSTANT: GLU_VERTEX                         100101
 157 CONSTANT: GLU_TESS_END                       100102
 158 CONSTANT: GLU_END                            100102
 159 CONSTANT: GLU_TESS_ERROR                     100103
 160 CONSTANT: GLU_TESS_EDGE_FLAG                 100104
 161 CONSTANT: GLU_EDGE_FLAG                      100104
 162 CONSTANT: GLU_TESS_COMBINE                   100105
 163 CONSTANT: GLU_TESS_BEGIN_DATA                100106
 164 CONSTANT: GLU_TESS_VERTEX_DATA               100107
 165 CONSTANT: GLU_TESS_END_DATA                  100108
 166 CONSTANT: GLU_TESS_ERROR_DATA                100109
 167 CONSTANT: GLU_TESS_EDGE_FLAG_DATA            100110
 168 CONSTANT: GLU_TESS_COMBINE_DATA              100111
 169
 170 ! TessContour
 171 CONSTANT: GLU_CW                             100120
 172 CONSTANT: GLU_CCW                            100121
 173 CONSTANT: GLU_INTERIOR                       100122
 174 CONSTANT: GLU_EXTERIOR                       100123
 175 CONSTANT: GLU_UNKNOWN                        100124
 176
 177 ! TessProperty
 178 CONSTANT: GLU_TESS_WINDING_RULE              100140
 179 CONSTANT: GLU_TESS_BOUNDARY_ONLY             100141
 180 CONSTANT: GLU_TESS_TOLERANCE                 100142
 181
 182 ! TessError
 183 CONSTANT: GLU_TESS_ERROR1                    100151
 184 CONSTANT: GLU_TESS_ERROR2                    100152
 185 CONSTANT: GLU_TESS_ERROR3                    100153
 186 CONSTANT: GLU_TESS_ERROR4                    100154
 187 CONSTANT: GLU_TESS_ERROR5                    100155
 188 CONSTANT: GLU_TESS_ERROR6                    100156
 189 CONSTANT: GLU_TESS_ERROR7                    100157
 190 CONSTANT: GLU_TESS_ERROR8                    100158
 191 CONSTANT: GLU_TESS_MISSING_BEGIN_POLYGON     100151
 192 CONSTANT: GLU_TESS_MISSING_BEGIN_CONTOUR     100152
 193 CONSTANT: GLU_TESS_MISSING_END_POLYGON       100153
 194 CONSTANT: GLU_TESS_MISSING_END_CONTOUR       100154
 195 CONSTANT: GLU_TESS_COORD_TOO_LARGE           100155
 196 CONSTANT: GLU_TESS_NEED_COMBINE_CALLBACK     100156
 197
 198 ! TessWinding
 199 CONSTANT: GLU_TESS_WINDING_ODD               100130
 200 CONSTANT: GLU_TESS_WINDING_NONZERO           100131
 201 CONSTANT: GLU_TESS_WINDING_POSITIVE          100132
 202 CONSTANT: GLU_TESS_WINDING_NEGATIVE          100133
 203 CONSTANT: GLU_TESS_WINDING_ABS_GEQ_TWO       100134
 204
 205 LIBRARY: glu
 206
 207 FUNCTION: void gluBeginCurve ( GLUnurbs* nurb ) ;
 208 FUNCTION: void gluBeginPolygon ( GLUtesselator* tess ) ;
 209 FUNCTION: void gluBeginSurface ( GLUnurbs* nurb ) ;
 210 FUNCTION: void gluBeginTrim ( GLUnurbs* nurb ) ;
 211
 212 FUNCTION: void gluCylinder ( GLUquadric* quad, GLdouble base, GLdouble top, GLdouble height, GLint slices, GLint stacks ) ;
 213 FUNCTION: void gluDeleteNurbsRenderer ( GLUnurbs* nurb ) ;
 214 FUNCTION: void gluDeleteQuadric ( GLUquadric* quad ) ;
 215 FUNCTION: void gluDeleteTess ( GLUtesselator* tess ) ;
 216 FUNCTION: void gluDisk ( GLUquadric* quad, GLdouble inner, GLdouble outer, GLint slices, GLint loops ) ;
 217 FUNCTION: void gluEndCurve ( GLUnurbs* nurb ) ;
 218 FUNCTION: void gluEndPolygon ( GLUtesselator* tess ) ;
 219 FUNCTION: void gluEndSurface ( GLUnurbs* nurb ) ;
 220 FUNCTION: void gluEndTrim ( GLUnurbs* nurb ) ;
 221 FUNCTION: char* gluErrorString ( GLenum error ) ;
 222 FUNCTION: void gluGetNurbsProperty ( GLUnurbs* nurb, GLenum property, GLfloat* data ) ;
 223 FUNCTION: char* gluGetString ( GLenum name ) ;
 224 FUNCTION: void gluGetTessProperty ( GLUtesselator* tess, GLenum which, GLdouble* data ) ;
 225 FUNCTION: void gluLoadSamplingMatrices ( GLUnurbs* nurb, GLfloat* model, GLfloat* perspective, GLint* view ) ;
 226 FUNCTION: void gluLookAt ( GLdouble eyeX, GLdouble eyeY, GLdouble eyeZ, GLdouble centerX, GLdouble centerY, GLdouble centerZ, GLdouble upX, GLdouble upY, GLdouble upZ ) ;
 227 FUNCTION: GLUnurbs* gluNewNurbsRenderer ( ) ;
 228 FUNCTION: GLUquadric* gluNewQuadric ( ) ;
 229 FUNCTION: GLUtesselator* gluNewTess ( ) ;
 230 FUNCTION: void gluNextContour ( GLUtesselator* tess, GLenum type ) ;
 231 FUNCTION: void gluNurbsCallback ( GLUnurbs* nurb, GLenum which, GLUfuncptr CallBackFunc ) ;
 232 ! FUNCTION: void gluNurbsCallbackData ( GLUnurbs* nurb, GLvoid* userData ) ;
 233 ! FUNCTION: void gluNurbsCallbackDataEXT ( GLUnurbs* nurb, GLvoid* userData ) ;
 234 FUNCTION: void gluNurbsCurve ( GLUnurbs* nurb, GLint knotCount, GLfloat *knots, GLint stride, GLfloat *control, GLint order, GLenum type ) ;
 235 FUNCTION: void gluNurbsProperty ( GLUnurbs* nurb, GLenum property, GLfloat value ) ;
 236 FUNCTION: void gluNurbsSurface ( GLUnurbs* nurb, GLint sKnotCount, GLfloat* sKnots, GLint tKnotCount, GLfloat* tKnots, GLint sStride, GLint tStride, GLfloat* control, GLint sOrder, GLint tOrder, GLenum type ) ;
 237 FUNCTION: void gluOrtho2D ( GLdouble left, GLdouble right, GLdouble bottom, GLdouble top ) ;
 238 FUNCTION: void gluPartialDisk ( GLUquadric* quad, GLdouble inner, GLdouble outer, GLint slices, GLint loops, GLdouble start, GLdouble sweep ) ;
 239 FUNCTION: void gluPerspective ( GLdouble fovy, GLdouble aspect, GLdouble zNear, GLdouble zFar ) ;
 240 FUNCTION: void gluPickMatrix ( GLdouble x, GLdouble y, GLdouble delX, GLdouble delY, GLint* viewport ) ;
 241 FUNCTION: GLint gluProject ( GLdouble objX, GLdouble objY, GLdouble objZ, GLdouble* model, GLdouble* proj, GLint* view, GLdouble* winX, GLdouble* winY, GLdouble* winZ ) ;
 242 FUNCTION: void gluPwlCurve ( GLUnurbs* nurb, GLint count, GLfloat* data, GLint stride, GLenum type ) ;
 243 FUNCTION: void gluQuadricCallback ( GLUquadric* quad, GLenum which, GLUfuncptr CallBackFunc ) ;
 244 FUNCTION: void gluQuadricDrawStyle ( GLUquadric* quad, GLenum draw ) ;
 245 FUNCTION: void gluQuadricNormals ( GLUquadric* quad, GLenum normal ) ;
 246 FUNCTION: void gluQuadricOrientation ( GLUquadric* quad, GLenum orientation ) ;
 247 FUNCTION: void gluQuadricTexture ( GLUquadric* quad, GLboolean texture ) ;
 248 FUNCTION: GLint gluScaleImage ( GLenum format, GLsizei wIn, GLsizei hIn, GLenum typeIn, void* dataIn, GLsizei wOut, GLsizei hOut, GLenum typeOut, GLvoid* dataOut ) ;
 249 FUNCTION: void gluSphere ( GLUquadric* quad, GLdouble radius, GLint slices, GLint stacks ) ;
 250 FUNCTION: void gluTessBeginContour ( GLUtesselator* tess ) ;
 251 FUNCTION: void gluTessBeginPolygon ( GLUtesselator* tess, GLvoid* data ) ;
 252 FUNCTION: void gluTessCallback ( GLUtesselator* tess, GLenum which, GLUfuncptr CallBackFunc ) ;
 253 FUNCTION: void gluTessEndContour ( GLUtesselator* tess ) ;
 254 FUNCTION: void gluTessEndPolygon ( GLUtesselator* tess ) ;
 255 FUNCTION: void gluTessNormal ( GLUtesselator* tess, GLdouble valueX, GLdouble valueY, GLdouble valueZ ) ;
 256 FUNCTION: void gluTessProperty ( GLUtesselator* tess, GLenum which, GLdouble data ) ;
 257 FUNCTION: void gluTessVertex ( GLUtesselator* tess, GLdouble* location, GLvoid* data ) ;
 258 FUNCTION: GLint gluUnProject ( GLdouble winX, GLdouble winY, GLdouble winZ, GLdouble* model, GLdouble* proj, GLint* view, GLdouble* objX, GLdouble* objY, GLdouble* objZ ) ;
 259
 260 ! Not present on Windows
 261 ! FUNCTION: GLint gluBuild1DMipmapLevels ( GLenum target, GLint internalFormat, GLsizei width, GLenum format, GLenum type, GLint level, GLint base, GLint max, void* data ) ;
 262 ! FUNCTION: GLint gluBuild1DMipmaps ( GLenum target, GLint internalFormat, GLsizei width, GLenum format, GLenum type, void* data ) ;
 263 ! FUNCTION: GLint gluBuild2DMipmapLevels ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLenum format, GLenum type, GLint level, GLint base, GLint max, void* data ) ;
 264 ! FUNCTION: GLint gluBuild2DMipmaps ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLenum format, GLenum type, void* data ) ;
 265 ! FUNCTION: GLint gluBuild3DMipmapLevels ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, GLint level, GLint base, GLint max, void* data ) ;
 266 ! FUNCTION: GLint gluBuild3DMipmaps ( GLenum target, GLint internalFormat, GLsizei width, GLsizei height, GLsizei depth, GLenum format, GLenum type, void* data ) ;
 267 ! FUNCTION: GLboolean gluCheckExtension ( GLubyte* extName, GLubyte* extString ) ;
 268 ! FUNCTION: GLint gluUnProject4 ( GLdouble winX, GLdouble winY, GLdouble winZ, GLdouble clipW, GLdouble* model, GLdouble* proj, GLint* view, GLdouble nearVal, GLdouble farVal, GLdouble* objX, GLdouble* objY, GLdouble* objZ, GLdouble* objW ) ;
 269
 270 : gl-look-at ( eye focus up -- )
 271     [ first3 ] tri@ gluLookAt ;