Synchronize with trunk's revision r57629.
[reactos.git] / dll / opengl / glu32 / src / libnurbs / interface / glinterface.cc
1 /*
2 ** License Applicability. Except to the extent portions of this file are
3 ** made subject to an alternative license as permitted in the SGI Free
4 ** Software License B, Version 1.1 (the "License"), the contents of this
5 ** file are subject only to the provisions of the License. You may not use
6 ** this file except in compliance with the License. You may obtain a copy
7 ** of the License at Silicon Graphics, Inc., attn: Legal Services, 1600
8 ** Amphitheatre Parkway, Mountain View, CA 94043-1351, or at:
9 **
10 ** http://oss.sgi.com/projects/FreeB
11 **
12 ** Note that, as provided in the License, the Software is distributed on an
13 ** "AS IS" basis, with ALL EXPRESS AND IMPLIED WARRANTIES AND CONDITIONS
14 ** DISCLAIMED, INCLUDING, WITHOUT LIMITATION, ANY IMPLIED WARRANTIES AND
15 ** CONDITIONS OF MERCHANTABILITY, SATISFACTORY QUALITY, FITNESS FOR A
16 ** PARTICULAR PURPOSE, AND NON-INFRINGEMENT.
17 **
18 ** Original Code. The Original Code is: OpenGL Sample Implementation,
19 ** Version 1.2.1, released January 26, 2000, developed by Silicon Graphics,
20 ** Inc. The Original Code is Copyright (c) 1991-2000 Silicon Graphics, Inc.
21 ** Copyright in any portions created by third parties is as indicated
22 ** elsewhere herein. All Rights Reserved.
23 **
24 ** Additional Notice Provisions: The application programming interfaces
25 ** established by SGI in conjunction with the Original Code are The
26 ** OpenGL(R) Graphics System: A Specification (Version 1.2.1), released
27 ** April 1, 1999; The OpenGL(R) Graphics System Utility Library (Version
28 ** 1.3), released November 4, 1998; and OpenGL(R) Graphics with the X
29 ** Window System(R) (Version 1.3), released October 19, 1998. This software
30 ** was created using the OpenGL(R) version 1.2.1 Sample Implementation
31 ** published by SGI, but has not been independently verified as being
32 ** compliant with the OpenGL(R) version 1.2.1 Specification.
33 **
34 */
35 /*
36 */
37
38 #include "gluos.h"
39 #include <GL/gl.h>
40 #include <GL/glu.h>
41 #include <stdio.h>
42 #include "glimports.h"
43 #include "glrenderer.h"
44 #include "nurbsconsts.h"
45
46 //#define DOWN_LOAD_NURBS
47 #ifdef DOWN_LOAD_NURBS
48
49 #include "oglTrimNurbs.h"
50 static int surfcount = 0;
51 static oglTrimNurbs* otn = NULL;
52 nurbSurf* tempNurb = NULL;
53 oglTrimLoops* tempTrim = NULL;
54 #endif
55
56
57 //for LOD
58 extern "C" {void glu_LOD_eval_list(GLUnurbs *nurb, int level);}
59
60 void glu_LOD_eval_list(GLUnurbs *nurb, int level)
61 {
62 nurb->LOD_eval_list(level);
63 }
64
65 GLUnurbs * GLAPIENTRY
66 gluNewNurbsRenderer(void)
67 {
68 GLUnurbs *t;
69
70 t = new GLUnurbs();
71 return t;
72 }
73
74 void GLAPIENTRY
75 gluDeleteNurbsRenderer(GLUnurbs *r)
76 {
77 delete r;
78 }
79
80 extern "C"
81 void GLAPIENTRY
82
83 gluDeleteNurbsTessellatorEXT(GLUnurbsObj *r)
84 {
85 delete r;
86 }
87
88 void GLAPIENTRY
89 gluBeginSurface(GLUnurbs *r)
90 {
91 #ifdef DOWN_LOAD_NURBS
92 surfcount++;
93 tempTrim = OTL_make(10,10);
94 #endif
95 r->bgnsurface(0);
96 }
97
98 void GLAPIENTRY
99 gluBeginCurve(GLUnurbs *r)
100 {
101 r->bgncurve(0);
102 }
103
104 void GLAPIENTRY
105 gluEndCurve(GLUnurbs *r)
106 {
107 r->endcurve();
108 }
109
110 void GLAPIENTRY
111 gluEndSurface(GLUnurbs *r)
112 {
113 #ifdef DOWN_LOAD_NURBS
114 if(surfcount == 1)
115 otn = OTN_make(1);
116 OTN_insert(otn, tempNurb, tempTrim);
117 if(surfcount >= 1)
118 {
119 #ifdef DEBUG
120 printf("write file\n");
121 #endif
122 OTN_write(otn, "out.otn");
123
124 }
125 #endif
126
127 r->endsurface();
128 }
129
130 void GLAPIENTRY
131 gluBeginTrim(GLUnurbs *r)
132 {
133 #ifdef DOWN_LOAD_NURBS
134 OTL_bgnTrim(tempTrim);
135 #endif
136
137 r->bgntrim();
138 }
139
140 void GLAPIENTRY
141 gluEndTrim(GLUnurbs *r)
142 {
143 #ifdef DOWN_LOAD_NURBS
144 OTL_endTrim(tempTrim);
145 #endif
146 r->endtrim();
147 }
148
149 void GLAPIENTRY
150 gluPwlCurve(GLUnurbs *r, GLint count, INREAL array[],
151 GLint stride, GLenum type)
152 {
153 #ifdef DOWN_LOAD_NURBS
154 OTL_pwlCurve(tempTrim, count, array, stride, type);
155 #endif
156
157 int realType;
158 switch(type) {
159 case GLU_MAP1_TRIM_2:
160 realType = N_P2D;
161 break;
162 case GLU_MAP1_TRIM_3:
163 realType = N_P2DR;
164 break;
165 default:
166 realType = type;
167 break;
168 }
169 r->pwlcurve(count, array, sizeof(INREAL) * stride, realType);
170 }
171
172 void GLAPIENTRY
173 gluNurbsCurve(GLUnurbs *r, GLint nknots, INREAL knot[], GLint stride,
174 INREAL ctlarray[], GLint order, GLenum type)
175 {
176 #ifdef DOWN_LOAD_NURBS
177 OTL_nurbsCurve(tempTrim, nknots, knot, stride, ctlarray, order, type);
178 #endif
179
180 int realType;
181
182 switch(type) {
183 case GLU_MAP1_TRIM_2:
184 realType = N_P2D;
185 break;
186 case GLU_MAP1_TRIM_3:
187 realType = N_P2DR;
188 break;
189 default:
190 realType = type;
191 break;
192 }
193
194 r->nurbscurve(nknots, knot, sizeof(INREAL) * stride, ctlarray, order,
195 realType);
196 }
197
198 void GLAPIENTRY
199 gluNurbsSurface(GLUnurbs *r, GLint sknot_count, GLfloat *sknot,
200 GLint tknot_count, GLfloat *tknot,
201 GLint s_stride, GLint t_stride,
202 GLfloat *ctlarray, GLint sorder, GLint torder,
203 GLenum type)
204 {
205 #ifdef DOWN_LOAD_NURBS
206 {
207 int dimension;
208 switch(type){
209 case GL_MAP2_VERTEX_3:
210 dimension = 3;
211 break;
212 case GL_MAP2_VERTEX_4:
213 dimension = 4;
214 break;
215 default:
216 fprintf(stderr, "error in glinterface.c++, type no implemented\n");
217 exit(1);
218 }
219 tempNurb = nurbSurfMake(sknot_count, sknot,
220 tknot_count, tknot,
221 sorder, torder,
222 dimension,
223 ctlarray,
224 s_stride, t_stride);
225
226 }
227 #endif
228
229 r->nurbssurface(sknot_count, sknot, tknot_count, tknot,
230 sizeof(INREAL) * s_stride, sizeof(INREAL) * t_stride,
231 ctlarray, sorder, torder, type);
232 }
233
234 void GLAPIENTRY
235 gluLoadSamplingMatrices(GLUnurbs *r, const GLfloat modelMatrix[16],
236 const GLfloat projMatrix[16],
237 const GLint viewport[4])
238 {
239 r->useGLMatrices(modelMatrix, projMatrix, viewport);
240 }
241
242 void GLAPIENTRY
243 gluNurbsProperty(GLUnurbs *r, GLenum property, GLfloat value)
244 {
245 GLfloat nurbsValue;
246
247 switch (property) {
248 case GLU_AUTO_LOAD_MATRIX:
249 r->setautoloadmode(value);
250 return;
251
252 case GLU_CULLING:
253 if (value != 0.0) {
254 nurbsValue = N_CULLINGON;
255 } else {
256 nurbsValue = N_NOCULLING;
257 }
258 r->setnurbsproperty(GL_MAP2_VERTEX_3, N_CULLING, nurbsValue);
259 r->setnurbsproperty(GL_MAP2_VERTEX_4, N_CULLING, nurbsValue);
260 r->setnurbsproperty(GL_MAP1_VERTEX_3, N_CULLING, nurbsValue);
261 r->setnurbsproperty(GL_MAP1_VERTEX_4, N_CULLING, nurbsValue);
262 return;
263
264 case GLU_SAMPLING_METHOD:
265 if (value == GLU_PATH_LENGTH) {
266 nurbsValue = N_PATHLENGTH;
267 } else if (value == GLU_PARAMETRIC_ERROR) {
268 nurbsValue = N_PARAMETRICDISTANCE;
269 } else if (value == GLU_DOMAIN_DISTANCE) {
270 nurbsValue = N_DOMAINDISTANCE;
271 r->set_is_domain_distance_sampling(1); //optimzing untrimmed case
272
273 } else if (value == GLU_OBJECT_PARAMETRIC_ERROR) {
274 nurbsValue = N_OBJECTSPACE_PARA;
275 r->setautoloadmode( 0.0 );
276 r->setSamplingMatrixIdentity();
277 } else if (value == GLU_OBJECT_PATH_LENGTH) {
278 nurbsValue = N_OBJECTSPACE_PATH;
279 r->setautoloadmode( 0.0 );
280 r->setSamplingMatrixIdentity();
281 } else {
282 r->postError(GLU_INVALID_VALUE);
283 return;
284 }
285
286 r->setnurbsproperty(GL_MAP2_VERTEX_3, N_SAMPLINGMETHOD, nurbsValue);
287 r->setnurbsproperty(GL_MAP2_VERTEX_4, N_SAMPLINGMETHOD, nurbsValue);
288 r->setnurbsproperty(GL_MAP1_VERTEX_3, N_SAMPLINGMETHOD, nurbsValue);
289 r->setnurbsproperty(GL_MAP1_VERTEX_4, N_SAMPLINGMETHOD, nurbsValue);
290 return;
291
292 case GLU_SAMPLING_TOLERANCE:
293 r->setnurbsproperty(GL_MAP2_VERTEX_3, N_PIXEL_TOLERANCE, value);
294 r->setnurbsproperty(GL_MAP2_VERTEX_4, N_PIXEL_TOLERANCE, value);
295 r->setnurbsproperty(GL_MAP1_VERTEX_3, N_PIXEL_TOLERANCE, value);
296 r->setnurbsproperty(GL_MAP1_VERTEX_4, N_PIXEL_TOLERANCE, value);
297 return;
298
299 case GLU_PARAMETRIC_TOLERANCE:
300 r->setnurbsproperty(GL_MAP2_VERTEX_3, N_ERROR_TOLERANCE, value);
301 r->setnurbsproperty(GL_MAP2_VERTEX_4, N_ERROR_TOLERANCE, value);
302 r->setnurbsproperty(GL_MAP1_VERTEX_3, N_ERROR_TOLERANCE, value);
303 r->setnurbsproperty(GL_MAP1_VERTEX_4, N_ERROR_TOLERANCE, value);
304 return;
305
306
307 case GLU_DISPLAY_MODE:
308
309 if (value == GLU_FILL) {
310 nurbsValue = N_FILL;
311 } else if (value == GLU_OUTLINE_POLYGON) {
312 nurbsValue = N_OUTLINE_POLY;
313 } else if (value == GLU_OUTLINE_PATCH) {
314 nurbsValue = N_OUTLINE_PATCH;
315 } else {
316 r->postError(GLU_INVALID_VALUE);
317 return;
318 }
319 r->setnurbsproperty(N_DISPLAY, nurbsValue);
320
321 break;
322
323 case GLU_U_STEP:
324 r->setnurbsproperty(GL_MAP1_VERTEX_3, N_S_STEPS, value);
325 r->setnurbsproperty(GL_MAP1_VERTEX_4, N_S_STEPS, value);
326 r->setnurbsproperty(GL_MAP2_VERTEX_3, N_S_STEPS, value);
327 r->setnurbsproperty(GL_MAP2_VERTEX_4, N_S_STEPS, value);
328
329 //added for optimizing untrimmed case
330 r->set_domain_distance_u_rate(value);
331 break;
332
333 case GLU_V_STEP:
334 r->setnurbsproperty(GL_MAP1_VERTEX_3, N_T_STEPS, value);
335 r->setnurbsproperty(GL_MAP1_VERTEX_4, N_T_STEPS, value);
336 r->setnurbsproperty(GL_MAP2_VERTEX_3, N_T_STEPS, value);
337 r->setnurbsproperty(GL_MAP2_VERTEX_4, N_T_STEPS, value);
338
339 //added for optimizing untrimmed case
340 r->set_domain_distance_v_rate(value);
341 break;
342
343 case GLU_NURBS_MODE:
344 if(value == GLU_NURBS_RENDERER)
345 r->put_callbackFlag(0);
346 else if(value == GLU_NURBS_TESSELLATOR)
347 r->put_callbackFlag(1);
348 else
349 r->postError(GLU_INVALID_ENUM);
350 break;
351
352 default:
353 r->postError(GLU_INVALID_ENUM);
354 return;
355 }
356 }
357
358 void GLAPIENTRY
359 gluGetNurbsProperty(GLUnurbs *r, GLenum property, GLfloat *value)
360 {
361 GLfloat nurbsValue;
362
363 switch(property) {
364 case GLU_AUTO_LOAD_MATRIX:
365 if (r->getautoloadmode()) {
366 *value = GL_TRUE;
367 } else {
368 *value = GL_FALSE;
369 }
370 break;
371 case GLU_CULLING:
372 r->getnurbsproperty(GL_MAP2_VERTEX_3, N_CULLING, &nurbsValue);
373 if (nurbsValue == N_CULLINGON) {
374 *value = GL_TRUE;
375 } else {
376 *value = GL_FALSE;
377 }
378 break;
379 case GLU_SAMPLING_METHOD:
380 r->getnurbsproperty(GL_MAP2_VERTEX_3, N_SAMPLINGMETHOD, value);
381 if(*value == N_PATHLENGTH)
382 *value = GLU_PATH_LENGTH;
383 else if(*value == N_PARAMETRICDISTANCE)
384 *value = GLU_PARAMETRIC_ERROR;
385 else if(*value == N_DOMAINDISTANCE)
386 *value = GLU_DOMAIN_DISTANCE;
387 else if(*value == N_OBJECTSPACE_PATH)
388 *value = GLU_OBJECT_PATH_LENGTH;
389 else if(*value == N_OBJECTSPACE_PARA)
390 *value = GLU_OBJECT_PARAMETRIC_ERROR;
391 break;
392 case GLU_SAMPLING_TOLERANCE:
393 r->getnurbsproperty(GL_MAP2_VERTEX_3, N_PIXEL_TOLERANCE, value);
394 break;
395 case GLU_PARAMETRIC_TOLERANCE:
396 r->getnurbsproperty(GL_MAP2_VERTEX_3, N_ERROR_TOLERANCE, value);
397 break;
398
399 case GLU_U_STEP:
400 r->getnurbsproperty(GL_MAP2_VERTEX_3, N_S_STEPS, value);
401 break;
402 case GLU_V_STEP:
403 r->getnurbsproperty(GL_MAP2_VERTEX_3, N_T_STEPS, value);
404 break;
405 case GLU_DISPLAY_MODE:
406 r->getnurbsproperty(N_DISPLAY, &nurbsValue);
407 if (nurbsValue == N_FILL) {
408 *value = GLU_FILL;
409 } else if (nurbsValue == N_OUTLINE_POLY) {
410 *value = GLU_OUTLINE_POLYGON;
411 } else {
412 *value = GLU_OUTLINE_PATCH;
413 }
414 break;
415
416 case GLU_NURBS_MODE:
417 if(r->is_callback())
418 *value = GLU_NURBS_TESSELLATOR;
419 else
420 *value = GLU_NURBS_RENDERER;
421 break;
422
423 default:
424 r->postError(GLU_INVALID_ENUM);
425 return;
426 }
427 }
428
429 extern "C" void GLAPIENTRY
430 gluNurbsCallback(GLUnurbs *r, GLenum which, _GLUfuncptr fn )
431 {
432 switch (which) {
433 case GLU_NURBS_BEGIN:
434 case GLU_NURBS_END:
435 case GLU_NURBS_VERTEX:
436 case GLU_NURBS_NORMAL:
437 case GLU_NURBS_TEXTURE_COORD:
438 case GLU_NURBS_COLOR:
439 case GLU_NURBS_BEGIN_DATA:
440 case GLU_NURBS_END_DATA:
441 case GLU_NURBS_VERTEX_DATA:
442 case GLU_NURBS_NORMAL_DATA:
443 case GLU_NURBS_TEXTURE_COORD_DATA:
444 case GLU_NURBS_COLOR_DATA:
445 r->putSurfCallBack(which, fn);
446 break;
447
448 case GLU_NURBS_ERROR:
449 r->errorCallback = (void (APIENTRY *)( GLenum e )) fn;
450 break;
451 default:
452 r->postError(GLU_INVALID_ENUM);
453 return;
454 }
455 }
456
457 extern "C"
458 void GLAPIENTRY
459 gluNurbsCallbackDataEXT(GLUnurbs* r, void* userData)
460 {
461 r->setNurbsCallbackData(userData);
462 }
463
464 extern "C"
465 void GLAPIENTRY
466 gluNurbsCallbackData(GLUnurbs* r, void* userData)
467 {
468 gluNurbsCallbackDataEXT(r,userData);
469 }