Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

OPENGL.PAS@ 376

Last change on this file since 376 was 8, checked in by RBRi, 19 years ago
+ rest of sibyl stuff
Property svn:eol-style set to `native`
File size: 82.2 KB

Line
1	Unit OpenGL;
2
3	{
4	Copyright 1991-1993, Silicon Graphics, Inc.
5	Ported to Sibyl by SpeedSoft 1997
6	All Rights Reserved.
7	}
8
9	Interface
10
11	Type
12	GLenum=LongWord;
13	GLboolean=Boolean;
14	GLbitfield=LongWord;
15	GLbyte=ShortInt;
16	GLshort=ShortInt;
17	GLint=LongInt;
18	GLsizei=LongInt;
19	GLubyte=Byte;
20	GLushort=Word;
21	GLuint=LongWord;
22	GLfloat=Single;
23	GLclampf=Single;
24	GLdouble=Double;
25	GLclampd=Double;
26	GLvoid=Pointer;
27
28	PGLuByte=^GLubyte;
29
30	Const
31	GLUT_RGB =0;
32	GLUT_RGBA =GLUT_RGB;
33	GLUT_INDEX =1;
34	GLUT_SINGLE =0;
35	GLUT_DOUBLE =2;
36	GLUT_ACCUM =4;
37	GLUT_ALPHA =8;
38	GLUT_DEPTH =16;
39	GLUT_STENCIL =32;
40	GLUT_MULTISAMPLE =128;
41	GLUT_STEREO =256;
42
43	GLUT_LEFT_BUTTON =0;
44	GLUT_MIDDLE_BUTTON =1;
45	GLUT_RIGHT_BUTTON =2;
46
47	GLUT_DOWN =0;
48	GLUT_UP =1;
49
50	GLUT_KEY_F1 =1;
51	GLUT_KEY_F2 =2;
52	GLUT_KEY_F3 =3;
53	GLUT_KEY_F4 =4;
54	GLUT_KEY_F5 =5;
55	GLUT_KEY_F6 =6;
56	GLUT_KEY_F7 =7;
57	GLUT_KEY_F8 =8;
58	GLUT_KEY_F9 =9;
59	GLUT_KEY_F10 =10;
60	GLUT_KEY_F11 =11;
61	GLUT_KEY_F12 =12;
62	GLUT_KEY_LEFT =100;
63	GLUT_KEY_UP =101;
64	GLUT_KEY_RIGHT =102;
65	GLUT_KEY_DOWN =103;
66	GLUT_KEY_PAGE_UP =104;
67	GLUT_KEY_PAGE_DOWN =105;
68	GLUT_KEY_HOME =106;
69	GLUT_KEY_END =107;
70	GLUT_KEY_INSERT =108;
71
72	GLUT_LEFT =0;
73	GLUT_ENTERED =1;
74
75	GLUT_MENU_NOT_IN_USE =0;
76	GLUT_MENU_IN_USE =1;
77
78	GLUT_NOT_VISIBLE =0;
79	GLUT_VISIBLE =1;
80
81	GLUT_RED =0;
82	GLUT_GREEN =1;
83	GLUT_BLUE =2;
84
85	{
86	/* bitmap font opaque addresses (use constants instead in source code) */
87	extern void *glutBitmap9By15;
88	extern void *glutBitmap8By13;
89	extern void *glutBitmapTimesRoman10;
90	extern void *glutBitmapTimesRoman24;
91	extern void *glutStrokeRoman;
92	extern void *glutStrokeMonoRoman;
93
94	/* stroke font constants (use these in GLUT program) */
95	GLUT_STROKE_ROMAN (&glutStrokeRoman)
96	GLUT_STROKE_MONO_ROMAN (&glutStrokeMonoRoman)
97
98	GLUT_BITMAP_9_BY_15 (&glutBitmap9By15)
99	GLUT_BITMAP_8_BY_13 (&glutBitmap8By13)
100	GLUT_BITMAP_TIMES_ROMAN_10 (&glutBitmapTimesRoman10)
101	GLUT_BITMAP_TIMES_ROMAN_24 (&glutBitmapTimesRoman24)
102	}
103
104	Const
105	GLUT_WINDOW_X =100;
106	GLUT_WINDOW_Y =101;
107	GLUT_WINDOW_WIDTH =102;
108	GLUT_WINDOW_HEIGHT =103;
109	GLUT_WINDOW_BUFFER_SIZE =104;
110	GLUT_WINDOW_STENCIL_SIZE =105;
111	GLUT_WINDOW_DEPTH_SIZE =106;
112	GLUT_WINDOW_RED_SIZE =107;
113	GLUT_WINDOW_GREEN_SIZE =108;
114	GLUT_WINDOW_BLUE_SIZE =109;
115	GLUT_WINDOW_ALPHA_SIZE =110;
116	GLUT_WINDOW_ACCUM_RED_SIZE =111;
117	GLUT_WINDOW_ACCUM_GREEN_SIZE =112;
118	GLUT_WINDOW_ACCUM_BLUE_SIZE =113;
119	GLUT_WINDOW_ACCUM_ALPHA_SIZE =114;
120	GLUT_WINDOW_DOUBLEBUFFER =115;
121	GLUT_WINDOW_RGBA =116;
122	GLUT_WINDOW_PARENT =117;
123	GLUT_WINDOW_NUM_CHILDREN =118;
124	GLUT_WINDOW_COLORMAP_SIZE =119;
125	GLUT_WINDOW_NUM_SAMPLES =120;
126	GLUT_WINDOW_STEREO =121;
127	GLUT_SCREEN_WIDTH =200;
128	GLUT_SCREEN_HEIGHT =201;
129	GLUT_SCREEN_WIDTH_MM =202;
130	GLUT_SCREEN_HEIGHT_MM =203;
131	GLUT_MENU_NUM_ITEMS =300;
132	GLUT_DISPLAY_MODE_POSSIBLE =400;
133	GLUT_INIT_WINDOW_X =500;
134	GLUT_INIT_WINDOW_Y =501;
135	GLUT_INIT_WINDOW_WIDTH =502;
136	GLUT_INIT_WINDOW_HEIGHT =503;
137	GLUT_INIT_DISPLAY_MODE =504;
138	GLUT_ELAPSED_TIME =700;
139
140	GLUT_HAS_KEYBOARD =600;
141	GLUT_HAS_MOUSE =601;
142	GLUT_HAS_SPACEBALL =602;
143	GLUT_HAS_DIAL_AND_BUTTON_BOX =603;
144	GLUT_HAS_TABLET =604;
145	GLUT_NUM_MOUSE_BUTTONS =605;
146	GLUT_NUM_SPACEBALL_BUTTONS =606;
147	GLUT_NUM_BUTTON_BOX_BUTTONS =607;
148	GLUT_NUM_DIALS =608;
149	GLUT_NUM_TABLET_BUTTONS =609;
150
151	Const
152	GLU_FALSE =0;
153	GLU_TRUE =1;
154
155	GLU_VERSION_1_1 =1;
156	GLU_VERSION_1_2 =1;
157
158	GLU_VERSION =100800;
159	GLU_EXTENSIONS =100801;
160
161	GLU_INVALID_ENUM =100900;
162	GLU_INVALID_VALUE =100901;
163	GLU_OUT_OF_MEMORY =100902;
164	GLU_INCOMPATIBLE_GL_VERSION =100903;
165
166	GLU_OUTLINE_POLYGON =100240;
167	GLU_OUTLINE_PATCH =100241;
168
169	GLU_ERROR =100103;
170
171	GLU_NURBS_ERROR1 =100251;
172	GLU_NURBS_ERROR2 =100252;
173	GLU_NURBS_ERROR3 =100253;
174	GLU_NURBS_ERROR4 =100254;
175	GLU_NURBS_ERROR5 =100255;
176	GLU_NURBS_ERROR6 =100256;
177	GLU_NURBS_ERROR7 =100257;
178	GLU_NURBS_ERROR8 =100258;
179	GLU_NURBS_ERROR9 =100259;
180	GLU_NURBS_ERROR10 =100260;
181	GLU_NURBS_ERROR11 =100261;
182	GLU_NURBS_ERROR12 =100262;
183	GLU_NURBS_ERROR13 =100263;
184	GLU_NURBS_ERROR14 =100264;
185	GLU_NURBS_ERROR15 =100265;
186	GLU_NURBS_ERROR16 =100266;
187	GLU_NURBS_ERROR17 =100267;
188	GLU_NURBS_ERROR18 =100268;
189	GLU_NURBS_ERROR19 =100269;
190	GLU_NURBS_ERROR20 =100270;
191	GLU_NURBS_ERROR21 =100271;
192	GLU_NURBS_ERROR22 =100272;
193	GLU_NURBS_ERROR23 =100273;
194	GLU_NURBS_ERROR24 =100274;
195	GLU_NURBS_ERROR25 =100275;
196	GLU_NURBS_ERROR26 =100276;
197	GLU_NURBS_ERROR27 =100277;
198	GLU_NURBS_ERROR28 =100278;
199	GLU_NURBS_ERROR29 =100279;
200	GLU_NURBS_ERROR30 =100280;
201	GLU_NURBS_ERROR31 =100281;
202	GLU_NURBS_ERROR32 =100282;
203	GLU_NURBS_ERROR33 =100283;
204	GLU_NURBS_ERROR34 =100284;
205	GLU_NURBS_ERROR35 =100285;
206	GLU_NURBS_ERROR36 =100286;
207	GLU_NURBS_ERROR37 =100287;
208
209	GLU_AUTO_LOAD_MATRIX =100200;
210	GLU_CULLING =100201;
211	GLU_SAMPLING_TOLERANCE =100203;
212	GLU_DISPLAY_MODE =100204;
213	GLU_PARAMETRIC_TOLERANCE =100202;
214	GLU_SAMPLING_METHOD =100205;
215	GLU_U_STEP =100206;
216	GLU_V_STEP =100207;
217
218	GLU_PATH_LENGTH =100215;
219	GLU_PARAMETRIC_ERROR =100216;
220	GLU_DOMAIN_DISTANCE =100217;
221
222	GLU_MAP1_TRIM_2 =100210;
223	GLU_MAP1_TRIM_3 =100211;
224
225	GLU_POINT =100010;
226	GLU_LINE =100011;
227	GLU_FILL =100012;
228	GLU_SILHOUETTE =100013;
229
230	GLU_SMOOTH =100000;
231	GLU_FLAT =100001;
232	GLU_NONE =100002;
233
234	GLU_OUTSIDE =100020;
235	GLU_INSIDE =100021;
236
237	GLU_TESS_BEGIN =100100;
238	GLU_BEGIN =100100;
239	GLU_TESS_VERTEX =100101;
240	GLU_VERTEX =100101;
241	GLU_TESS_END =100102;
242	GLU_END =100102;
243	GLU_TESS_ERROR =100103;
244	GLU_TESS_EDGE_FLAG =100104;
245	GLU_EDGE_FLAG =100104;
246	GLU_TESS_COMBINE =100105;
247	GLU_TESS_BEGIN_DATA =100106;
248	GLU_TESS_VERTEX_DATA =100107;
249	GLU_TESS_END_DATA =100108;
250	GLU_TESS_ERROR_DATA =100109;
251	GLU_TESS_EDGE_FLAG_DATA =100110;
252	GLU_TESS_COMBINE_DATA =100111;
253
254	GLU_CW =100120;
255	GLU_CCW =100121;
256	GLU_INTERIOR =100122;
257	GLU_EXTERIOR =100123;
258	GLU_UNKNOWN =100124;
259
260	GLU_TESS_WINDING_RULE =100140;
261	GLU_TESS_BOUNDARY_ONLY =100141;
262	GLU_TESS_TOLERANCE =100142;
263
264	GLU_TESS_ERROR1 =100151;
265	GLU_TESS_ERROR2 =100152;
266	GLU_TESS_ERROR3 =100153;
267	GLU_TESS_ERROR4 =100154;
268	GLU_TESS_ERROR5 =100155;
269	GLU_TESS_ERROR6 =100156;
270	GLU_TESS_ERROR7 =100157;
271	GLU_TESS_ERROR8 =100158;
272	GLU_TESS_MISSING_BEGIN_POLYGON =100151;
273	GLU_TESS_MISSING_BEGIN_CONTOUR =100152;
274	GLU_TESS_MISSING_END_POLYGON =100153;
275	GLU_TESS_MISSING_END_CONTOUR =100154;
276	GLU_TESS_COORD_TOO_LARGE =100155;
277	GLU_TESS_NEED_COMBINE_CALLBACK =100156;
278
279	GLU_TESS_WINDING_ODD =100130;
280	GLU_TESS_WINDING_NONZERO =100131;
281	GLU_TESS_WINDING_POSITIVE =100132;
282	GLU_TESS_WINDING_NEGATIVE =100133;
283	GLU_TESS_WINDING_ABS_GEQ_TWO =100134;
284
285
286	Type GLUnurbs=Record End;
287	GLUquadric=Record End;
288	GLUtesselator=Record End;
289
290	GLUnurbsObj=GLUnurbs;
291	GLUquadricObj=GLUquadric;
292	GLUtesselatorObj=GLUtesselator;
293	GLUtriangulatorObj=GLUtesselator;
294
295	Const
296	GLU_TESS_MAX_COORD =1.0e150;
297
298	Const
299	AUX_RGB =0;
300	AUX_RGBA =AUX_RGB;
301	AUX_INDEX =1;
302	AUX_SINGLE =0;
303	AUX_DOUBLE =2;
304	AUX_DIRECT =0;
305	AUX_INDIRECT =4;
306
307	AUX_ACCUM =8;
308	AUX_ALPHA =16;
309	AUX_DEPTH =32;
310	AUX_STENCIL =64;
311	AUX_AUX =128;
312
313	Type AUX_EVENTREC=Record
314	event:GLint;
315	data:Array[0..3] Of GLint;
316	End;
317
318	Const
319	AUX_EXPOSE = 1;
320	AUX_CONFIG = 2;
321	AUX_DRAW = 4;
322	AUX_KEYEVENT = 8;
323	AUX_MOUSEDOWN = 16;
324	AUX_MOUSEUP = 32;
325	AUX_MOUSELOC = 64;
326
327	AUX_WINDOWX =0;
328	AUX_WINDOWY =1;
329	AUX_MOUSEX =0;
330	AUX_MOUSEY =1;
331	AUX_MOUSESTATUS =3;
332	AUX_KEY =0;
333	AUX_KEYSTATUS =1;
334
335	AUX_LEFTBUTTON =1;
336	AUX_RIGHTBUTTON =2;
337	AUX_MIDDLEBUTTON =4;
338	AUX_SHIFT =1;
339	AUX_CONTROL =2;
340
341	AUX_RETURN =$0D;
342	AUX_ESCAPE =$1B;
343	AUX_SPACE =$20;
344	AUX_LEFT =$25;
345	AUX_UP =$26;
346	AUX_RIGHT =$27;
347	AUX_DOWN =$28;
348	AUX_A ='A';
349	AUX_B ='B';
350	AUX_C ='C';
351	AUX_D ='D';
352	AUX_E ='E';
353	AUX_F ='F';
354	AUX_G ='G';
355	AUX_H ='H';
356	AUX_I ='I';
357	AUX_J ='J';
358	AUX_K ='K';
359	AUX_L ='L';
360	AUX_M ='M';
361	AUX_N ='N';
362	AUX_O ='O';
363	AUX_P ='P';
364	AUX_Q ='Q';
365	AUX_R ='R';
366	AUX_S ='S';
367	AUX_T ='T';
368	AUX_U ='U';
369	AUX_V ='V';
370	AUX_W ='W';
371	AUX_X ='X';
372	AUX_Y ='Y';
373	AUX_Z ='Z';
374	AUX__a ='a';
375	AUX__b ='b';
376	AUX__c ='c';
377	AUX__d ='d';
378	AUX__e ='e';
379	AUX__f ='f';
380	AUX__g ='g';
381	AUX__h ='h';
382	AUX__i ='i';
383	AUX__j ='j';
384	AUX__k ='k';
385	AUX__l ='l';
386	AUX__m ='m';
387	AUX__n ='n';
388	AUX__o ='o';
389	AUX__p ='p';
390	AUX__q ='q';
391	AUX__r ='r';
392	AUX__s ='s';
393	AUX__t ='t';
394	AUX__u ='u';
395	AUX__v ='v';
396	AUX__w ='w';
397	AUX__x ='x';
398	AUX__y ='y';
399	AUX__z ='z';
400	AUX_0 ='0';
401	AUX_1 ='1';
402	AUX_2 ='2';
403	AUX_3 ='3';
404	AUX_4 ='4';
405	AUX_5 ='5';
406	AUX_6 ='6';
407	AUX_7 ='7';
408	AUX_8 ='8';
409	AUX_9 ='9';
410
411	AUX_FD =1;
412	AUX_COLORMAP =3;
413	AUX_GREYSCALEMAP =4;
414	AUX_FOGMAP =5;
415	AUX_ONECOLOR =6;
416
417	AUX_BLACK = 0;
418	AUX_RED = 1;
419	AUX_GREEN = 2;
420	AUX_YELLOW = 3;
421	AUX_BLUE = 4;
422	AUX_MAGENTA = 5;
423	AUX_CYAN = 6;
424	AUX_WHITE = 7;
425
426	Var auxRGBMap:Array[0..7,0..2] Of Single;
427
428	Type
429	PAUX_RGBImageRec=^AUX_RGBImageRec;
430	AUX_RGBImageRec=Record
431	sizeX, sizeY:GLint;
432	data:Pointer;
433	End;
434
435	Const
436	AUX_USE_ID = 1;
437	AUX_EXACT_MATCH = 2;
438	AUX_MINIMUM_CRITERIA = 3;
439
440	Const
441	GL_ACCUM =$0100;
442	GL_LOAD =$0101;
443	GL_RETURN =$0102;
444	GL_MULT =$0103;
445	GL_ADD =$0104;
446
447	GL_NEVER =$0200;
448	GL_LESS =$0201;
449	GL_EQUAL =$0202;
450	GL_LEQUAL =$0203;
451	GL_GREATER =$0204;
452	GL_NOTEQUAL =$0205;
453	GL_GEQUAL =$0206;
454	GL_ALWAYS =$0207;
455
456	GL_CURRENT_BIT =$00000001;
457	GL_POINT_BIT =$00000002;
458	GL_LINE_BIT =$00000004;
459	GL_POLYGON_BIT =$00000008;
460	GL_POLYGON_STIPPLE_BIT =$00000010;
461	GL_PIXEL_MODE_BIT =$00000020;
462	GL_LIGHTING_BIT =$00000040;
463	GL_FOG_BIT =$00000080;
464	GL_DEPTH_BUFFER_BIT =$00000100;
465	GL_ACCUM_BUFFER_BIT =$00000200;
466	GL_STENCIL_BUFFER_BIT =$00000400;
467	GL_VIEWPORT_BIT =$00000800;
468	GL_TRANSFORM_BIT =$00001000;
469	GL_ENABLE_BIT =$00002000;
470	GL_COLOR_BUFFER_BIT =$00004000;
471	GL_HINT_BIT =$00008000;
472	GL_EVAL_BIT =$00010000;
473	GL_LIST_BIT =$00020000;
474	GL_TEXTURE_BIT =$00040000;
475	GL_SCISSOR_BIT =$00080000;
476	GL_ALL_ATTRIB_BITS =$000fffff;
477
478	GL_POINTS =$0000;
479	GL_LINES =$0001;
480	GL_LINE_LOOP =$0002;
481	GL_LINE_STRIP =$0003;
482	GL_TRIANGLES =$0004;
483	GL_TRIANGLE_STRIP =$0005;
484	GL_TRIANGLE_FAN =$0006;
485	GL_QUADS =$0007;
486	GL_QUAD_STRIP =$0008;
487	GL_POLYGON =$0009;
488
489	GL_ZERO =0;
490	GL_ONE =1;
491	GL_SRC_COLOR =$0300;
492	GL_ONE_MINUS_SRC_COLOR =$0301;
493	GL_SRC_ALPHA =$0302;
494	GL_ONE_MINUS_SRC_ALPHA =$0303;
495	GL_DST_ALPHA =$0304;
496	GL_ONE_MINUS_DST_ALPHA =$0305;
497
498	GL_DST_COLOR =$0306;
499	GL_ONE_MINUS_DST_COLOR =$0307;
500	GL_SRC_ALPHA_SATURATE =$0308;
501
502	GL_TRUE =True;
503	GL_FALSE =False;
504
505	GL_CLIP_PLANE0 =$3000;
506	GL_CLIP_PLANE1 =$3001;
507	GL_CLIP_PLANE2 =$3002;
508	GL_CLIP_PLANE3 =$3003;
509	GL_CLIP_PLANE4 =$3004;
510	GL_CLIP_PLANE5 =$3005;
511
512	GL_NONE =0;
513	GL_FRONT_LEFT =$0400;
514	GL_FRONT_RIGHT =$0401;
515	GL_BACK_LEFT =$0402;
516	GL_BACK_RIGHT =$0403;
517	GL_FRONT =$0404;
518	GL_BACK =$0405;
519	GL_LEFT =$0406;
520	GL_RIGHT =$0407;
521	GL_FRONT_AND_BACK =$0408;
522	GL_AUX0 =$0409;
523	GL_AUX1 =$040A;
524	GL_AUX2 =$040B;
525	GL_AUX3 =$040C;
526
527	GL_NO_ERROR =0;
528	GL_INVALID_ENUM =$0500;
529	GL_INVALID_VALUE =$0501;
530	GL_INVALID_OPERATION =$0502;
531	GL_STACK_OVERFLOW =$0503;
532	GL_STACK_UNDERFLOW =$0504;
533	GL_OUT_OF_MEMORY =$0505;
534
535	GL_2D =$0600;
536	GL_3D =$0601;
537	GL_3D_COLOR =$0602;
538	GL_3D_COLOR_TEXTURE =$0603;
539	GL_4D_COLOR_TEXTURE =$0604;
540
541	GL_PASS_THROUGH_TOKEN =$0700;
542	GL_POINT_TOKEN =$0701;
543	GL_LINE_TOKEN =$0702;
544	GL_POLYGON_TOKEN =$0703;
545	GL_BITMAP_TOKEN =$0704;
546	GL_DRAW_PIXEL_TOKEN =$0705;
547	GL_COPY_PIXEL_TOKEN =$0706;
548	GL_LINE_RESET_TOKEN =$0707;
549
550	GL_EXP =$0800;
551	GL_EXP2 =$0801;
552
553	GL_CW =$0900;
554	GL_CCW =$0901;
555
556	GL_COEFF =$0A00;
557	GL_ORDER =$0A01;
558	GL_DOMAIN =$0A02;
559
560	GL_CURRENT_COLOR =$0B00;
561	GL_CURRENT_INDEX =$0B01;
562	GL_CURRENT_NORMAL =$0B02;
563	GL_CURRENT_TEXTURE_COORDS =$0B03;
564	GL_CURRENT_RASTER_COLOR =$0B04;
565	GL_CURRENT_RASTER_INDEX =$0B05;
566	GL_CURRENT_RASTER_TEXTURE_COORDS =$0B06;
567	GL_CURRENT_RASTER_POSITION =$0B07;
568	GL_CURRENT_RASTER_POSITION_VALID =$0B08;
569	GL_CURRENT_RASTER_DISTANCE =$0B09;
570	GL_POINT_SMOOTH =$0B10;
571	GL_POINT_SIZE =$0B11;
572	GL_POINT_SIZE_RANGE =$0B12;
573	GL_POINT_SIZE_GRANULARITY =$0B13;
574	GL_LINE_SMOOTH =$0B20;
575	GL_LINE_WIDTH =$0B21;
576	GL_LINE_WIDTH_RANGE =$0B22;
577	GL_LINE_WIDTH_GRANULARITY =$0B23;
578	GL_LINE_STIPPLE =$0B24;
579	GL_LINE_STIPPLE_PATTERN =$0B25;
580	GL_LINE_STIPPLE_REPEAT =$0B26;
581	GL_LIST_MODE =$0B30;
582	GL_MAX_LIST_NESTING =$0B31;
583	GL_LIST_BASE =$0B32;
584	GL_LIST_INDEX =$0B33;
585	GL_POLYGON_MODE =$0B40;
586	GL_POLYGON_SMOOTH =$0B41;
587	GL_POLYGON_STIPPLE =$0B42;
588	GL_EDGE_FLAG =$0B43;
589	GL_CULL_FACE =$0B44;
590	GL_CULL_FACE_MODE =$0B45;
591	GL_FRONT_FACE =$0B46;
592	GL_LIGHTING =$0B50;
593	GL_LIGHT_MODEL_LOCAL_VIEWER =$0B51;
594	GL_LIGHT_MODEL_TWO_SIDE =$0B52;
595	GL_LIGHT_MODEL_AMBIENT =$0B53;
596	GL_SHADE_MODEL =$0B54;
597	GL_COLOR_MATERIAL_FACE =$0B55;
598	GL_COLOR_MATERIAL_PARAMETER =$0B56;
599	GL_COLOR_MATERIAL =$0B57;
600	GL_FOG =$0B60;
601	GL_FOG_INDEX =$0B61;
602	GL_FOG_DENSITY =$0B62;
603	GL_FOG_START =$0B63;
604	GL_FOG_END =$0B64;
605	GL_FOG_MODE =$0B65;
606	GL_FOG_COLOR =$0B66;
607	GL_DEPTH_RANGE =$0B70;
608	GL_DEPTH_TEST =$0B71;
609	GL_DEPTH_WRITEMASK =$0B72;
610	GL_DEPTH_CLEAR_VALUE =$0B73;
611	GL_DEPTH_FUNC =$0B74;
612	GL_ACCUM_CLEAR_VALUE =$0B80;
613	GL_STENCIL_TEST =$0B90;
614	GL_STENCIL_CLEAR_VALUE =$0B91;
615	GL_STENCIL_FUNC =$0B92;
616	GL_STENCIL_VALUE_MASK =$0B93;
617	GL_STENCIL_FAIL =$0B94;
618	GL_STENCIL_PASS_DEPTH_FAIL =$0B95;
619	GL_STENCIL_PASS_DEPTH_PASS =$0B96;
620	GL_STENCIL_REF =$0B97;
621	GL_STENCIL_WRITEMASK =$0B98;
622	GL_MATRIX_MODE =$0BA0;
623	GL_NORMALIZE =$0BA1;
624	GL_VIEWPORT =$0BA2;
625	GL_MODELVIEW_STACK_DEPTH =$0BA3;
626	GL_PROJECTION_STACK_DEPTH =$0BA4;
627	GL_TEXTURE_STACK_DEPTH =$0BA5;
628	GL_MODELVIEW_MATRIX =$0BA6;
629	GL_PROJECTION_MATRIX =$0BA7;
630	GL_TEXTURE_MATRIX =$0BA8;
631	GL_ATTRIB_STACK_DEPTH =$0BB0;
632	GL_ALPHA_TEST =$0BC0;
633	GL_ALPHA_TEST_FUNC =$0BC1;
634	GL_ALPHA_TEST_REF =$0BC2;
635	GL_DITHER =$0BD0;
636	GL_BLEND_DST =$0BE0;
637	GL_BLEND_SRC =$0BE1;
638	GL_BLEND =$0BE2;
639	GL_LOGIC_OP_MODE =$0BF0;
640	GL_LOGIC_OP =$0BF1;
641	GL_AUX_BUFFERS =$0C00;
642	GL_DRAW_BUFFER =$0C01;
643	GL_READ_BUFFER =$0C02;
644	GL_SCISSOR_BOX =$0C10;
645	GL_SCISSOR_TEST =$0C11;
646	GL_INDEX_CLEAR_VALUE =$0C20;
647	GL_INDEX_WRITEMASK =$0C21;
648	GL_COLOR_CLEAR_VALUE =$0C22;
649	GL_COLOR_WRITEMASK =$0C23;
650	GL_INDEX_MODE =$0C30;
651	GL_RGBA_MODE =$0C31;
652	GL_DOUBLEBUFFER =$0C32;
653	GL_STEREO =$0C33;
654	GL_RENDER_MODE =$0C40;
655	GL_PERSPECTIVE_CORRECTION_HINT =$0C50;
656	GL_POINT_SMOOTH_HINT =$0C51;
657	GL_LINE_SMOOTH_HINT =$0C52;
658	GL_POLYGON_SMOOTH_HINT =$0C53;
659	GL_FOG_HINT =$0C54;
660
661	GL_TEXTURE_GEN_S =$0C60;
662	GL_TEXTURE_GEN_T =$0C61;
663	GL_TEXTURE_GEN_R =$0C62;
664	GL_TEXTURE_GEN_Q =$0C63;
665	GL_PIXEL_MAP_I_TO_I =$0C70;
666	GL_PIXEL_MAP_S_TO_S =$0C71;
667	GL_PIXEL_MAP_I_TO_R =$0C72;
668	GL_PIXEL_MAP_I_TO_G =$0C73;
669	GL_PIXEL_MAP_I_TO_B =$0C74;
670	GL_PIXEL_MAP_I_TO_A =$0C75;
671	GL_PIXEL_MAP_R_TO_R =$0C76;
672	GL_PIXEL_MAP_G_TO_G =$0C77;
673	GL_PIXEL_MAP_B_TO_B =$0C78;
674	GL_PIXEL_MAP_A_TO_A =$0C79;
675	GL_PIXEL_MAP_I_TO_I_SIZE =$0CB0;
676	GL_PIXEL_MAP_S_TO_S_SIZE =$0CB1;
677	GL_PIXEL_MAP_I_TO_R_SIZE =$0CB2;
678	GL_PIXEL_MAP_I_TO_G_SIZE =$0CB3;
679	GL_PIXEL_MAP_I_TO_B_SIZE =$0CB4;
680	GL_PIXEL_MAP_I_TO_A_SIZE =$0CB5;
681	GL_PIXEL_MAP_R_TO_R_SIZE =$0CB6;
682	GL_PIXEL_MAP_G_TO_G_SIZE =$0CB7;
683	GL_PIXEL_MAP_B_TO_B_SIZE =$0CB8;
684	GL_PIXEL_MAP_A_TO_A_SIZE =$0CB9;
685	GL_UNPACK_SWAP_BYTES =$0CF0;
686	GL_UNPACK_LSB_FIRST =$0CF1;
687	GL_UNPACK_ROW_LENGTH =$0CF2;
688	GL_UNPACK_SKIP_ROWS =$0CF3;
689	GL_UNPACK_SKIP_PIXELS =$0CF4;
690	GL_UNPACK_ALIGNMENT =$0CF5;
691	GL_PACK_SWAP_BYTES =$0D00;
692	GL_PACK_LSB_FIRST =$0D01;
693	GL_PACK_ROW_LENGTH =$0D02;
694	GL_PACK_SKIP_ROWS =$0D03;
695	GL_PACK_SKIP_PIXELS =$0D04;
696	GL_PACK_ALIGNMENT =$0D05;
697	GL_MAP_COLOR =$0D10;
698	GL_MAP_STENCIL =$0D11;
699	GL_INDEX_SHIFT =$0D12;
700	GL_INDEX_OFFSET =$0D13;
701	GL_RED_SCALE =$0D14;
702	GL_RED_BIAS =$0D15;
703	GL_ZOOM_X =$0D16;
704	GL_ZOOM_Y =$0D17;
705	GL_GREEN_SCALE =$0D18;
706	GL_GREEN_BIAS =$0D19;
707	GL_BLUE_SCALE =$0D1A;
708	GL_BLUE_BIAS =$0D1B;
709	GL_ALPHA_SCALE =$0D1C;
710	GL_ALPHA_BIAS =$0D1D;
711	GL_DEPTH_SCALE =$0D1E;
712	GL_DEPTH_BIAS =$0D1F;
713	GL_MAX_EVAL_ORDER =$0D30;
714	GL_MAX_LIGHTS =$0D31;
715	GL_MAX_CLIP_PLANES =$0D32;
716	GL_MAX_TEXTURE_SIZE =$0D33;
717	GL_MAX_PIXEL_MAP_TABLE =$0D34;
718	GL_MAX_ATTRIB_STACK_DEPTH =$0D35;
719	GL_MAX_MODELVIEW_STACK_DEPTH =$0D36;
720	GL_MAX_NAME_STACK_DEPTH =$0D37;
721	GL_MAX_PROJECTION_STACK_DEPTH =$0D38;
722	GL_MAX_TEXTURE_STACK_DEPTH =$0D39;
723	GL_MAX_VIEWPORT_DIMS =$0D3A;
724	GL_SUBPIXEL_BITS =$0D50;
725	GL_INDEX_BITS =$0D51;
726	GL_RED_BITS =$0D52;
727	GL_GREEN_BITS =$0D53;
728	GL_BLUE_BITS =$0D54;
729	GL_ALPHA_BITS =$0D55;
730	GL_DEPTH_BITS =$0D56;
731	GL_STENCIL_BITS =$0D57;
732	GL_ACCUM_RED_BITS =$0D58;
733	GL_ACCUM_GREEN_BITS =$0D59;
734	GL_ACCUM_BLUE_BITS =$0D5A;
735	GL_ACCUM_ALPHA_BITS =$0D5B;
736	GL_NAME_STACK_DEPTH =$0D70;
737	GL_AUTO_NORMAL =$0D80;
738	GL_MAP1_COLOR_4 =$0D90;
739	GL_MAP1_INDEX =$0D91;
740	GL_MAP1_NORMAL =$0D92;
741	GL_MAP1_TEXTURE_COORD_1 =$0D93;
742	GL_MAP1_TEXTURE_COORD_2 =$0D94;
743	GL_MAP1_TEXTURE_COORD_3 =$0D95;
744	GL_MAP1_TEXTURE_COORD_4 =$0D96;
745	GL_MAP1_VERTEX_3 =$0D97;
746	GL_MAP1_VERTEX_4 =$0D98;
747	GL_MAP2_COLOR_4 =$0DB0;
748	GL_MAP2_INDEX =$0DB1;
749	GL_MAP2_NORMAL =$0DB2;
750	GL_MAP2_TEXTURE_COORD_1 =$0DB3;
751	GL_MAP2_TEXTURE_COORD_2 =$0DB4;
752	GL_MAP2_TEXTURE_COORD_3 =$0DB5;
753	GL_MAP2_TEXTURE_COORD_4 =$0DB6;
754	GL_MAP2_VERTEX_3 =$0DB7;
755	GL_MAP2_VERTEX_4 =$0DB8;
756	GL_MAP1_GRID_DOMAIN =$0DD0;
757	GL_MAP1_GRID_SEGMENTS =$0DD1;
758	GL_MAP2_GRID_DOMAIN =$0DD2;
759	GL_MAP2_GRID_SEGMENTS =$0DD3;
760	GL_TEXTURE_1D =$0DE0;
761	GL_TEXTURE_2D =$0DE1;
762
763	GL_TEXTURE_WIDTH =$1000;
764	GL_TEXTURE_HEIGHT =$1001;
765	GL_TEXTURE_COMPONENTS =$1003;
766	GL_TEXTURE_BORDER_COLOR =$1004;
767	GL_TEXTURE_BORDER =$1005;
768
769	GL_DONT_CARE =$1100;
770	GL_FASTEST =$1101;
771	GL_NICEST =$1102;
772
773	GL_LIGHT0 =$4000;
774	GL_LIGHT1 =$4001;
775	GL_LIGHT2 =$4002;
776	GL_LIGHT3 =$4003;
777	GL_LIGHT4 =$4004;
778	GL_LIGHT5 =$4005;
779	GL_LIGHT6 =$4006;
780	GL_LIGHT7 =$4007;
781
782	GL_AMBIENT =$1200;
783	GL_DIFFUSE =$1201;
784	GL_SPECULAR =$1202;
785	GL_POSITION =$1203;
786	GL_SPOT_DIRECTION =$1204;
787	GL_SPOT_EXPONENT =$1205;
788	GL_SPOT_CUTOFF =$1206;
789	GL_CONSTANT_ATTENUATION =$1207;
790	GL_LINEAR_ATTENUATION =$1208;
791	GL_QUADRATIC_ATTENUATION =$1209;
792
793	GL_COMPILE =$1300;
794	GL_COMPILE_AND_EXECUTE =$1301;
795
796	GL_BYTE =$1400;
797	GL_UNSIGNED_BYTE =$1401;
798	GL_SHORT =$1402;
799	GL_UNSIGNED_SHORT =$1403;
800	GL_INT =$1404;
801	GL_UNSIGNED_INT =$1405;
802	GL_FLOAT =$1406;
803	GL_2_BYTES =$1407;
804	GL_3_BYTES =$1408;
805	GL_4_BYTES =$1409;
806	GL_DOUBLE_EXT =$140A;
807
808	GL_CLEAR =$1500;
809	GL_AND =$1501;
810	GL_AND_REVERSE =$1502;
811	GL_COPY =$1503;
812	GL_AND_INVERTED =$1504;
813	GL_NOOP =$1505;
814	GL_XOR =$1506;
815	GL_OR =$1507;
816	GL_NOR =$1508;
817	GL_EQUIV =$1509;
818	GL_INVERT =$150A;
819	GL_OR_REVERSE =$150B;
820	GL_COPY_INVERTED =$150C;
821	GL_OR_INVERTED =$150D;
822	GL_NAND =$150E;
823	GL_SET =$150F;
824
825	GL_EMISSION =$1600;
826	GL_SHININESS =$1601;
827	GL_AMBIENT_AND_DIFFUSE =$1602;
828	GL_COLOR_INDEXES =$1603;
829
830	GL_MODELVIEW =$1700;
831	GL_PROJECTION =$1701;
832	GL_TEXTURE =$1702;
833
834	GL_COLOR =$1800;
835	GL_DEPTH =$1801;
836	GL_STENCIL =$1802;
837
838	GL_COLOR_INDEX =$1900;
839	GL_STENCIL_INDEX =$1901;
840	GL_DEPTH_COMPONENT =$1902;
841	GL_RED =$1903;
842	GL_GREEN =$1904;
843	GL_BLUE =$1905;
844	GL_ALPHA =$1906;
845	GL_RGB =$1907;
846	GL_RGBA =$1908;
847	GL_LUMINANCE =$1909;
848	GL_LUMINANCE_ALPHA =$190A;
849
850	GL_BITMAP =$1A00;
851
852	GL_POINT =$1B00;
853	GL_LINE =$1B01;
854	GL_FILL =$1B02;
855
856	GL_RENDER =$1C00;
857	GL_FEEDBACK =$1C01;
858	GL_SELECT =$1C02;
859
860	GL_FLAT =$1D00;
861	GL_SMOOTH =$1D01;
862
863	GL_KEEP =$1E00;
864	GL_REPLACE =$1E01;
865	GL_INCR =$1E02;
866	GL_DECR =$1E03;
867
868	GL_VENDOR =$1F00;
869	GL_RENDERER =$1F01;
870	GL_VERSION =$1F02;
871	GL_EXTENSIONS =$1F03;
872
873	GL_S =$2000;
874	GL_T =$2001;
875	GL_R =$2002;
876	GL_Q =$2003;
877
878	GL_MODULATE =$2100;
879	GL_DECAL =$2101;
880
881	GL_TEXTURE_ENV_MODE =$2200;
882	GL_TEXTURE_ENV_COLOR =$2201;
883
884	GL_TEXTURE_ENV =$2300;
885
886	GL_EYE_LINEAR =$2400;
887	GL_OBJECT_LINEAR =$2401;
888	GL_SPHERE_MAP =$2402;
889
890	GL_TEXTURE_GEN_MODE =$2500;
891	GL_OBJECT_PLANE =$2501;
892	GL_EYE_PLANE =$2502;
893
894	GL_NEAREST =$2600;
895	GL_LINEAR =$2601;
896
897	GL_NEAREST_MIPMAP_NEAREST =$2700;
898	GL_LINEAR_MIPMAP_NEAREST =$2701;
899	GL_NEAREST_MIPMAP_LINEAR =$2702;
900	GL_LINEAR_MIPMAP_LINEAR =$2703;
901
902	GL_TEXTURE_MAG_FILTER =$2800;
903	GL_TEXTURE_MIN_FILTER =$2801;
904	GL_TEXTURE_WRAP_S =$2802;
905	GL_TEXTURE_WRAP_T =$2803;
906
907	GL_CLAMP =$2900;
908	GL_REPEAT =$2901;
909
910	GL_EXT_abgr =1;
911	GL_EXT_blend_logic_op =1;
912	GL_EXT_blend_minmax =1;
913	GL_EXT_blend_subtract =1;
914	GL_EXT_polygon_offset =1;
915	GL_EXT_rescale_normal =1;
916	GL_EXT_subtexture =1;
917	GL_EXT_texture_object =1;
918	GL_EXT_vertex_array =1;
919
920	GL_ABGR_EXT =$8000;
921
922	GL_FUNC_ADD_EXT =$8006;
923	GL_MIN_EXT =$8007;
924	GL_MAX_EXT =$8008;
925	GL_BLEND_EQUATION_EXT =$8009;
926
927	GL_FUNC_SUBTRACT_EXT =$800A;
928	GL_FUNC_REVERSE_SUBTRACT_EXT =$800B;
929
930	GL_POLYGON_OFFSET_EXT =$8037;
931	GL_POLYGON_OFFSET_FACTOR_EXT =$8038;
932	GL_POLYGON_OFFSET_BIAS_EXT =$8039;
933
934	GL_RESCALE_NORMAL_EXT =$803A;
935
936	GL_TEXTURE_PRIORITY_EXT =$8066;
937	GL_TEXTURE_RESIDENT_EXT =$8067;
938	GL_TEXTURE_1D_BINDING_EXT =$8068;
939	GL_TEXTURE_2D_BINDING_EXT =$8069;
940
941	GL_VERTEX_ARRAY_EXT =$8074;
942	GL_NORMAL_ARRAY_EXT =$8075;
943	GL_COLOR_ARRAY_EXT =$8076;
944	GL_INDEX_ARRAY_EXT =$8077;
945	GL_TEXTURE_COORD_ARRAY_EXT =$8078;
946	GL_EDGE_FLAG_ARRAY_EXT =$8079;
947	GL_VERTEX_ARRAY_SIZE_EXT =$807A;
948	GL_VERTEX_ARRAY_TYPE_EXT =$807B;
949	GL_VERTEX_ARRAY_STRIDE_EXT =$807C;
950	GL_VERTEX_ARRAY_COUNT_EXT =$807D;
951	GL_NORMAL_ARRAY_TYPE_EXT =$807E;
952	GL_NORMAL_ARRAY_STRIDE_EXT =$807F;
953	GL_NORMAL_ARRAY_COUNT_EXT =$8080;
954	GL_COLOR_ARRAY_SIZE_EXT =$8081;
955	GL_COLOR_ARRAY_TYPE_EXT =$8082;
956	GL_COLOR_ARRAY_STRIDE_EXT =$8083;
957	GL_COLOR_ARRAY_COUNT_EXT =$8084;
958	GL_INDEX_ARRAY_TYPE_EXT =$8085;
959	GL_INDEX_ARRAY_STRIDE_EXT =$8086;
960	GL_INDEX_ARRAY_COUNT_EXT =$8087;
961	GL_TEXTURE_COORD_ARRAY_SIZE_EXT =$8088;
962	GL_TEXTURE_COORD_ARRAY_TYPE_EXT =$8089;
963	GL_TEXTURE_COORD_ARRAY_STRIDE_EXT =$808A;
964	GL_TEXTURE_COORD_ARRAY_COUNT_EXT =$808B;
965	GL_EDGE_FLAG_ARRAY_STRIDE_EXT =$808C;
966	GL_EDGE_FLAG_ARRAY_COUNT_EXT =$808D;
967	GL_VERTEX_ARRAY_POINTER_EXT =$808E;
968	GL_NORMAL_ARRAY_POINTER_EXT =$808F;
969	GL_COLOR_ARRAY_POINTER_EXT =$8090;
970	GL_INDEX_ARRAY_POINTER_EXT =$8091;
971	GL_TEXTURE_COORD_ARRAY_POINTER_EXT=$8092;
972	GL_EDGE_FLAG_ARRAY_POINTER_EXT =$8093;
973
974	Type
975	auxproc1=Procedure;CDecl;
976	auxproc2=Procedure(w,h:GLsizei);CDecl;
977	auxfunc1=Function(i:LongInt;e:GLenum):GLenum;CDecl;
978	auxfunc2=Function(x,y:LongInt;e:GLEnum):GLenum;CDecl;
979	auxproc3=Procedure(Var e:AUX_EVENTREC);CDecl;
980	glutproc1=Procedure(x,y:LongInt);CDecl;
981	glutproc2=Procedure(c:Byte;x,y:LongInt);CDecl;
982	glutproc3=Procedure(x,y,w,h:LongInt);CDecl;
983	glutproc4=Procedure(x:LongInt);CDecl;
984
985	Imports
986	Procedure glAccum (op:GLenum;value:GLfloat);ApiEntry; 'OPENGL' name 'glAccum';
987	Procedure glAlphaFunc (func:GLenum;ref:GLclampf);ApiEntry; 'OPENGL' name 'glAlphaFunc';
988	Function glAreTexturesResidentEXT (n:GLsizei;Var textures;
989	Var residences:GLboolean):GLboolean;ApiEntry; 'OPENGL' name 'glAreTexturesResidentEXT';
990	Procedure glArrayElementEXT (i:GLint);ApiEntry; 'OPENGL' name 'glArrayElementEXT';
991	Procedure glBegin (mode:GLenum);ApiEntry; 'OPENGL' name 'glBegin';
992	Procedure glBindTextureEXT (target:GLenum;texture:GLuint);ApiEntry; 'OPENGL' name 'glBindTextureEXT';
993	Procedure glBitmap (width,height:GLsizei;xorig,yorig:GLfloat;
994	xmove,ymove:GLfloat;Var Bitmap);ApiEntry; 'OPENGL' name 'glBitmap';
995	Procedure glBlendEquationEXT (mode:GLenum);ApiEntry; 'OPENGL' name 'glBlendEquationEXT';
996	Procedure glBlendFunc (sfactor,dfactor:GLenum);ApiEntry; 'OPENGL' name 'glBlendFunc';
997	Procedure glCallList (list:GLuint);ApiEntry; 'OPENGL' name 'glCallList';
998	Procedure glCallLists (n:GLsizei;typ:GLenum;Const Lists);ApiEntry; 'OPENGL' name 'glCallLists';
999	Procedure glClear (mask:GLbitfield);ApiEntry; 'OPENGL' name 'glClear';
1000	Procedure glClearAccum (read,green,blue:GLfloat;alpha:GLfloat);ApiEntry; 'OPENGL' name 'glClearAccum';
1001	Procedure glClearColor (red,green,blue:GLclampf;alpha:GLclampf);ApiEntry; 'OPENGL' name 'glClearColor';
1002	Procedure glClearDepth (depth:GLclampd);ApiEntry; 'OPENGL' name 'glClearDepth';
1003	Procedure glClearIndex (c:GLfloat);ApiEntry; 'OPENGL' name 'glClearIndex';
1004	Procedure glClearStencil (s:GLint);ApiEntry; 'OPENGL' name 'glClearStencil';
1005	Procedure glClipPlane (plane:GLenum;Const equation:GLdouble);ApiEntry; 'OPENGL' name 'glClipPlane';
1006	Procedure glColor3b (red,green,blue:GLbyte);ApiEntry; 'OPENGL' name 'glColor3b';
1007	Procedure glColor3bv (Const v);ApiEntry; 'OPENGL' name 'glColor3bv';
1008	Procedure glColor3d (red,green,blue:GLdouble);ApiEntry; 'OPENGL' name 'glColor3d';
1009	Procedure glColor3dv (Const v);ApiEntry; 'OPENGL' name 'glColor3dv';
1010	Procedure glColor3f (red,green,blue:GLfloat);ApiEntry; 'OPENGL' name 'glColor3f';
1011	Procedure glColor3fv (Const v);ApiEntry; 'OPENGL' name 'glColor3fv';
1012	Procedure glColor3i (red,green,blue:GLint);ApiEntry; 'OPENGL' name 'glColor3i';
1013	Procedure glColor3iv (Const v);ApiEntry; 'OPENGL' name 'glColor3iv';
1014	Procedure glColor3s (red,green,blue:GLshort);ApiEntry; 'OPENGL' name 'glColor3s';
1015	Procedure glColor3sv (Const v);ApiEntry; 'OPENGL' name 'glColor3sv';
1016	Procedure glColor3ub (red,green,blue:GLubyte);ApiEntry; 'OPENGL' name 'glColor3ub';
1017	Procedure glColor3ubv (Const v);ApiEntry; 'OPENGL' name 'glColor3ubv';
1018	Procedure glColor3ui (red,green,blue:GLuint);ApiEntry; 'OPENGL' name 'glColor3ui';
1019	Procedure glColor3uiv (Const v);ApiEntry; 'OPENGL' name 'glColor3uiv';
1020	Procedure glColor3us (red,green,blue:GLushort);ApiEntry; 'OPENGL' name 'glColor3us';
1021	Procedure glColor3usv (Const v);ApiEntry; 'OPENGL' name 'glColor3us';
1022	Procedure glColor4b (red,green,blue,alpha:GLbyte);ApiEntry; 'OPENGL' name 'glColor4b';
1023	Procedure glColor4bv (Const v);ApiEntry; 'OPENGL' name 'glColor4bv';
1024	Procedure glColor4d (red,green,blue,alpha:GLdouble);ApiEntry; 'OPENGL' name 'glColor4d';
1025	Procedure glColor4dv (Const v);ApiEntry; 'OPENGL' name 'glColor4dv';
1026	Procedure glColor4f (red,green,blue,alpha:GLfloat);ApiEntry; 'OPENGL' name 'glColor4f';
1027	Procedure glColor4fv (Const v);ApiEntry; 'OPENGL' name 'glColor4fv';
1028	Procedure glColor4i (red,green,blue,alpha:GLint);ApiEntry; 'OPENGL' name 'glColor4i';
1029	Procedure glColor4iv (Const v);ApiEntry; 'OPENGL' name 'glColor4iv';
1030	Procedure glColor4s (red,green,blue,alpha:GLshort);ApiEntry; 'OPENGL' name 'glColor4s';
1031	Procedure glColor4sv (Const v);ApiEntry; 'OPENGL' name 'glColor4sv';
1032	Procedure glColor4ub (red,green,blue,alpha:GLubyte);ApiEntry; 'OPENGL' name 'glColor4ub';
1033	Procedure glColor4ubv (Const v);ApiEntry; 'OPENGL' name 'glColor4ubv';
1034	Procedure glColor4ui (red,green,blue,alpha:GLuint);ApiEntry; 'OPENGL' name 'glColor4ui';
1035	Procedure glColor4uiv (Const v);ApiEntry; 'OPENGL' name 'glColor4uiv';
1036	Procedure glColor4us (red,green,blue,alpha:GLushort);ApiEntry; 'OPENGL' name 'glColor4us';
1037	Procedure glColor4usv (Const v);ApiEntry; 'OPENGL' name 'glColor4usv';
1038	Procedure glColorMask (red,green,blue,alpha:GLboolean);ApiEntry; 'OPENGL' name 'glColorMask';
1039	Procedure glColorMaterial (face,mode:GLenum);ApiEntry; 'OPENGL' name 'glColorMaterial';
1040	Procedure glColorPointerEXT (size:GLint;typ:GLenum;stride:GLsizei;
1041	count:GLsizei;Const Buf);ApiEntry; 'OPENGL' name 'glColorPointerEXT';
1042	Procedure glCopyPixels (x,y:GLint;width,height:GLsizei;typ:GLenum);ApiEntry; 'OPENGL' name 'glCopyPixels';
1043	Procedure glCullFace (mode:GLenum);ApiEntry; 'OPENGL' name 'glCullFace';
1044	Procedure glDeleteLists (list:GLuint;range:GLsizei);ApiEntry; 'OPENGL' name 'glDeleteLists';
1045	Procedure glDeleteTexturesEXT (n:GLsizei;Const textures);ApiEntry; 'OPENGL' name 'glDeleteTexturesEXT';
1046	Procedure glDepthFunc (func:GLenum);ApiEntry; 'OPENGL' name 'glDepthFunc';
1047	Procedure glDepthMask (flag:GLboolean);ApiEntry; 'OPENGL' name 'glDepthMask';
1048	Procedure glDepthRange (near,far:GLclampd);ApiEntry; 'OPENGL' name 'glDepthRange';
1049	Procedure glDisable (cap:GLenum);ApiEntry; 'OPENGL' name 'glDisable';
1050	Procedure glDrawArraysEXT (mode:GLenum;first:GLint;count:GLsizei);ApiEntry; 'OPENGL' name 'glDrawArraysEXT';
1051	Procedure glDrawBuffer (mode:GLenum);ApiEntry; 'OPENGL' name 'glDrawBuffer';
1052	Procedure glDrawPixels (width,height:GLsizei;format,typ:GLenum;Const pixels); 'OPENGL' name 'glDrawPixels';
1053	Procedure glEdgeFlag (flag:GLboolean);ApiEntry; 'OPENGL' name 'glEdgeFlag';
1054	Procedure glEdgeFlagPointerEXT (stride:GLsizei;count:GLsizei;Const Buf);ApiEntry; 'OPENGL' name 'glEdgeFlagPointerEXT';
1055	Procedure glEdgeFlagv (Const Flag);ApiEntry; 'OPENGL' name 'glEdgeFlagv';
1056	Procedure glEnable (cap:GLenum);ApiEntry; 'OPENGL' name 'glEnable';
1057	Procedure glEnd;ApiEntry; 'OPENGL' name 'glEnd';
1058	Procedure glEndList;ApiEntry; 'OPENGL' name 'glEndList';
1059	Procedure glEvalCoord1d (u:GLdouble);ApiEntry; 'OPENGL' name 'glEvalCoord1d';
1060	Procedure glEvalCoord1dv (Const u);ApiEntry; 'OPENGL' name 'glEvalCoord1dv';
1061	Procedure glEvalCoord1f (u:GLfloat);ApiEntry; 'OPENGL' name 'glEvalCoord1f';
1062	Procedure glEvalCoord1fv (Const u);ApiEntry; 'OPENGL' name 'glEvalCoord1fv';
1063	Procedure glEvalCoord2d (u,v:GLdouble);ApiEntry; 'OPENGL' name 'glEvalCoord2d';
1064	Procedure glEvalCoord2dv (Const u);ApiEntry; 'OPENGL' name 'glEvalCoord2dv';
1065	Procedure glEvalCoord2f (u,v:GLfloat);ApiEntry; 'OPENGL' name 'glEvalCoord2f';
1066	Procedure glEvalCoord2fv (Const u);ApiEntry; 'OPENGL' name 'glEvalCoord2fv';
1067	Procedure glEvalMesh1 (mode:GLenum;i1,i2:GLint);ApiEntry; 'OPENGL' name 'glEvalMesh1';
1068	Procedure glEvalMesh2 (mode:GLenum;i1,i2,j1,j2:GLint);ApiEntry; 'OPENGL' name 'glEvalMesh1';
1069	Procedure glEvalPoint1 (i:GLint);ApiEntry; 'OPENGL' name 'glEvalPoint1';
1070	Procedure glEvalPoint2 (i,j:GLint);ApiEntry; 'OPENGL' name 'glEvalPoint2';
1071	Procedure glFeedbackBuffer (size:GLsizei;typ:GLenum;Var buffer);ApiEntry; 'OPENGL' name 'glFeedbackBuffer';
1072	Procedure glFinish;ApiEntry; 'OPENGL' name 'glFinish';
1073	Procedure glFlush;ApiEntry; 'OPENGL' name 'glFlush';
1074	Procedure glFogf (pname:GLenum;param:GLfloat);ApiEntry; 'OPENGL' name 'glFogf';
1075	Procedure glFogfv (pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glFogfv';
1076	Procedure glFogi (pname:GLenum;param:GLint);ApiEntry; 'OPENGL' name 'glFogi';
1077	Procedure glFogiv (pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glFogiv';
1078	Procedure glFrontFace (mode:GLenum);ApiEntry; 'OPENGL' name 'glFrontFace';
1079	Procedure glFrustum (left,right,bottom,top,near,far:GLdouble);ApiEntry; 'OPENGL' name 'glFrustum';
1080	Function glGenLists (range:GLsizei):GLuint;ApiEntry; 'OPENGL' name 'glGenLists';
1081	Procedure glGenTexturesEXT (n:GLsizei;Var textures);ApiEntry; 'OPENGL' name 'glGenTexturesEXT';
1082	Procedure glGetBooleanv (pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetBooleanv';
1083	Procedure glGetClipPlane (plane:GLenum;Var equation:GLdouble);ApiEntry; 'OPENGL' name 'glGetClipPlane';
1084	Procedure glGetDoublev (pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetDoublev';
1085	Function glGetError:GLenum;ApiEntry; 'OPENGL' name 'glGetError';
1086	Procedure glGetFloatv (pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetFloatv';
1087	Procedure glGetIntegerv (pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetIntegerv';
1088	Procedure glGetLightfv (light,pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetLightfv';
1089	Procedure glGetLightiv (light,pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetLightiv';
1090	Procedure glGetMapdv (target,query:GLenum;Var v);ApiEntry; 'OPENGL' name 'glGetMapdv';
1091	Procedure glGetMapfv (target,query:GLenum;Var v);ApiEntry; 'OPENGL' name 'glGetMapfv';
1092	Procedure glGetMapiv (target,query:GLenum;Var v);ApiEntry; 'OPENGL' name 'glGetMapiv';
1093	Procedure glGetMaterialfv (face,pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetMaterialfv';
1094	Procedure glGetMaterialiv (face,pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetMaterialiv';
1095	Procedure glGetPixelMapfv (map:GLenum;Var values);ApiEntry; 'OPENGL' name 'glGetPixelMapfv';
1096	Procedure glGetPixelMapuiv (map:GLenum;Var values);ApiEntry; 'OPENGL' name 'glGetPixelMapuiv';
1097	Procedure glGetPixelMapusv (map:GLenum;Var values);ApiEntry; 'OPENGL' name 'glGetPixelMapusv';
1098	Procedure glGetPointervEXT (pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetPointervEXT';
1099	Procedure glGetPolygonStipple (Var mask:GLubyte);ApiEntry; 'OPENGL' name 'glGetPolygonStipple';
1100	Function glGetString (name:GLenum):PGLubyte;ApiEntry; 'OPENGL' name 'glGetString';
1101	Procedure glGetTexEnvfv (target,pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetTexEnvfv';
1102	Procedure glGetTexEnviv (target,pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetTexEnviv';
1103	Procedure glGetTexGendv (coord,pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetTexGendv';
1104	Procedure glGetTexGenfv (coord,pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetTexGenfv';
1105	Procedure glGetTexGeniv (coord,pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetTexGeniv';
1106	Procedure glGetTexImage (target:GLenum;level:GLint;format:GLenum;
1107	typ:GLenum;Var pixels);ApiEntry; 'OPENGL' name 'glGetTexImage';
1108	Procedure glGetTexLevelParameterfv (target:GLenum;level:GLint;pname:GLenum;
1109	Var params);ApiEntry; 'OPENGL' name 'glGetTexLevelParameterfv';
1110	Procedure glGetTexLevelParameteriv (target:GLenum;level:GLint;pname:GLenum;
1111	Var params);ApiEntry; 'OPENGL' name 'glGetTexLevelParameteriv';
1112	Procedure glGetTexParameterfv (target:GLenum;pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetTexParameterfv';
1113	Procedure glGetTexParameteriv (target:GLenum;pname:GLenum;Var params);ApiEntry; 'OPENGL' name 'glGetTexParameteriv';
1114	Procedure glHint (target,mode:GLenum);ApiEntry; 'OPENGL' name 'glHint';
1115	Procedure glIndexMask (mask:GLuint);ApiEntry; 'OPENGL' name 'glIndexMask';
1116	Procedure glIndexPointerEXT (typ:GLenum;stride,count:GLsizei;Const Buf);ApiEntry; 'OPENGL' name 'glIndexPointerEXT';
1117	Procedure glIndexd (c:GLdouble);ApiEntry; 'OPENGL' name 'glIndexd';
1118	Procedure glIndexdv (Const c);ApiEntry; 'OPENGL' name 'glIndexdv';
1119	Procedure glIndexf (c:GLfloat);ApiEntry; 'OPENGL' name 'glIndexf';
1120	Procedure glIndexfv (Const c);ApiEntry; 'OPENGL' name 'glIndexfv';
1121	Procedure glIndexi (c:GLint);ApiEntry; 'OPENGL' name 'glIndexi';
1122	Procedure glIndexiv (Const c);ApiEntry; 'OPENGL' name 'glIndexiv';
1123	Procedure glIndexs (c:GLshort);ApiEntry; 'OPENGL' name 'glIndexs';
1124	Procedure glIndexsv (Const c);ApiEntry; 'OPENGL' name 'glIndexsv';
1125	Procedure glInitNames;ApiEntry; 'OPENGL' name 'glInitNames';
1126	Function glIsEnabled (cap:GLenum):GLboolean;ApiEntry; 'OPENGL' name 'glIsEnabled';
1127	Function glIsList (list:GLuint):GLboolean;ApiEntry; 'OPENGL' name 'glIsList';
1128	Function glIsTextureEXT (texture:GLuint):GLboolean;ApiEntry; 'OPENGL' name 'glIsTextureEXT';
1129	Procedure glLightModelf (pname:GLenum;param:GLfloat);ApiEntry; 'OPENGL' name 'glLightModelf';
1130	Procedure glLightModelfv (pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glLightModelfv';
1131	Procedure glLightModeli (pname:GLenum;param:GLint);ApiEntry; 'OPENGL' name 'glLightModeli';
1132	Procedure glLightModeliv (pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glLightModeliv';
1133	Procedure glLightf (light,pname:GLenum;param:GLfloat);ApiEntry; 'OPENGL' name 'glLightf';
1134	Procedure glLightfv (light,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glLightfv';
1135	Procedure glLighti (light,pname:GLenum;param:GLint);ApiEntry; 'OPENGL' name 'glLighti';
1136	Procedure glLightiv (light,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glLightiv';
1137	Procedure glLineStipple (factor:GLint;pattern:GLushort);ApiEntry; 'OPENGL' name 'glLineStipple';
1138	Procedure glLineWidth (width:GLfloat);ApiEntry; 'OPENGL' name 'glLineWidth';
1139	Procedure glListBase (base:GLuint);ApiEntry; 'OPENGL' name 'glListBase';
1140	Procedure glLoadIdentity;ApiEntry; 'OPENGL' name 'glLoadIdentity';
1141	Procedure glLoadMatrixd (Const m);ApiEntry; 'OPENGL' name 'glLoadMatrixd';
1142	Procedure glLoadMatrixf (Const m);ApiEntry; 'OPENGL' name 'glLoadMatrixf';
1143	Procedure glLoadName (name:GLuint);ApiEntry; 'OPENGL' name 'glLoadName';
1144	Procedure glLogicOp (opcode:GLenum);ApiEntry; 'OPENGL' name 'glLogicOp';
1145	Procedure glMap1d (target:GLenum;u1,u2:GLdouble;stride,order:GLint;
1146	Const points);ApiEntry; 'OPENGL' name 'glMap1d';
1147	Procedure glMap1f (target:GLenum;u1,u2:GLfloat;stride,order:GLint;
1148	Const points);ApiEntry; 'OPENGL' name 'glMap1f';
1149	Procedure glMap2d (target:GLenum;u1,u2:GLdouble;ustride,uorder:GLint;
1150	v1,v2:GLdouble;vstride,vorder:GLint;Const points);ApiEntry; 'OPENGL' name 'glMap2d';
1151	Procedure glMap2f (target:GLenum;u1,u2:GLfloat;ustride,uorder:GLint;
1152	v1,v2:GLfloat;vstride,vorder:GLint;Const points);ApiEntry; 'OPENGL' name 'glMap2f';
1153	Procedure glMapGrid1d (un:GLint;u1,u2:GLdouble);ApiEntry; 'OPENGL' name 'glMapGrid1d';
1154	Procedure glMapGrid1f (un:GLint;u1,u2:GLfloat);ApiEntry; 'OPENGL' name 'glMapGrid1f';
1155	Procedure glMapGrid2d (un:GLint;u1,u2:GLdouble;vn:GLint;v1,v2:GLdouble);ApiEntry; 'OPENGL' name 'glMapGrid2d';
1156	Procedure glMapGrid2f (un:GLint;u1,u2:GLfloat;vn:GLint;v1,v2:GLfloat);ApiEntry; 'OPENGL' name 'glMapGrid2f';
1157	Procedure glMaterialf (face,pname:GLenum;param:GLfloat);ApiEntry; 'OPENGL' name 'glMaterialf';
1158	Procedure glMaterialfv (face,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glMaterialfv';
1159	Procedure glMateriali (face,pname:GLenum;param:GLint);ApiEntry; 'OPENGL' name 'glMateriali';
1160	Procedure glMaterialiv (face,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glMaterialiv';
1161	Procedure glMatrixMode (mode:GLenum);ApiEntry; 'OPENGL' name 'glMatrixMode';
1162	Procedure glMultMatrixd (Const m);ApiEntry; 'OPENGL' name 'glMultMatrixd';
1163	Procedure glMultMatrixf (Const m);ApiEntry; 'OPENGL' name 'glMultMatrixf';
1164	Procedure glNewList (list:GLuint;mode:GLenum);ApiEntry; 'OPENGL' name 'glNewList';
1165	Procedure glNormal3b (nx,ny,nz:GLbyte);ApiEntry; 'OPENGL' name 'glNormal3b';
1166	Procedure glNormal3bv (Const v);ApiEntry; 'OPENGL' name 'glNormal3bv';
1167	Procedure glNormal3d (nx,ny,nz:GLdouble);ApiEntry; 'OPENGL' name 'glNormal3d';
1168	Procedure glNormal3dv (Const v);ApiEntry; 'OPENGL' name 'glNormal3dv';
1169	Procedure glNormal3f (nx,ny,nz:GLfloat);ApiEntry; 'OPENGL' name 'glNormal3f';
1170	Procedure glNormal3fv (Const v);ApiEntry; 'OPENGL' name 'glNormal3fv';
1171	Procedure glNormal3i (nx,ny,nz:GLint);ApiEntry; 'OPENGL' name 'glNormal3i';
1172	Procedure glNormal3iv (Const v);ApiEntry; 'OPENGL' name 'glNormal3iv';
1173	Procedure glNormal3s (nx,ny,nz:GLshort);ApiEntry; 'OPENGL' name 'glNormal3s';
1174	Procedure glNormal3sv (Const v);ApiEntry; 'OPENGL' name 'glNormal3sv';
1175	Procedure glNormalPointerEXT (typ:GLenum;stride,count:GLsizei;Const Buf);ApiEntry; 'OPENGL' name 'glNormalPointerEXT';
1176	Procedure glOrtho (left,right,bottom,top,near,far:GLdouble);ApiEntry; 'OPENGL' name 'glOrtho';
1177	Procedure glPassThrough (token:GLfloat);ApiEntry; 'OPENGL' name 'glPassThrough';
1178	Procedure glPixelMapfv (map:GLenum;mapsize:GLsizei;Const values);ApiEntry; 'OPENGL' name 'glPixelMapfv';
1179	Procedure glPixelMapuiv (map:GLenum;mapsize:GLsizei;Const values);ApiEntry; 'OPENGL' name 'glPixelMapuiv';
1180	Procedure glPixelMapusv (map:GLenum;mapsize:GLsizei;Const values);ApiEntry; 'OPENGL' name 'glPixelMapusv';
1181	Procedure glPixelStoref (pname:GLenum;param:GLfloat);ApiEntry; 'OPENGL' name 'glPixelStoref';
1182	Procedure glPixelStorei (pname:GLenum;param:GLint);ApiEntry; 'OPENGL' name 'glPixelStorei';
1183	Procedure glPixelTransferf (pname:GLenum;param:GLfloat);ApiEntry; 'OPENGL' name 'glPixelTransferf';
1184	Procedure glPixelTransferi (pname:GLenum;param:GLint);ApiEntry; 'OPENGL' name 'glPixelTransferi';
1185	Procedure glPixelZoom (xfactor,yfactor:GLfloat);ApiEntry; 'OPENGL' name 'glPixelZoom';
1186	Procedure glPointSize (size:GLfloat);ApiEntry; 'OPENGL' name 'glPointSize';
1187	Procedure glPolygonMode (face,mode:GLenum);ApiEntry; 'OPENGL' name 'glPolygonMode';
1188	Procedure glPolygonOffsetEXT (factor,bias:GLfloat);ApiEntry; 'OPENGL' name 'glPolygonOffsetEXT';
1189	Procedure glPolygonStipple (Const mask);ApiEntry; 'OPENGL' name 'glPolygonStipple';
1190	Procedure glPopAttrib;ApiEntry; 'OPENGL' name 'glPopAttrib';
1191	Procedure glPopMatrix;ApiEntry; 'OPENGL' name 'glPopMatrix';
1192	Procedure glPopName;ApiEntry; 'OPENGL' name 'glPopName';
1193	Procedure glPrioritizeTexturesEXT (n:GLsizei;Const textures;Const priorities);ApiEntry; 'OPENGL' name 'glPrioritizeTexturesEXT';
1194	Procedure glPushAttrib (mask:GLbitfield);ApiEntry; 'OPENGL' name 'glPushAttrib';
1195	Procedure glPushMatrix;ApiEntry; 'OPENGL' name 'glPushMatrix';
1196	Procedure glPushName (name:GLuint);ApiEntry; 'OPENGL' name 'glPushName';
1197	Procedure glRasterPos2d (x,y:GLdouble);ApiEntry; 'OPENGL' name 'glRasterPos2d';
1198	Procedure glRasterPos2dv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos2dv';
1199	Procedure glRasterPos2f (x,y:GLfloat);ApiEntry; 'OPENGL' name 'glRasterPos2f';
1200	Procedure glRasterPos2fv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos2fv';
1201	Procedure glRasterPos2i (x,y:GLint);ApiEntry; 'OPENGL' name 'glRasterPos2i';
1202	Procedure glRasterPos2iv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos2iv';
1203	Procedure glRasterPos2s (x,y:GLshort);ApiEntry; 'OPENGL' name 'glRasterPos2s';
1204	Procedure glRasterPos2sv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos2sv';
1205	Procedure glRasterPos3d (x,y,z:GLdouble);ApiEntry; 'OPENGL' name 'glRasterPos3d';
1206	Procedure glRasterPos3dv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos3dv';
1207	Procedure glRasterPos3f (x,y,z:GLfloat);ApiEntry; 'OPENGL' name 'glRasterPos3f';
1208	Procedure glRasterPos3fv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos3fv';
1209	Procedure glRasterPos3i (x,y,z:GLint);ApiEntry; 'OPENGL' name 'glRasterPos3i';
1210	Procedure glRasterPos3iv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos3iv';
1211	Procedure glRasterPos3s (x,y,z:GLshort);ApiEntry; 'OPENGL' name 'glRasterPos3s';
1212	Procedure glRasterPos3sv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos3sv';
1213	Procedure glRasterPos4d (x,y,z,w:GLdouble);ApiEntry; 'OPENGL' name 'glRasterPos4d';
1214	Procedure glRasterPos4dv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos4dv';
1215	Procedure glRasterPos4f (x,y,z,w:GLfloat);ApiEntry; 'OPENGL' name 'glRasterPos4f';
1216	Procedure glRasterPos4fv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos4fv';
1217	Procedure glRasterPos4i (x,y,z,w:GLint);ApiEntry; 'OPENGL' name 'glRasterPos4i';
1218	Procedure glRasterPos4iv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos4iv';
1219	Procedure glRasterPos4s (x,y,z,w:GLshort);ApiEntry; 'OPENGL' name 'glRasterPos4s';
1220	Procedure glRasterPos4sv (Const v);ApiEntry; 'OPENGL' name 'glRasterPos4sv';
1221	Procedure glReadBuffer (mode:GLenum);ApiEntry; 'OPENGL' name 'glReadBuffer';
1222	Procedure glReadPixels (x,y:GLint;width,height:GLsizei;
1223	format,typ:GLenum;Var pixels);ApiEntry; 'OPENGL' name 'glReadPixels';
1224	Procedure glRectd (x1,y1,x2,y2:GLdouble);ApiEntry; 'OPENGL' name 'glRectd';
1225	Procedure glRectdv (Const v1;Const v2);ApiEntry; 'OPENGL' name 'glRectdv';
1226	Procedure glRectf (x1,y1,x2,y2:GLfloat);ApiEntry; 'OPENGL' name 'glRectf';
1227	Procedure glRectfv (Const v1;Const v2);ApiEntry; 'OPENGL' name 'glRectfv';
1228	Procedure glRecti (x1,y1,x2,y2:GLint);ApiEntry; 'OPENGL' name 'glRecti';
1229	Procedure glRectiv (Const v1;Const v2);ApiEntry; 'OPENGL' name 'glRectiv';
1230	Procedure glRects (x1,y1,x2,y2:GLshort);ApiEntry; 'OPENGL' name 'glRects';
1231	Procedure glRectsv (Const v1;Const v2);ApiEntry; 'OPENGL' name 'glRectsv';
1232	Function glRenderMode (mode:GLenum):GLint;ApiEntry; 'OPENGL' name 'glRenderMode';
1233	Procedure glRotated (angle,x,y,z:GLdouble);ApiEntry; 'OPENGL' name 'glRotated';
1234	Procedure glRotatef (angle,x,y,z:GLfloat);ApiEntry; 'OPENGL' name 'glRotatef';
1235	Procedure glScaled (x,y,z:GLdouble);ApiEntry; 'OPENGL' name 'glScaled';
1236	Procedure glScalef (x,y,z:GLfloat);ApiEntry; 'OPENGL' name 'glScalef';
1237	Procedure glScissor (x,y:GLint;width,height:GLsizei);ApiEntry; 'OPENGL' name 'glScissor';
1238	Procedure glSelectBuffer (size:GLsizei;Var buffer);ApiEntry; 'OPENGL' name 'glSelectBuffer';
1239	Procedure glShadeModel (mode:GLenum);ApiEntry; 'OPENGL' name 'glShadeModel';
1240	Procedure glStencilFunc (func:GLenum;ref:GLint;mask:GLuint);ApiEntry; 'OPENGL' name 'glStencilFunc';
1241	Procedure glStencilMask (mask:GLuint);ApiEntry; 'OPENGL' name 'glStencilMask';
1242	Procedure glStencilOp (fail,zfail,zpass:GLenum);ApiEntry; 'OPENGL' name 'glStencilOp';
1243	Procedure glTexCoord1d (s:GLdouble);ApiEntry; 'OPENGL' name 'glTexCoord1d';
1244	Procedure glTexCoord1dv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord1dv';
1245	Procedure glTexCoord1f (s:GLfloat);ApiEntry; 'OPENGL' name 'glTexCoord1f';
1246	Procedure glTexCoord1fv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord1fv';
1247	Procedure glTexCoord1i (s:GLint);ApiEntry; 'OPENGL' name 'glTexCoord1i';
1248	Procedure glTexCoord1iv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord1iv';
1249	Procedure glTexCoord1s (s:GLshort);ApiEntry; 'OPENGL' name 'glTexCoord1s';
1250	Procedure glTexCoord1sv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord1sv';
1251	Procedure glTexCoord2d (s,t:GLdouble);ApiEntry; 'OPENGL' name 'glTexCoord2d';
1252	Procedure glTexCoord2dv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord2dv';
1253	Procedure glTexCoord2f (s,t:GLfloat);ApiEntry; 'OPENGL' name 'glTexCoord2f';
1254	Procedure glTexCoord2fv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord2fv';
1255	Procedure glTexCoord2i (s,t:GLint);ApiEntry; 'OPENGL' name 'glTexCoord2i';
1256	Procedure glTexCoord2iv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord2iv';
1257	Procedure glTexCoord2s (s,t:GLshort);ApiEntry; 'OPENGL' name 'glTexCoord2s';
1258	Procedure glTexCoord2sv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord2sv';
1259	Procedure glTexCoord3d (s,t,r:GLdouble);ApiEntry; 'OPENGL' name 'glTexCoord3d';
1260	Procedure glTexCoord3dv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord3dv';
1261	Procedure glTexCoord3f (s,t,r:GLfloat);ApiEntry; 'OPENGL' name 'glTexCoord3f';
1262	Procedure glTexCoord3fv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord3fv';
1263	Procedure glTexCoord3i (s,t,r:GLint);ApiEntry; 'OPENGL' name 'glTexCoord3i';
1264	Procedure glTexCoord3iv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord3iv';
1265	Procedure glTexCoord3s (s,t,r:GLshort);ApiEntry; 'OPENGL' name 'glTexCoord3s';
1266	Procedure glTexCoord3sv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord3sv';
1267	Procedure glTexCoord4d (s,t,r,q:GLdouble);ApiEntry; 'OPENGL' name 'glTexCoord4d';
1268	Procedure glTexCoord4dv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord4dv';
1269	Procedure glTexCoord4f (s,t,r,q:GLfloat);ApiEntry; 'OPENGL' name 'glTexCoord4f';
1270	Procedure glTexCoord4fv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord4fv';
1271	Procedure glTexCoord4i (s,t,r,q:GLint);ApiEntry; 'OPENGL' name 'glTexCoord4i';
1272	Procedure glTexCoord4iv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord4iv';
1273	Procedure glTexCoord4s (s,t,r,q:GLshort);ApiEntry; 'OPENGL' name 'glTexCoord4s';
1274	Procedure glTexCoord4sv (Const v);ApiEntry; 'OPENGL' name 'glTexCoord4sv';
1275	Procedure glTexCoordPointerEXT (size:GLint;typ:GLenum;stride,count:GLsizei;
1276	Const Buf);ApiEntry; 'OPENGL' name 'glTexCoordPointerEXT';
1277	Procedure glTexEnvf (target,pname:GLenum;param:GLfloat);ApiEntry; 'OPENGL' name 'glTexEnvf';
1278	Procedure glTexEnvfv (target,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glTexEnvfv';
1279	Procedure glTexEnvi (target,pname:GLenum;param:GLint);ApiEntry; 'OPENGL' name 'glTexEnvi';
1280	Procedure glTexEnviv (target,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glTexEnviv';
1281	Procedure glTexGend (coord,pname:GLenum;param:GLdouble);ApiEntry; 'OPENGL' name 'glTexGend';
1282	Procedure glTexGendv (coord,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glTexGendv';
1283	Procedure glTexGenf (coord,pname:GLenum;param:GLfloat);ApiEntry; 'OPENGL' name 'glTexGenf';
1284	Procedure glTexGenfv (coord,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glTexGenfv';
1285	Procedure glTexGeni (coord,pname:GLenum;param:GLint);ApiEntry; 'OPENGL' name 'glTexGeni';
1286	Procedure glTexGeniv (coord,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glTexGeniv';
1287	Procedure glTexImage1D (target:GLenum;level,components:GLint;
1288	width:GLsizei;border:GLint;format:GLenum;
1289	typ:GLenum;Const pixels);ApiEntry; 'OPENGL' name 'glTexImage1D';
1290	Procedure glTexImage2D (target:GLenum;level,components:GLint;
1291	width,height:GLsizei;border:GLint;
1292	format,typ:GLenum;Const pixels);ApiEntry; 'OPENGL' name 'glTexImage2D';
1293	Procedure glTexParameterf (target,pname:GLenum;param:GLfloat);ApiEntry; 'OPENGL' name 'glTexParameterf';
1294	Procedure glTexParameterfv (target,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glTexParameterfv';
1295	Procedure glTexParameteri (target,pname:GLenum;param:GLint);ApiEntry; 'OPENGL' name 'glTexParameteri';
1296	Procedure glTexParameteriv (target,pname:GLenum;Const params);ApiEntry; 'OPENGL' name 'glTexParameteriv';
1297	Procedure glTexSubImage1DEXT (target:GLenum;level,xoffset:GLint;
1298	width:GLsizei;format,typ:GLenum;Const pixels);ApiEntry; 'OPENGL' name 'glTexSubImage1DEXT';
1299	Procedure glTexSubImage2DEXT (target:GLenum;level,xoffset,yoffset:GLint;
1300	width,height:GLsizei;format,typ:GLenum;
1301	Const pixels);ApiEntry; 'OPENGL' name 'glTexSubImage2DEXT';
1302	Procedure glTranslated (x,y,z:GLdouble);ApiEntry; 'OPENGL' name 'glTranslated';
1303	Procedure glTranslatef (x,y,z:GLfloat);ApiEntry; 'OPENGL' name 'glTranslatef';
1304	Procedure glVertex2d (x,y:GLdouble);ApiEntry; 'OPENGL' name 'glVertex2d';
1305	Procedure glVertex2dv (Const v);ApiEntry; 'OPENGL' name 'glVertex2dv';
1306	Procedure glVertex2f (x,y:GLfloat);ApiEntry; 'OPENGL' name 'glVertex2f';
1307	Procedure glVertex2fv (Const v);ApiEntry; 'OPENGL' name 'glVertex2fv';
1308	Procedure glVertex2i (x,y:GLint);ApiEntry; 'OPENGL' name 'glVertex2i';
1309	Procedure glVertex2iv (Const v);ApiEntry; 'OPENGL' name 'glVertex2iv';
1310	Procedure glVertex2s (x,y:GLshort);ApiEntry; 'OPENGL' name 'glVertex2s';
1311	Procedure glVertex2sv (Const v);ApiEntry; 'OPENGL' name 'glVertex2sv';
1312	Procedure glVertex3d (x,y,z:GLdouble);ApiEntry; 'OPENGL' name 'glVertex3d';
1313	Procedure glVertex3dv (Const v);ApiEntry; 'OPENGL' name 'glVertex3dv';
1314	Procedure glVertex3f (x,y,z:GLfloat);ApiEntry; 'OPENGL' name 'glVertex3f';
1315	Procedure glVertex3fv (Const v);ApiEntry; 'OPENGL' name 'glVertex3fv';
1316	Procedure glVertex3i (x,y,z:GLint);ApiEntry; 'OPENGL' name 'glVertex3i';
1317	Procedure glVertex3iv (Const v);ApiEntry; 'OPENGL' name 'glVertex3iv';
1318	Procedure glVertex3s (x,y,z:GLshort);ApiEntry; 'OPENGL' name 'glVertex3s';
1319	Procedure glVertex3sv (Const v);ApiEntry; 'OPENGL' name 'glVertex3sv';
1320	Procedure glVertex4d (x,y,z,w:GLdouble);ApiEntry; 'OPENGL' name 'glVertex4d';
1321	Procedure glVertex4dv (Const v);ApiEntry; 'OPENGL' name 'glVertex4dv';
1322	Procedure glVertex4f (x,y,z,w:GLfloat);ApiEntry; 'OPENGL' name 'glVertex4f';
1323	Procedure glVertex4fv (Const v);ApiEntry; 'OPENGL' name 'glVertex4fv';
1324	Procedure glVertex4i (x,y,z,w:GLint);ApiEntry; 'OPENGL' name 'glVertex4i';
1325	Procedure glVertex4iv (Const v);ApiEntry; 'OPENGL' name 'glVertex4iv';
1326	Procedure glVertex4s (x,y,z,w:GLshort);ApiEntry; 'OPENGL' name 'glVertex4s';
1327	Procedure glVertex4sv (Const v);ApiEntry; 'OPENGL' name 'glVertex4sv';
1328	Procedure glVertexPointerEXT (size:GLint;typ:GLenum;stride,count:GLsizei;
1329	Const Buf);ApiEntry; 'OPENGL' name 'glVertexPointerEXT';
1330	Procedure glViewport (x,y:GLint;width,height:GLsizei);ApiEntry; 'OPENGL' name 'glViewport';
1331
1332	Procedure auxInitDisplayMode(mode:GLenum);ApiEntry; 'LIBAUX' name 'auxInitDisplayMode';
1333	Procedure auxInitPosition(x,y,w,h:LongInt);ApiEntry;'LIBAUX' name 'auxInitPosition';
1334	Function auxInitWindow(Const t:CString):GLenum;ApiEntry; 'LIBAUX' name 'auxInitWindow';
1335	Procedure auxCloseWindow;ApiEntry; 'LIBAUX' name 'auxCloseWindow';
1336	Procedure auxQuit;ApiEntry; 'LIBAUX' name 'auxQuit';
1337	Procedure auxClipBoard;ApiEntry; 'LIBAUX' name 'auxClipBoard';
1338	Procedure auxSwapBuffers;ApiEntry; 'LIBAUX' name 'auxSwapBuffers';
1339
1340	Procedure gluBeginCurve (Var nurb);ApiEntry; 'OPENGL' name 'gluBeginCurve';
1341	Procedure gluBeginPolygon (Var tess);ApiEntry; 'OPENGL' name 'gluBeginPolygon';
1342	Procedure gluBeginSurface (Var nurb);ApiEntry; 'OPENGL' name 'gluBeginSurface';
1343	Procedure gluBeginTrim (Var nurb);ApiEntry; 'OPENGL' name 'gluBeginTrim';
1344	Function gluBuild1DMipmaps (target:GLenum;component:GLint;
1345	width:GLsizei;format,typ:GLenum;
1346	Const data):GLint;ApiEntry; 'OPENGL' name 'gluBuild1DMipmaps';
1347	Function gluBuild2DMipmaps (target:GLenum;component:GLint;
1348	width,height:GLsizei;format,typ:GLenum;
1349	Const data):GLint;ApiEntry; 'OPENGL' name 'gluBuild2DMipmaps';
1350	Procedure gluCylinder (Var quad;base,top,height:GLdouble;slices:GLint;
1351	stacks:GLint);ApiEntry; 'OPENGL' name 'gluCylinder';
1352	Procedure gluDeleteNurbsRenderer (Var nurb);ApiEntry; 'OPENGL' name 'gluDeleteNurbsRenderer';
1353	Procedure gluDeleteQuadric (Var quad);ApiEntry; 'OPENGL' name 'gluDeleteQuadric';
1354	Procedure gluDeleteTess (Var tess);ApiEntry; 'OPENGL' name 'gluDeleteTess';
1355	Procedure gluDisk (Var quad;inner,outer:GLdouble;slices,loops:GLint);ApiEntry; 'OPENGL' name 'gluDisk';
1356	Procedure gluEndCurve (Var nurb);ApiEntry; 'OPENGL' name 'gluEndCurve';
1357	Procedure gluEndPolygon (Var tess);ApiEntry; 'OPENGL' name 'gluEndPolygon';
1358	Procedure gluEndSurface (Var nurb);ApiEntry; 'OPENGL' name 'gluEndSurface';
1359	Procedure gluEndTrim (Var nurb);ApiEntry; 'OPENGL' name 'gluEndTrim';
1360	Function gluErrorString (error:GLenum):PChar;ApiEntry; 'OPENGL' name 'gluErrorString';
1361	Procedure gluGetNurbsProperty (Var nurb;property:GLenum;Var data);ApiEntry; 'OPENGL' name 'gluGetNurbsProperty';
1362	Function gluGetString (name:GLenum):PChar;ApiEntry; 'OPENGL' name 'gluGetString';
1363	Procedure gluGetTessProperty (Var tess;which:GLenum;Var data);ApiEntry; 'OPENGL' name 'gluGetTessProperty';
1364	Procedure gluLoadSamplingMatrices (Var nurb;Const model;Const perspective;
1365	Const view);ApiEntry; 'OPENGL' name 'gluLoadSamplingMatrices';
1366	Procedure gluLookAt (eyeX,eyeY,eyeZ,centerX,centerY,centerZ:GLdouble;
1367	upX,upY,upZ:GLdouble);ApiEntry; 'OPENGL' name 'gluLookAt';
1368	Function gluNewNurbsRenderer:Pointer;ApiEntry; 'OPENGL' name 'gluNewNurbsRenderer';
1369	Function gluNewQuadric:Pointer;ApiEntry; 'OPENGL' name 'gluNewQuadric';
1370	Function gluNewTess:Pointer;ApiEntry; 'OPENGL' name 'gluNewTess';
1371	Procedure gluNextContour (Var tess;typ:GLenum);ApiEntry; 'OPENGL' name 'gluNextContour';
1372	Procedure gluNurbsCallback (Var nurb;which:GLenum;
1373	CallBackFunc:auxproc1);ApiEntry; 'OPENGL' name 'gluNurbsCallback';
1374	Procedure gluNurbsCurve (Var nurb;knotCount:GLint;Var knots;
1375	stride:GLint;Var control;order:GLint;
1376	typ:GLenum);ApiEntry; 'OPENGL' name 'gluNurbsCurve';
1377	Procedure gluNurbsProperty (Var nurb;property:GLenum;value:GLfloat);ApiEntry; 'OPENGL' name 'gluNurbsProperty';
1378	Procedure gluNurbsSurface (Var nurb;sKnotCount:GLint;Var sKnots;
1379	tKnotCount:GLint;Var tKnots;sStride:GLint;
1380	tStride:GLint;Var control;
1381	sOrder,tOrder:GLint;typ:GLenum);ApiEntry; 'OPENGL' name 'gluNurbsSurface';
1382	Procedure gluOrtho2D (left,right,bottom,top:GLdouble);ApiEntry; 'OPENGL' name 'gluOrtho2D';
1383	Procedure gluPartialDisk (Var quad;inner,outer:GLdouble;slices:GLint;
1384	loops:GLint;start,sweep:GLdouble);ApiEntry; 'OPENGL' name 'gluPartialDisk';
1385	Procedure gluPerspective (fovy,aspect,near,far:GLdouble);ApiEntry; 'OPENGL' name 'gluPerspective';
1386	Procedure gluPickMatrix (x,y,delx,dely:GLdouble;Var viewport);ApiEntry; 'OPENGL' name 'gluPickMatrix';
1387	Function gluProject (objX,objY,objZ:GLdouble;Const model;Const proj;
1388	Const view;Var winX;Var WinY;Var WinZ):GLint;ApiEntry; 'OPENGL' name 'gluProject';
1389	Procedure gluPwlCurve (Var nurb;count:GLint;Var data;stride:GLint;
1390	typ:GLenum);ApiEntry; 'OPENGL' name 'gluPwlCurve';
1391	Procedure gluQuadricCallback (Var quad;which:GLenum;CallBackFunc:auxproc1);ApiEntry; 'OPENGL' name 'gluQuadricCallback';
1392	Procedure gluQuadricDrawStyle (Var quad;draw:GLenum);ApiEntry; 'OPENGL' name 'gluQuadricDrawStyle';
1393	Procedure gluQuadricNormals (Var quad;normal:GLenum);ApiEntry; 'OPENGL' name 'gluQuadricNormals';
1394	Procedure gluQuadricOrientation (Var quad;orientation:GLenum);ApiEntry; 'OPENGL' name 'gluQuadricOrientation';
1395	Procedure gluQuadricTexture (Var quad;texture:GLboolean);ApiEntry; 'OPENGL' name 'gluQuadricTexture';
1396	Function gluScaleImage (format:GLenum;wIn,hIn:GLsizei;typeIn:GLenum;
1397	Const dataIn;wOut,hOut:GLsizei;typeOut:GLenum;
1398	Var dataOut):GLint;ApiEntry; 'OPENGL' name 'gluScaleImage';
1399	Procedure gluSphere (Var quad;radius:GLdouble;slices,stacks:GLint);ApiEntry; 'OPENGL' name 'gluSphere';
1400	Procedure gluTessBeginContour (Var tess);ApiEntry; 'OPENGL' name 'gluTessBeginContour';
1401	Procedure gluTessBeginPolygon (Var tess;Var data);ApiEntry; 'OPENGL' name 'gluTessBeginPolygon';
1402	Procedure gluTessCallback (Var tess;which:GLenum;CallBackFunc:auxproc1);ApiEntry; 'OPENGL' name 'gluTessCallback';
1403	Procedure gluTessEndContour (Var tess);ApiEntry; 'OPENGL' name 'gluTessEndContour';
1404	Procedure gluTessEndPolygon (Var tess);ApiEntry; 'OPENGL' name 'gluTessEndPolygon';
1405	Procedure gluTessNormal (Var tess;valueX,valueY,valueZ:GLdouble);ApiEntry; 'OPENGL' name 'gluTessNormal';
1406	Procedure gluTessProperty (Var tess;which:GLenum;data:GLdouble);ApiEntry; 'OPENGL' name 'gluTessProperty';
1407	Procedure gluTessVertex (Var tess;Var location;Var data);ApiEntry; 'OPENGL' name 'gluTessVertex';
1408	Function gluUnProject (winX,winY,winZ:GLdouble;Const model;Const proj;
1409	Const view;Var objX;Var objY;Var objZ):GLint;ApiEntry; 'OPENGL' name 'gluUnProject';
1410
1411	Procedure auxMainLoop(f:auxproc1);ApiEntry; 'LIBAUX' name 'auxMainLoop';
1412	Procedure auxExposeFunc(f:auxproc2);ApiEntry; 'LIBAUX' name 'auxExposeFunc';
1413	Procedure auxReshapeFunc(f:auxproc2);ApiEntry; 'LIBAUX' name 'auxReshapeFunc';
1414	Procedure auxIdleFunc(f:auxproc1);ApiEntry; 'LIBAUX' name 'auxIdleFunc';
1415	Procedure auxKeyFunc(i:LongInt;f:auxproc1);ApiEntry; 'LIBAUX' name 'auxKeyFunc';
1416	Procedure auxKeyDownFunc(f:auxfunc1);ApiEntry; 'LIBAUX' name 'auxKeyDownFunc';
1417	Procedure auxMouseFunc(x,y:LongInt;f:auxproc3);ApiEntry; 'LIBAUX' name 'auxMouseFunc';
1418	Procedure auxMouseDownFunc(f:auxfunc2);ApiEntry; 'LIBAUX' name 'auxMouseDownFunc';
1419	Procedure auxMouseUpFunc(f:auxfunc2);ApiEntry; 'LIBAUX' name 'auxMouseUpFunc';
1420	Procedure auxMouseMoveFunc(f:auxfunc2);ApiEntry; 'LIBAUX' name 'auxMouseMoveFunc';
1421	Function auxGetColorMapSize:GLint;ApiEntry; 'LIBAUX' name 'auxGetColorMapSize';
1422	Procedure auxGetMouseLoc(Var x,y:LongInt);ApiEntry; 'LIBAUX' name 'auxGetMouseLoc';
1423	Procedure auxSetOneColor(i:LongInt;r,g,b:Single);ApiEntry; 'LIBAUX' name 'auxSetOneColor';
1424	Procedure auxSetFogRamp(i1,i2:LongInt);ApiEntry; 'LIBAUX' name 'auxSetFogRamp';
1425	Procedure auxSetGreyRamp;ApiEntry; 'LIBAUX' name 'auxSetGreyRamp';
1426	Procedure auxSetRGBMap(c:LongInt;Var Buf);ApiEntry; 'LIBAUX' name 'auxSetRGBMap';
1427	Function auxRGBImageLoad(c:PChar):PAUX_RGBImageRec; 'LIBAUX'name 'auxRGBImageLoad';
1428	Procedure auxCreateFont;ApiEntry; 'LIBAUX' name 'auxCreateFont';
1429	Procedure auxDrawStr(Const s:CString);ApiEntry; 'LIBAUX' name 'auxDrawStr';
1430	Procedure auxWireSphere(d:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireSphere';
1431	Procedure auxSolidSphere(d:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidSphere';
1432	Procedure auxWireCube(c:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireCube';
1433	Procedure auxSolidCube(c:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidCube';
1434	Procedure auxWireBox(a,b,c:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireBox';
1435	Procedure auxSolidBox(a,b,c:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidBox';
1436	Procedure auxWireTorus(a,b:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireTorus';
1437	Procedure auxSolidTorus(a,b:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidTorus';
1438	Procedure auxWireCylinder(a,b:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireCylinder';
1439	Procedure auxSolidCylinder(a,b:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidCylinder';
1440	Procedure auxWireIcosahedron(a:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireIcosahedron';
1441	Procedure auxSolidIcosahedron(a:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidIcosahedron';
1442	Procedure auxWireOctahedron(a:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireOctahedron';
1443	Procedure auxSolidOctahedron(a:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidOctahedron';
1444	Procedure auxWireTetrahedron(a:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireTetrahedron';
1445	Procedure auxSolidTetrahedron(a:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidTetrahedron';
1446	Procedure auxWireDodecahedron(a:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireDodecahedron';
1447	Procedure auxSolidDodecahedron(a:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidDodecahedron';
1448	Procedure auxWireCone(a,b:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireCone';
1449	Procedure auxSolidCone(a,b:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidCone';
1450	Procedure auxWireTeapot(a:GLdouble);ApiEntry; 'LIBAUX' name 'auxWireTeapot';
1451	Procedure auxSolidTeapot(a:GLdouble);ApiEntry; 'LIBAUX' name 'auxSolidTeapot';
1452
1453	Procedure glutInit (Var argc;Var argv);ApiEntry; 'GLUT' name 'glutInit';
1454	Procedure glutInitDisplayMode (m:LongWord);ApiEntry; 'GLUT' name 'glutInitDisplayMode';
1455	Procedure glutInitWindowPosition (x,y:LongInt);ApiEntry; 'GLUT' name 'glutInitWindowPosition';
1456	Procedure glutInitWindowSize (cx,cy:LongInt);ApiEntry; 'GLUT' name 'glutInitWindowSize';
1457	Procedure glutMainLoop;ApiEntry; 'GLUT' name 'glutMainLoop';
1458	Function glutCreateWindow (Var c:CString):LongInt;ApiEntry; 'GLUT' name 'glutCreateWindow';
1459	Function glutCreateSubWindow (x,y,w,h,i:LongInt):LongInt;ApiEntry; 'GLUT' name 'glutCreateSubWindow';
1460	Procedure glutDestroyWindow (i:LongInt);ApiEntry; 'GLUT' name 'glutDestroyWindow';
1461	Procedure glutPostRedisplay;ApiEntry; 'GLUT' name 'glutPostRedisplay';
1462	Procedure glutSwapBuffers;ApiEntry; 'GLUT' name 'glutSwapBuffers';
1463	Function glutGetWindow:LongInt;ApiEntry; 'GLUT' name 'glutGetWindow';
1464	Procedure glutSetWindow (i:LongInt);ApiEntry; 'GLUT' name 'glutSetWindow';
1465	Procedure glutSetWindowTitle (Const c:CString);ApiEntry; 'GLUT' name 'glutSetWindowTitle';
1466	Procedure glutSetIconTitle (Const c:CString);ApiEntry; 'GLUT' name 'glutSetIconTitle';
1467	Procedure glutPositionWindow (x,y:LongInt);ApiEntry; 'GLUT' name 'glutPositionWindow';
1468	Procedure glutReshapeWindow (i1,i2:LongInt);ApiEntry; 'GLUT' name 'glutReshapeWindow';
1469	Procedure glutPopWindow;ApiEntry; 'GLUT' name 'glutPopWindow';
1470	Procedure glutPushWindow;ApiEntry; 'GLUT' name 'glutPushWindow';
1471	Procedure glutIconifyWindow;ApiEntry; 'GLUT' name 'glutIconifyWindow';
1472	Procedure glutShowWindow;ApiEntry; 'GLUT' name 'glutShowWindow';
1473	Procedure glutHideWindow;ApiEntry; 'GLUT' name 'glutHideWindow';
1474	Function glutCreateMenu (f:glutproc4):LongInt;ApiEntry; 'GLUT' name 'glutCreateMenu';
1475	Procedure glutDestroyMenu(i:LongInt);ApiEntry; 'GLUT' name 'glutDestroyMenu';
1476	Function glutGetMenu:LongInt;ApiEntry; 'GLUT' name 'glutGetMenu';
1477	Procedure glutSetMenu (i:LongInt);ApiEntry; 'GLUT' name 'glutSetMenu';
1478	Procedure glutAddMenuEntry (Const c:CString;i:LongInt);ApiEntry; 'GLUT' name 'glutAddMenuEntry';
1479	Procedure glutAddSubMenu (Const c:CString;i:LongInt);ApiEntry; 'GLUT' name 'glutAddSubMenu';
1480	Procedure glutChangeToMenuEntry (i:LongInt;Const c:CString;i1:LongInt);ApiEntry; 'GLUT' name 'glutChangeToMenuEntry';
1481	Procedure glutChangeToSubMenu (i:LongInt;Const c:CString;i1:LongInt);ApiEntry; 'GLUT' name 'glutChangeToSubMenu';
1482	Procedure glutRemoveMenuItem (i:LongInt);ApiEntry; 'GLUT' name 'glutRemoveMenuItem';
1483	Procedure glutAttachMenu (i:LongInt);ApiEntry; 'GLUT' name 'glutAttachMenu';
1484	Procedure glutDetachMenu (i:LongInt);ApiEntry; 'GLUT' name 'glutDetachMenu';
1485	Procedure glutDisplayFunc (f:auxproc1);ApiEntry; 'GLUT' name 'glutDisplayFunc';
1486	Procedure glutReshapeFunc (f:glutproc1);ApiEntry; 'GLUT' name 'glutReshapeFunc';
1487	Procedure glutKeyboardFunc (f:glutproc2);ApiEntry; 'GLUT' name 'glutKeyboardFunc';
1488	Procedure glutMouseFunc (f:glutproc3);ApiEntry; 'GLUT' name 'glutMouseFunc';
1489	Procedure glutMotionFunc (f:glutproc1);ApiEntry; 'GLUT' name 'glutMotionFunc';
1490	Procedure glutPassiveMotionFunc (f:glutproc1);ApiEntry; 'GLUT' name 'glutPassiveMotionFunc';
1491	Procedure glutEntryFunc (f:glutproc4);ApiEntry; 'GLUT' name 'glutEntryFunc';
1492	Procedure glutVisibilityFunc (f:glutproc4);ApiEntry; 'GLUT' name 'glutVisibilityFunc';
1493	Procedure glutIdleFunc (f:auxproc1);ApiEntry; 'GLUT' name 'glutIdleFunc';
1494	Procedure glutTimerFunc (u:LongWord;f:glutproc1);ApiEntry; 'GLUT' name 'glutTimerFunc';
1495	Procedure glutMenuStateFunc (f:glutproc4);ApiEntry; 'GLUT' name 'glutMenuStateFunc';
1496	Procedure glutSetColor (i:LongInt;f1,f2,f3:GLfloat);ApiEntry; 'GLUT' name 'glutSetColor';
1497	Function glutGetColor (i1,i2:LongInt):GLfloat;ApiEntry; 'GLUT' name 'glutGetColor';
1498	Procedure glutCopyColormap (i:LongInt);ApiEntry; 'GLUT' name 'glutCopyColormap';
1499	Function glutGet (r:GLenum):LongInt;ApiEntry; 'GLUT' name 'glutGet';
1500	Function glutDeviceGet (e:GLenum):LongInt;ApiEntry; 'GLUT' name 'glutDeviceGet';
1501	Procedure glutStrokeCharacter (Var Buf;i:LongInt);ApiEntry; 'GLUT' name 'glutStrokeCharacter';
1502	Procedure glutBitmapCharacter (Var Buf;i:LongInt);ApiEntry; 'GLUT' name 'glutBitmapCharacter';
1503	Procedure glutWireSphere (d:GLdouble;i1,i2:GLint);ApiEntry; 'GLUT' name 'glutWireSphere';
1504	Procedure glutSolidSphere (d:GLdouble;i1,i2:GLint);ApiEntry; 'GLUT' name 'glutSolidSphere';
1505	Procedure glutWireCone (d1,d2:GLdouble;i1,i2:GLint);ApiEntry; 'GLUT' name 'glutWireCone';
1506	Procedure glutSolidCone (d1,d2:GLdouble;i1,i2:GLint);ApiEntry; 'GLUT' name 'glutSolidCone';
1507	Procedure glutWireCube (d:GLdouble);ApiEntry; 'GLUT' name 'glutWireCube';
1508	Procedure glutSolidCube (d:GLdouble);ApiEntry; 'GLUT' name 'glutSolidCube';
1509	Procedure glutWireTorus (d1,d2:GLdouble;i1,i2:GLint);ApiEntry; 'GLUT' name 'glutWireTorus';
1510	Procedure glutSolidTorus (d1,d2:GLdouble;i1,i2:GLint);ApiEntry; 'GLUT' name 'glutSolidTorus';
1511	Procedure glutWireDodecahedron;ApiEntry; 'GLUT' name 'glutWireDodecahedron';
1512	Procedure glutSolidDodecahedron;ApiEntry; 'GLUT' name 'glutSolidDodecahedron';
1513	Procedure glutWireTeapot (d:GLdouble);ApiEntry; 'GLUT' name 'glutWireTeapot';
1514	Procedure glutSolidTeapot (d:GLdouble);ApiEntry; 'GLUT' name 'glutSolidTeapot';
1515	Procedure glutWireOctahedron;ApiEntry; 'GLUT' name 'glutWireOctahedron';
1516	Procedure glutSolidOctahedron;ApiEntry; 'GLUT' name 'glutSolidOctahedron';
1517	Procedure glutWireTetrahedron;ApiEntry; 'GLUT' name 'glutWireTetrahedron';
1518	Procedure glutSolidTetrahedron;ApiEntry; 'GLUT' name 'glutSolidTetrahedron';
1519	Procedure glutWireIcosahedron;ApiEntry; 'GLUT' name 'glutWireIcosahedron';
1520	Procedure glutSolidIcosahedron;ApiEntry; 'GLUT' name 'glutSolidIcosahedron';
1521	End;
1522
1523	Function AUX_WIND_IS_RGB(x:LongWord):Boolean;
1524	Function AUX_WIND_IS_INDEX(x:LongWord):Boolean;
1525	Function AUX_WIND_IS_SINGLE(x:LongWord):Boolean;
1526	Function AUX_WIND_IS_DOUBLE(x:LongWord):Boolean;
1527	Function AUX_WIND_IS_INDIRECT(x:LongWord):Boolean;
1528	Function AUX_WIND_IS_DIRECT(x:LongWord):Boolean;
1529	Function AUX_WIND_HAS_ACCUM(x:LongWord):Boolean;
1530	Function AUX_WIND_HAS_ALPHA(x:LongWord):Boolean;
1531	Function AUX_WIND_HAS_DEPTH(x:LongWord):Boolean;
1532	Function AUX_WIND_HAS_STENCIL(x:LongWord):Boolean;
1533	Procedure AUX_SETCOLOR(x,y:LongWord);
1534
1535	Implementation
1536
1537	Function AUX_WIND_IS_RGB(x:LongWord):Boolean;
1538	Begin
1539	Result:=(x AND AUX_INDEX) = 0;
1540	End;
1541
1542	Function AUX_WIND_IS_INDEX(x:LongWord):Boolean;
1543	Begin
1544	Result:=(x And AUX_INDEX) <> 0;
1545	End;
1546
1547	Function AUX_WIND_IS_SINGLE(x:LongWord):Boolean;
1548	Begin
1549	Result:=(x And AUX_DOUBLE) = 0;
1550	End;
1551
1552	Function AUX_WIND_IS_DOUBLE(x:LongWord):Boolean;
1553	Begin
1554	Result:=(x And AUX_DOUBLE) <> 0;
1555	End;
1556
1557	Function AUX_WIND_IS_INDIRECT(x:LongWord):Boolean;
1558	Begin
1559	Result:=(x And AUX_INDIRECT) <> 0;
1560	End;
1561
1562	Function AUX_WIND_IS_DIRECT(x:LongWord):Boolean;
1563	Begin
1564	Result:=(x And AUX_INDIRECT) = 0;
1565	End;
1566
1567	Function AUX_WIND_HAS_ACCUM(x:LongWord):Boolean;
1568	Begin
1569	Result:=(x And AUX_ACCUM) <> 0;
1570	End;
1571
1572	Function AUX_WIND_HAS_ALPHA(x:LongWord):Boolean;
1573	Begin
1574	Result:=(x And AUX_ALPHA) <> 0;
1575	End;
1576
1577	Function AUX_WIND_HAS_DEPTH(x:LongWord):Boolean;
1578	Begin
1579	Result:=(x And AUX_DEPTH) <> 0;
1580	End;
1581
1582	Function AUX_WIND_HAS_STENCIL(x:LongWord):Boolean;
1583	Begin
1584	Result:=(x And AUX_STENCIL) <> 0;
1585	End;
1586
1587	Procedure AUX_SETCOLOR(x,y:LongWord);
1588	Begin
1589	If AUX_WIND_IS_RGB(x) Then glColor3fv(auxRGBMap[y][0])
1590	Else glIndexf(y);
1591	End;
1592
1593
1594	End.

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format