core/ui/opengl/glu.factor

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