1 ! Copyright (C) 2005 Alex Chapman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: alien alien.libraries alien.syntax kernel sequences words system
10 { [ dup macosx? ] [ drop ] }
11 { [ dup windows? ] [ drop ] }
12 { [ dup unix? ] [ drop "glu" "libGLU.so.1" "cdecl" add-library ] }
19 ! These are defined as structs in glu.h, but we only ever use pointers to them
20 TYPEDEF: void* GLUnurbs*
21 TYPEDEF: void* GLUquadric*
22 TYPEDEF: void* GLUtesselator*
23 TYPEDEF: void* GLubyte*
24 TYPEDEF: void* GLUfuncptr
27 CONSTANT: GLU_VERSION 100800
28 CONSTANT: GLU_EXTENSIONS 100801
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
38 CONSTANT: GLU_OUTLINE_POLYGON 100240
39 CONSTANT: GLU_OUTLINE_PATCH 100241
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
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
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
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
134 CONSTANT: GLU_MAP1_TRIM_2 100210
135 CONSTANT: GLU_MAP1_TRIM_3 100211
138 CONSTANT: GLU_POINT 100010
139 CONSTANT: GLU_LINE 100011
140 CONSTANT: GLU_FILL 100012
141 CONSTANT: GLU_SILHOUETTE 100013
144 CONSTANT: GLU_SMOOTH 100000
145 CONSTANT: GLU_FLAT 100001
146 CONSTANT: GLU_NONE 100002
149 CONSTANT: GLU_OUTSIDE 100020
150 CONSTANT: GLU_INSIDE 100021
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
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
178 CONSTANT: GLU_TESS_WINDING_RULE 100140
179 CONSTANT: GLU_TESS_BOUNDARY_ONLY 100141
180 CONSTANT: GLU_TESS_TOLERANCE 100142
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
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
207 FUNCTION: void gluBeginCurve ( GLUnurbs* nurb ) ;
208 FUNCTION: void gluBeginPolygon ( GLUtesselator* tess ) ;
209 FUNCTION: void gluBeginSurface ( GLUnurbs* nurb ) ;
210 FUNCTION: void gluBeginTrim ( GLUnurbs* nurb ) ;
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 ) ;
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 ) ;
270 : gl-look-at ( eye focus up -- )
271 [ first3 ] tri@ gluLookAt ;