-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathOpenGL_gl.f90
5352 lines (4896 loc) · 190 KB
/
OpenGL_gl.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
MODULE OpenGL_kinds
USE, INTRINSIC :: ISO_C_BINDING
IMPLICIT NONE
PUBLIC
! Kind parameters
! Integer types:
INTEGER, PARAMETER :: GLbyte=C_SIGNED_CHAR, GLshort=C_SHORT, &
GLint=C_INT, GLsizei=C_INT, GLboolean=C_SIGNED_CHAR, GLenum=C_INT, &
GLbitfield=C_INT, GLcint=C_INT, GLubyte=C_SIGNED_CHAR, &
GLushort=C_SHORT, GLuint=C_INT
! Real types:
INTEGER, PARAMETER :: GLdouble=C_DOUBLE, GLfloat=C_FLOAT, GLclampf=C_FLOAT, &
GLclampd=C_DOUBLE
END MODULE OpenGL_kinds
MODULE OpenGL_GL
USE, INTRINSIC :: ISO_C_BINDING
USE OpenGL_kinds
IMPLICIT NONE
PUBLIC
PRIVATE tmp_all_1
! Version values
INTEGER(GLenum), PARAMETER :: GL_VERSION_1_1=1
INTEGER(GLenum), PARAMETER :: GL_VERSION_1_2=1
! AccumOp values
INTEGER(GLenum), PARAMETER :: GL_ACCUM = z'0100' ! 0x0100
INTEGER(GLenum), PARAMETER :: GL_LOAD = z'0101' ! 0x0101
INTEGER(GLenum), PARAMETER :: GL_RETURN = z'0102' ! 0x0102
INTEGER(GLenum), PARAMETER :: GL_MULT = z'0103' ! 0x0103
INTEGER(GLenum), PARAMETER :: GL_ADD = z'0104' ! 0x0104
! AlphaFunction values
INTEGER(GLenum), PARAMETER :: GL_NEVER = z'0200' ! 0x0200
INTEGER(GLenum), PARAMETER :: GL_LESS = z'0201' ! 0x0201
INTEGER(GLenum), PARAMETER :: GL_EQUAL = z'0202' ! 0x0202
INTEGER(GLenum), PARAMETER :: GL_LEQUAL = z'0203' ! 0x0203
INTEGER(GLenum), PARAMETER :: GL_GREATER = z'0204' ! 0x0204
INTEGER(GLenum), PARAMETER :: GL_NOTEQUAL = z'0205' ! 0x0205
INTEGER(GLenum), PARAMETER :: GL_GEQUAL = z'0206' ! 0x0206
INTEGER(GLenum), PARAMETER :: GL_ALWAYS = z'0207' ! 0x0207
! AttribMask values
INTEGER(GLbitfield), PARAMETER :: GL_CURRENT_BIT = z'00000001' ! 0x00000001
INTEGER(GLbitfield), PARAMETER :: GL_POINT_BIT = z'00000002' ! 0x00000002
INTEGER(GLbitfield), PARAMETER :: GL_LINE_BIT = z'00000004' ! 0x00000004
INTEGER(GLbitfield), PARAMETER :: GL_POLYGON_BIT = z'00000008' ! 0x00000008
INTEGER(GLbitfield), PARAMETER :: GL_POLYGON_STIPPLE_BIT = z'00000010' ! 0x00000010
INTEGER(GLbitfield), PARAMETER :: GL_PIXEL_MODE_BIT = z'00000020' ! 0x00000020
INTEGER(GLbitfield), PARAMETER :: GL_LIGHTING_BIT = z'00000040' ! 0x00000040
INTEGER(GLbitfield), PARAMETER :: GL_FOG_BIT = z'00000080' ! 0x00000080
INTEGER(GLbitfield), PARAMETER :: GL_DEPTH_BUFFER_BIT = z'00000100' ! 0x00000100
INTEGER(GLbitfield), PARAMETER :: GL_ACCUM_BUFFER_BIT = z'00000200' ! 0x00000200
INTEGER(GLbitfield), PARAMETER :: GL_STENCIL_BUFFER_BIT = z'00000400' ! 0x00000400
INTEGER(GLbitfield), PARAMETER :: GL_VIEWPORT_BIT = z'00000800' ! 0x00000800
INTEGER(GLbitfield), PARAMETER :: GL_TRANSFORM_BIT = z'00001000' ! 0x00001000
INTEGER(GLbitfield), PARAMETER :: GL_ENABLE_BIT = z'00002000' ! 0x00002000
INTEGER(GLbitfield), PARAMETER :: GL_COLOR_BUFFER_BIT = z'00004000' ! 0x00004000
INTEGER(GLbitfield), PARAMETER :: GL_HINT_BIT = z'00008000' ! 0x00008000
INTEGER(GLbitfield), PARAMETER :: GL_EVAL_BIT = z'00010000' ! 0x00010000
INTEGER(GLbitfield), PARAMETER :: GL_LIST_BIT = z'00020000' ! 0x00020000
INTEGER(GLbitfield), PARAMETER :: GL_TEXTURE_BIT = z'00040000' ! 0x00040000
INTEGER(GLbitfield), PARAMETER :: GL_SCISSOR_BIT = z'00080000' ! 0x00080000
INTEGER(GLbitfield), PARAMETER :: GL_ALL_ATTRIB_BITS = z'000fffff' ! 0x000fffff
! BeginMode values
INTEGER(GLenum), PARAMETER :: GL_POINTS = z'0000' ! 0x0000
INTEGER(GLenum), PARAMETER :: GL_LINES = z'0001' ! 0x0001
INTEGER(GLenum), PARAMETER :: GL_LINE_LOOP = z'0002' ! 0x0002
INTEGER(GLenum), PARAMETER :: GL_LINE_STRIP = z'0003' ! 0x0003
INTEGER(GLenum), PARAMETER :: GL_TRIANGLES = z'0004' ! 0x0004
INTEGER(GLenum), PARAMETER :: GL_TRIANGLE_STRIP = z'0005' ! 0x0005
INTEGER(GLenum), PARAMETER :: GL_TRIANGLE_FAN = z'0006' ! 0x0006
INTEGER(GLenum), PARAMETER :: GL_QUADS = z'0007' ! 0x0007
INTEGER(GLenum), PARAMETER :: GL_QUAD_STRIP = z'0008' ! 0x0008
INTEGER(GLenum), PARAMETER :: GL_POLYGON = z'0009' ! 0x0009
! BlendEquationMode values
! BlendingFactorDest values
INTEGER(GLenum), PARAMETER :: GL_ZERO = 0 ! 0
INTEGER(GLenum), PARAMETER :: GL_ONE = 1 ! 1
INTEGER(GLenum), PARAMETER :: GL_SRC_COLOR = z'0300' ! 0x0300
INTEGER(GLenum), PARAMETER :: GL_ONE_MINUS_SRC_COLOR = z'0301' ! 0x0301
INTEGER(GLenum), PARAMETER :: GL_SRC_ALPHA = z'0302' ! 0x0302
INTEGER(GLenum), PARAMETER :: GL_ONE_MINUS_SRC_ALPHA = z'0303' ! 0x0303
INTEGER(GLenum), PARAMETER :: GL_DST_ALPHA = z'0304' ! 0x0304
INTEGER(GLenum), PARAMETER :: GL_ONE_MINUS_DST_ALPHA = z'0305' ! 0x0305
! BlendingFactorSrc values
INTEGER(GLenum), PARAMETER :: GL_DST_COLOR = z'0306' ! 0x0306
INTEGER(GLenum), PARAMETER :: GL_ONE_MINUS_DST_COLOR = z'0307' ! 0x0307
INTEGER(GLenum), PARAMETER :: GL_SRC_ALPHA_SATURATE = z'0308' ! 0x0308
! Boolean values
INTEGER(GLboolean), PARAMETER :: GL_TRUE = 1 ! 1
INTEGER(GLboolean), PARAMETER :: GL_FALSE = 0 ! 0
! ClearBufferMask values
! ClientArrayType values
! ClipPlaneName values
INTEGER(GLenum), PARAMETER :: GL_CLIP_PLANE0 = z'3000' ! 0x3000
INTEGER(GLenum), PARAMETER :: GL_CLIP_PLANE1 = z'3001' ! 0x3001
INTEGER(GLenum), PARAMETER :: GL_CLIP_PLANE2 = z'3002' ! 0x3002
INTEGER(GLenum), PARAMETER :: GL_CLIP_PLANE3 = z'3003' ! 0x3003
INTEGER(GLenum), PARAMETER :: GL_CLIP_PLANE4 = z'3004' ! 0x3004
INTEGER(GLenum), PARAMETER :: GL_CLIP_PLANE5 = z'3005' ! 0x3005
! ColorMaterialFace values
! ColorMaterialParameter values
! ColorPointerType values
! ColorTableParameterPName values
! ColorTableTarget values
! ConvolutionBorderMode values
! ConvolutionParameter values
! ConvolutionTarget values
! CullFaceMode values
! DataType values
INTEGER(GLenum), PARAMETER :: GL_BYTE = z'1400' ! 0x1400
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_BYTE = z'1401' ! 0x1401
INTEGER(GLenum), PARAMETER :: GL_SHORT = z'1402' ! 0x1402
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_SHORT = z'1403' ! 0x1403
INTEGER(GLenum), PARAMETER :: GL_INT = z'1404' ! 0x1404
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_INT = z'1405' ! 0x1405
INTEGER(GLenum), PARAMETER :: GL_FLOAT = z'1406' ! 0x1406
INTEGER(GLenum), PARAMETER :: GL_2_BYTES = z'1407' ! 0x1407
INTEGER(GLenum), PARAMETER :: GL_3_BYTES = z'1408' ! 0x1408
INTEGER(GLenum), PARAMETER :: GL_4_BYTES = z'1409' ! 0x1409
INTEGER(GLenum), PARAMETER :: GL_DOUBLE = z'140A' ! 0x140A
! DepthFunction values
! DrawBufferMode values
INTEGER(GLenum), PARAMETER :: GL_NONE = 0 ! 0
INTEGER(GLenum), PARAMETER :: GL_FRONT_LEFT = z'0400' ! 0x0400
INTEGER(GLenum), PARAMETER :: GL_FRONT_RIGHT = z'0401' ! 0x0401
INTEGER(GLenum), PARAMETER :: GL_BACK_LEFT = z'0402' ! 0x0402
INTEGER(GLenum), PARAMETER :: GL_BACK_RIGHT = z'0403' ! 0x0403
INTEGER(GLenum), PARAMETER :: GL_FRONT = z'0404' ! 0x0404
INTEGER(GLenum), PARAMETER :: GL_BACK = z'0405' ! 0x0405
INTEGER(GLenum), PARAMETER :: GL_LEFT = z'0406' ! 0x0406
INTEGER(GLenum), PARAMETER :: GL_RIGHT = z'0407' ! 0x0407
INTEGER(GLenum), PARAMETER :: GL_FRONT_AND_BACK = z'0408' ! 0x0408
INTEGER(GLenum), PARAMETER :: GL_AUX0 = z'0409' ! 0x0409
INTEGER(GLenum), PARAMETER :: GL_AUX1 = z'040A' ! 0x040A
INTEGER(GLenum), PARAMETER :: GL_AUX2 = z'040B' ! 0x040B
INTEGER(GLenum), PARAMETER :: GL_AUX3 = z'040C' ! 0x040C
! Enable values
! ErrorCode values
INTEGER(GLenum), PARAMETER :: GL_NO_ERROR = 0 ! 0
INTEGER(GLenum), PARAMETER :: GL_INVALID_ENUM = z'0500' ! 0x0500
INTEGER(GLenum), PARAMETER :: GL_INVALID_VALUE = z'0501' ! 0x0501
INTEGER(GLenum), PARAMETER :: GL_INVALID_OPERATION = z'0502' ! 0x0502
INTEGER(GLenum), PARAMETER :: GL_STACK_OVERFLOW = z'0503' ! 0x0503
INTEGER(GLenum), PARAMETER :: GL_STACK_UNDERFLOW = z'0504' ! 0x0504
INTEGER(GLenum), PARAMETER :: GL_OUT_OF_MEMORY = z'0505' ! 0x0505
! FeedBackMode values
INTEGER(GLenum), PARAMETER :: GL_2D = z'0600' ! 0x0600
INTEGER(GLenum), PARAMETER :: GL_3D = z'0601' ! 0x0601
INTEGER(GLenum), PARAMETER :: GL_3D_COLOR = z'0602' ! 0x0602
INTEGER(GLenum), PARAMETER :: GL_3D_COLOR_TEXTURE = z'0603' ! 0x0603
INTEGER(GLenum), PARAMETER :: GL_4D_COLOR_TEXTURE = z'0604' ! 0x0604
! FeedBackToken values
REAL(GLfloat), PARAMETER :: GL_PASS_THROUGH_TOKEN = transfer(1792,1.0) ! 0x0700
REAL(GLfloat), PARAMETER :: GL_POINT_TOKEN = transfer(1793,1.0) ! 0x0701
REAL(GLfloat), PARAMETER :: GL_LINE_TOKEN = transfer(1794,1.0) ! 0x0702
REAL(GLfloat), PARAMETER :: GL_POLYGON_TOKEN = transfer(1795,1.0) ! 0x0703
REAL(GLfloat), PARAMETER :: GL_BITMAP_TOKEN = transfer(1796,1.0) ! 0x0704
REAL(GLfloat), PARAMETER :: GL_DRAW_PIXEL_TOKEN = transfer(1797,1.0) ! 0x0705
REAL(GLfloat), PARAMETER :: GL_COPY_PIXEL_TOKEN = transfer(1798,1.0) ! 0x0706
REAL(GLfloat), PARAMETER :: GL_LINE_RESET_TOKEN = transfer(1799,1.0) ! 0x0707
! FogMode values
INTEGER(GLenum), PARAMETER :: GL_EXP = z'0800' ! 0x0800
INTEGER(GLenum), PARAMETER :: GL_EXP2 = z'0801' ! 0x0801
! FogParameter values
! FrontFaceDirection values
INTEGER(GLenum), PARAMETER :: GL_CW = z'0900' ! 0x0900
INTEGER(GLenum), PARAMETER :: GL_CCW = z'0901' ! 0x0901
! GetColorTableParameterPName values
! GetConvolutionParameterPName values
! GetHistogramParameterPName values
! GetMapTarget values
INTEGER(GLenum), PARAMETER :: GL_COEFF = z'0A00' ! 0x0A00
INTEGER(GLenum), PARAMETER :: GL_ORDER = z'0A01' ! 0x0A01
INTEGER(GLenum), PARAMETER :: GL_DOMAIN = z'0A02' ! 0x0A02
! GetMinmaxParameterPName values
! GetPixelMap values
! GetPointerTarget values
! GetTarget values
INTEGER(GLenum), PARAMETER :: GL_CURRENT_COLOR = z'0B00' ! 0x0B00
INTEGER(GLenum), PARAMETER :: GL_CURRENT_INDEX = z'0B01' ! 0x0B01
INTEGER(GLenum), PARAMETER :: GL_CURRENT_NORMAL = z'0B02' ! 0x0B02
INTEGER(GLenum), PARAMETER :: GL_CURRENT_TEXTURE_COORDS = z'0B03' ! 0x0B03
INTEGER(GLenum), PARAMETER :: GL_CURRENT_RASTER_COLOR = z'0B04' ! 0x0B04
INTEGER(GLenum), PARAMETER :: GL_CURRENT_RASTER_INDEX = z'0B05' ! 0x0B05
INTEGER(GLenum), PARAMETER :: GL_CURRENT_RASTER_TEXTURE_COORDS = z'0B06' ! 0x0B06
INTEGER(GLenum), PARAMETER :: GL_CURRENT_RASTER_POSITION = z'0B07' ! 0x0B07
INTEGER(GLenum), PARAMETER :: GL_CURRENT_RASTER_POSITION_VALID = z'0B08' ! 0x0B08
INTEGER(GLenum), PARAMETER :: GL_CURRENT_RASTER_DISTANCE = z'0B09' ! 0x0B09
INTEGER(GLenum), PARAMETER :: GL_POINT_SMOOTH = z'0B10' ! 0x0B10
INTEGER(GLenum), PARAMETER :: GL_POINT_SIZE = z'0B11' ! 0x0B11
INTEGER(GLenum), PARAMETER :: GL_POINT_SIZE_RANGE = z'0B12' ! 0x0B12
INTEGER(GLenum), PARAMETER :: GL_POINT_SIZE_GRANULARITY = z'0B13' ! 0x0B13
INTEGER(GLenum), PARAMETER :: GL_LINE_SMOOTH = z'0B20' ! 0x0B20
INTEGER(GLenum), PARAMETER :: GL_LINE_WIDTH = z'0B21' ! 0x0B21
INTEGER(GLenum), PARAMETER :: GL_LINE_WIDTH_RANGE = z'0B22' ! 0x0B22
INTEGER(GLenum), PARAMETER :: GL_LINE_WIDTH_GRANULARITY = z'0B23' ! 0x0B23
INTEGER(GLenum), PARAMETER :: GL_LINE_STIPPLE = z'0B24' ! 0x0B24
INTEGER(GLenum), PARAMETER :: GL_LINE_STIPPLE_PATTERN = z'0B25' ! 0x0B25
INTEGER(GLenum), PARAMETER :: GL_LINE_STIPPLE_REPEAT = z'0B26' ! 0x0B26
INTEGER(GLenum), PARAMETER :: GL_LIST_MODE = z'0B30' ! 0x0B30
INTEGER(GLenum), PARAMETER :: GL_MAX_LIST_NESTING = z'0B31' ! 0x0B31
INTEGER(GLenum), PARAMETER :: GL_LIST_BASE = z'0B32' ! 0x0B32
INTEGER(GLenum), PARAMETER :: GL_LIST_INDEX = z'0B33' ! 0x0B33
INTEGER(GLenum), PARAMETER :: GL_POLYGON_MODE = z'0B40' ! 0x0B40
INTEGER(GLenum), PARAMETER :: GL_POLYGON_SMOOTH = z'0B41' ! 0x0B41
INTEGER(GLenum), PARAMETER :: GL_POLYGON_STIPPLE = z'0B42' ! 0x0B42
INTEGER(GLenum), PARAMETER :: GL_EDGE_FLAG = z'0B43' ! 0x0B43
INTEGER(GLenum), PARAMETER :: GL_CULL_FACE = z'0B44' ! 0x0B44
INTEGER(GLenum), PARAMETER :: GL_CULL_FACE_MODE = z'0B45' ! 0x0B45
INTEGER(GLenum), PARAMETER :: GL_FRONT_FACE = z'0B46' ! 0x0B46
INTEGER(GLenum), PARAMETER :: GL_LIGHTING = z'0B50' ! 0x0B50
INTEGER(GLenum), PARAMETER :: GL_LIGHT_MODEL_LOCAL_VIEWER = z'0B51' ! 0x0B51
INTEGER(GLenum), PARAMETER :: GL_LIGHT_MODEL_TWO_SIDE = z'0B52' ! 0x0B52
INTEGER(GLenum), PARAMETER :: GL_LIGHT_MODEL_AMBIENT = z'0B53' ! 0x0B53
INTEGER(GLenum), PARAMETER :: GL_SHADE_MODEL = z'0B54' ! 0x0B54
INTEGER(GLenum), PARAMETER :: GL_COLOR_MATERIAL_FACE = z'0B55' ! 0x0B55
INTEGER(GLenum), PARAMETER :: GL_COLOR_MATERIAL_PARAMETER = z'0B56' ! 0x0B56
INTEGER(GLenum), PARAMETER :: GL_COLOR_MATERIAL = z'0B57' ! 0x0B57
INTEGER(GLenum), PARAMETER :: GL_FOG = z'0B60' ! 0x0B60
INTEGER(GLenum), PARAMETER :: GL_FOG_INDEX = z'0B61' ! 0x0B61
INTEGER(GLenum), PARAMETER :: GL_FOG_DENSITY = z'0B62' ! 0x0B62
INTEGER(GLenum), PARAMETER :: GL_FOG_START = z'0B63' ! 0x0B63
INTEGER(GLenum), PARAMETER :: GL_FOG_END = z'0B64' ! 0x0B64
INTEGER(GLenum), PARAMETER :: GL_FOG_MODE = z'0B65' ! 0x0B65
INTEGER(GLenum), PARAMETER :: GL_FOG_COLOR = z'0B66' ! 0x0B66
INTEGER(GLenum), PARAMETER :: GL_DEPTH_RANGE = z'0B70' ! 0x0B70
INTEGER(GLenum), PARAMETER :: GL_DEPTH_TEST = z'0B71' ! 0x0B71
INTEGER(GLenum), PARAMETER :: GL_DEPTH_WRITEMASK = z'0B72' ! 0x0B72
INTEGER(GLenum), PARAMETER :: GL_DEPTH_CLEAR_VALUE = z'0B73' ! 0x0B73
INTEGER(GLenum), PARAMETER :: GL_DEPTH_FUNC = z'0B74' ! 0x0B74
INTEGER(GLenum), PARAMETER :: GL_ACCUM_CLEAR_VALUE = z'0B80' ! 0x0B80
INTEGER(GLenum), PARAMETER :: GL_STENCIL_TEST = z'0B90' ! 0x0B90
INTEGER(GLenum), PARAMETER :: GL_STENCIL_CLEAR_VALUE = z'0B91' ! 0x0B91
INTEGER(GLenum), PARAMETER :: GL_STENCIL_FUNC = z'0B92' ! 0x0B92
INTEGER(GLenum), PARAMETER :: GL_STENCIL_VALUE_MASK = z'0B93' ! 0x0B93
INTEGER(GLenum), PARAMETER :: GL_STENCIL_FAIL = z'0B94' ! 0x0B94
INTEGER(GLenum), PARAMETER :: GL_STENCIL_PASS_DEPTH_FAIL = z'0B95' ! 0x0B95
INTEGER(GLenum), PARAMETER :: GL_STENCIL_PASS_DEPTH_PASS = z'0B96' ! 0x0B96
INTEGER(GLenum), PARAMETER :: GL_STENCIL_REF = z'0B97' ! 0x0B97
INTEGER(GLenum), PARAMETER :: GL_STENCIL_WRITEMASK = z'0B98' ! 0x0B98
INTEGER(GLenum), PARAMETER :: GL_MATRIX_MODE = z'0BA0' ! 0x0BA0
INTEGER(GLenum), PARAMETER :: GL_NORMALIZE = z'0BA1' ! 0x0BA1
INTEGER(GLenum), PARAMETER :: GL_VIEWPORT = z'0BA2' ! 0x0BA2
INTEGER(GLenum), PARAMETER :: GL_MODELVIEW_STACK_DEPTH = z'0BA3' ! 0x0BA3
INTEGER(GLenum), PARAMETER :: GL_PROJECTION_STACK_DEPTH = z'0BA4' ! 0x0BA4
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_STACK_DEPTH = z'0BA5' ! 0x0BA5
INTEGER(GLenum), PARAMETER :: GL_MODELVIEW_MATRIX = z'0BA6' ! 0x0BA6
INTEGER(GLenum), PARAMETER :: GL_PROJECTION_MATRIX = z'0BA7' ! 0x0BA7
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_MATRIX = z'0BA8' ! 0x0BA8
INTEGER(GLenum), PARAMETER :: GL_ATTRIB_STACK_DEPTH = z'0BB0' ! 0x0BB0
INTEGER(GLenum), PARAMETER :: GL_CLIENT_ATTRIB_STACK_DEPTH = z'0BB1' ! 0x0BB1
INTEGER(GLenum), PARAMETER :: GL_ALPHA_TEST = z'0BC0' ! 0x0BC0
INTEGER(GLenum), PARAMETER :: GL_ALPHA_TEST_FUNC = z'0BC1' ! 0x0BC1
INTEGER(GLenum), PARAMETER :: GL_ALPHA_TEST_REF = z'0BC2' ! 0x0BC2
INTEGER(GLenum), PARAMETER :: GL_DITHER = z'0BD0' ! 0x0BD0
INTEGER(GLenum), PARAMETER :: GL_BLEND_DST = z'0BE0' ! 0x0BE0
INTEGER(GLenum), PARAMETER :: GL_BLEND_SRC = z'0BE1' ! 0x0BE1
INTEGER(GLenum), PARAMETER :: GL_BLEND = z'0BE2' ! 0x0BE2
INTEGER(GLenum), PARAMETER :: GL_LOGIC_OP_MODE = z'0BF0' ! 0x0BF0
INTEGER(GLenum), PARAMETER :: GL_INDEX_LOGIC_OP = z'0BF1' ! 0x0BF1
INTEGER(GLenum), PARAMETER :: GL_COLOR_LOGIC_OP = z'0BF2' ! 0x0BF2
INTEGER(GLenum), PARAMETER :: GL_AUX_BUFFERS = z'0C00' ! 0x0C00
INTEGER(GLenum), PARAMETER :: GL_DRAW_BUFFER = z'0C01' ! 0x0C01
INTEGER(GLenum), PARAMETER :: GL_READ_BUFFER = z'0C02' ! 0x0C02
INTEGER(GLenum), PARAMETER :: GL_SCISSOR_BOX = z'0C10' ! 0x0C10
INTEGER(GLenum), PARAMETER :: GL_SCISSOR_TEST = z'0C11' ! 0x0C11
INTEGER(GLenum), PARAMETER :: GL_INDEX_CLEAR_VALUE = z'0C20' ! 0x0C20
INTEGER(GLenum), PARAMETER :: GL_INDEX_WRITEMASK = z'0C21' ! 0x0C21
INTEGER(GLenum), PARAMETER :: GL_COLOR_CLEAR_VALUE = z'0C22' ! 0x0C22
INTEGER(GLenum), PARAMETER :: GL_COLOR_WRITEMASK = z'0C23' ! 0x0C23
INTEGER(GLenum), PARAMETER :: GL_INDEX_MODE = z'0C30' ! 0x0C30
INTEGER(GLenum), PARAMETER :: GL_RGBA_MODE = z'0C31' ! 0x0C31
INTEGER(GLenum), PARAMETER :: GL_DOUBLEBUFFER = z'0C32' ! 0x0C32
INTEGER(GLenum), PARAMETER :: GL_STEREO = z'0C33' ! 0x0C33
INTEGER(GLenum), PARAMETER :: GL_RENDER_MODE = z'0C40' ! 0x0C40
INTEGER(GLenum), PARAMETER :: GL_PERSPECTIVE_CORRECTION_HINT = z'0C50' ! 0x0C50
INTEGER(GLenum), PARAMETER :: GL_POINT_SMOOTH_HINT = z'0C51' ! 0x0C51
INTEGER(GLenum), PARAMETER :: GL_LINE_SMOOTH_HINT = z'0C52' ! 0x0C52
INTEGER(GLenum), PARAMETER :: GL_POLYGON_SMOOTH_HINT = z'0C53' ! 0x0C53
INTEGER(GLenum), PARAMETER :: GL_FOG_HINT = z'0C54' ! 0x0C54
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_GEN_S = z'0C60' ! 0x0C60
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_GEN_T = z'0C61' ! 0x0C61
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_GEN_R = z'0C62' ! 0x0C62
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_GEN_Q = z'0C63' ! 0x0C63
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_I_TO_I = z'0C70' ! 0x0C70
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_S_TO_S = z'0C71' ! 0x0C71
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_I_TO_R = z'0C72' ! 0x0C72
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_I_TO_G = z'0C73' ! 0x0C73
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_I_TO_B = z'0C74' ! 0x0C74
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_I_TO_A = z'0C75' ! 0x0C75
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_R_TO_R = z'0C76' ! 0x0C76
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_G_TO_G = z'0C77' ! 0x0C77
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_B_TO_B = z'0C78' ! 0x0C78
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_A_TO_A = z'0C79' ! 0x0C79
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_I_TO_I_SIZE = z'0CB0' ! 0x0CB0
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_S_TO_S_SIZE = z'0CB1' ! 0x0CB1
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_I_TO_R_SIZE = z'0CB2' ! 0x0CB2
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_I_TO_G_SIZE = z'0CB3' ! 0x0CB3
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_I_TO_B_SIZE = z'0CB4' ! 0x0CB4
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_I_TO_A_SIZE = z'0CB5' ! 0x0CB5
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_R_TO_R_SIZE = z'0CB6' ! 0x0CB6
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_G_TO_G_SIZE = z'0CB7' ! 0x0CB7
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_B_TO_B_SIZE = z'0CB8' ! 0x0CB8
INTEGER(GLenum), PARAMETER :: GL_PIXEL_MAP_A_TO_A_SIZE = z'0CB9' ! 0x0CB9
INTEGER(GLenum), PARAMETER :: GL_UNPACK_SWAP_BYTES = z'0CF0' ! 0x0CF0
INTEGER(GLenum), PARAMETER :: GL_UNPACK_LSB_FIRST = z'0CF1' ! 0x0CF1
INTEGER(GLenum), PARAMETER :: GL_UNPACK_ROW_LENGTH = z'0CF2' ! 0x0CF2
INTEGER(GLenum), PARAMETER :: GL_UNPACK_SKIP_ROWS = z'0CF3' ! 0x0CF3
INTEGER(GLenum), PARAMETER :: GL_UNPACK_SKIP_PIXELS = z'0CF4' ! 0x0CF4
INTEGER(GLenum), PARAMETER :: GL_UNPACK_ALIGNMENT = z'0CF5' ! 0x0CF5
INTEGER(GLenum), PARAMETER :: GL_PACK_SWAP_BYTES = z'0D00' ! 0x0D00
INTEGER(GLenum), PARAMETER :: GL_PACK_LSB_FIRST = z'0D01' ! 0x0D01
INTEGER(GLenum), PARAMETER :: GL_PACK_ROW_LENGTH = z'0D02' ! 0x0D02
INTEGER(GLenum), PARAMETER :: GL_PACK_SKIP_ROWS = z'0D03' ! 0x0D03
INTEGER(GLenum), PARAMETER :: GL_PACK_SKIP_PIXELS = z'0D04' ! 0x0D04
INTEGER(GLenum), PARAMETER :: GL_PACK_ALIGNMENT = z'0D05' ! 0x0D05
INTEGER(GLenum), PARAMETER :: GL_MAP_COLOR = z'0D10' ! 0x0D10
INTEGER(GLenum), PARAMETER :: GL_MAP_STENCIL = z'0D11' ! 0x0D11
INTEGER(GLenum), PARAMETER :: GL_INDEX_SHIFT = z'0D12' ! 0x0D12
INTEGER(GLenum), PARAMETER :: GL_INDEX_OFFSET = z'0D13' ! 0x0D13
INTEGER(GLenum), PARAMETER :: GL_RED_SCALE = z'0D14' ! 0x0D14
INTEGER(GLenum), PARAMETER :: GL_RED_BIAS = z'0D15' ! 0x0D15
INTEGER(GLenum), PARAMETER :: GL_ZOOM_X = z'0D16' ! 0x0D16
INTEGER(GLenum), PARAMETER :: GL_ZOOM_Y = z'0D17' ! 0x0D17
INTEGER(GLenum), PARAMETER :: GL_GREEN_SCALE = z'0D18' ! 0x0D18
INTEGER(GLenum), PARAMETER :: GL_GREEN_BIAS = z'0D19' ! 0x0D19
INTEGER(GLenum), PARAMETER :: GL_BLUE_SCALE = z'0D1A' ! 0x0D1A
INTEGER(GLenum), PARAMETER :: GL_BLUE_BIAS = z'0D1B' ! 0x0D1B
INTEGER(GLenum), PARAMETER :: GL_ALPHA_SCALE = z'0D1C' ! 0x0D1C
INTEGER(GLenum), PARAMETER :: GL_ALPHA_BIAS = z'0D1D' ! 0x0D1D
INTEGER(GLenum), PARAMETER :: GL_DEPTH_SCALE = z'0D1E' ! 0x0D1E
INTEGER(GLenum), PARAMETER :: GL_DEPTH_BIAS = z'0D1F' ! 0x0D1F
INTEGER(GLenum), PARAMETER :: GL_MAX_EVAL_ORDER = z'0D30' ! 0x0D30
INTEGER(GLenum), PARAMETER :: GL_MAX_LIGHTS = z'0D31' ! 0x0D31
INTEGER(GLenum), PARAMETER :: GL_MAX_CLIP_PLANES = z'0D32' ! 0x0D32
INTEGER(GLenum), PARAMETER :: GL_MAX_TEXTURE_SIZE = z'0D33' ! 0x0D33
INTEGER(GLenum), PARAMETER :: GL_MAX_PIXEL_MAP_TABLE = z'0D34' ! 0x0D34
INTEGER(GLenum), PARAMETER :: GL_MAX_ATTRIB_STACK_DEPTH = z'0D35' ! 0x0D35
INTEGER(GLenum), PARAMETER :: GL_MAX_MODELVIEW_STACK_DEPTH = z'0D36' ! 0x0D36
INTEGER(GLenum), PARAMETER :: GL_MAX_NAME_STACK_DEPTH = z'0D37' ! 0x0D37
INTEGER(GLenum), PARAMETER :: GL_MAX_PROJECTION_STACK_DEPTH = z'0D38' ! 0x0D38
INTEGER(GLenum), PARAMETER :: GL_MAX_TEXTURE_STACK_DEPTH = z'0D39' ! 0x0D39
INTEGER(GLenum), PARAMETER :: GL_MAX_VIEWPORT_DIMS = z'0D3A' ! 0x0D3A
INTEGER(GLenum), PARAMETER :: GL_MAX_CLIENT_ATTRIB_STACK_DEPTH = z'0D3B' ! 0x0D3B
INTEGER(GLenum), PARAMETER :: GL_SUBPIXEL_BITS = z'0D50' ! 0x0D50
INTEGER(GLenum), PARAMETER :: GL_INDEX_BITS = z'0D51' ! 0x0D51
INTEGER(GLenum), PARAMETER :: GL_RED_BITS = z'0D52' ! 0x0D52
INTEGER(GLenum), PARAMETER :: GL_GREEN_BITS = z'0D53' ! 0x0D53
INTEGER(GLenum), PARAMETER :: GL_BLUE_BITS = z'0D54' ! 0x0D54
INTEGER(GLenum), PARAMETER :: GL_ALPHA_BITS = z'0D55' ! 0x0D55
INTEGER(GLenum), PARAMETER :: GL_DEPTH_BITS = z'0D56' ! 0x0D56
INTEGER(GLenum), PARAMETER :: GL_STENCIL_BITS = z'0D57' ! 0x0D57
INTEGER(GLenum), PARAMETER :: GL_ACCUM_RED_BITS = z'0D58' ! 0x0D58
INTEGER(GLenum), PARAMETER :: GL_ACCUM_GREEN_BITS = z'0D59' ! 0x0D59
INTEGER(GLenum), PARAMETER :: GL_ACCUM_BLUE_BITS = z'0D5A' ! 0x0D5A
INTEGER(GLenum), PARAMETER :: GL_ACCUM_ALPHA_BITS = z'0D5B' ! 0x0D5B
INTEGER(GLenum), PARAMETER :: GL_NAME_STACK_DEPTH = z'0D70' ! 0x0D70
INTEGER(GLenum), PARAMETER :: GL_AUTO_NORMAL = z'0D80' ! 0x0D80
INTEGER(GLenum), PARAMETER :: GL_MAP1_COLOR_4 = z'0D90' ! 0x0D90
INTEGER(GLenum), PARAMETER :: GL_MAP1_INDEX = z'0D91' ! 0x0D91
INTEGER(GLenum), PARAMETER :: GL_MAP1_NORMAL = z'0D92' ! 0x0D92
INTEGER(GLenum), PARAMETER :: GL_MAP1_TEXTURE_COORD_1 = z'0D93' ! 0x0D93
INTEGER(GLenum), PARAMETER :: GL_MAP1_TEXTURE_COORD_2 = z'0D94' ! 0x0D94
INTEGER(GLenum), PARAMETER :: GL_MAP1_TEXTURE_COORD_3 = z'0D95' ! 0x0D95
INTEGER(GLenum), PARAMETER :: GL_MAP1_TEXTURE_COORD_4 = z'0D96' ! 0x0D96
INTEGER(GLenum), PARAMETER :: GL_MAP1_VERTEX_3 = z'0D97' ! 0x0D97
INTEGER(GLenum), PARAMETER :: GL_MAP1_VERTEX_4 = z'0D98' ! 0x0D98
INTEGER(GLenum), PARAMETER :: GL_MAP2_COLOR_4 = z'0DB0' ! 0x0DB0
INTEGER(GLenum), PARAMETER :: GL_MAP2_INDEX = z'0DB1' ! 0x0DB1
INTEGER(GLenum), PARAMETER :: GL_MAP2_NORMAL = z'0DB2' ! 0x0DB2
INTEGER(GLenum), PARAMETER :: GL_MAP2_TEXTURE_COORD_1 = z'0DB3' ! 0x0DB3
INTEGER(GLenum), PARAMETER :: GL_MAP2_TEXTURE_COORD_2 = z'0DB4' ! 0x0DB4
INTEGER(GLenum), PARAMETER :: GL_MAP2_TEXTURE_COORD_3 = z'0DB5' ! 0x0DB5
INTEGER(GLenum), PARAMETER :: GL_MAP2_TEXTURE_COORD_4 = z'0DB6' ! 0x0DB6
INTEGER(GLenum), PARAMETER :: GL_MAP2_VERTEX_3 = z'0DB7' ! 0x0DB7
INTEGER(GLenum), PARAMETER :: GL_MAP2_VERTEX_4 = z'0DB8' ! 0x0DB8
INTEGER(GLenum), PARAMETER :: GL_MAP1_GRID_DOMAIN = z'0DD0' ! 0x0DD0
INTEGER(GLenum), PARAMETER :: GL_MAP1_GRID_SEGMENTS = z'0DD1' ! 0x0DD1
INTEGER(GLenum), PARAMETER :: GL_MAP2_GRID_DOMAIN = z'0DD2' ! 0x0DD2
INTEGER(GLenum), PARAMETER :: GL_MAP2_GRID_SEGMENTS = z'0DD3' ! 0x0DD3
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_1D = z'0DE0' ! 0x0DE0
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_2D = z'0DE1' ! 0x0DE1
INTEGER(GLenum), PARAMETER :: GL_FEEDBACK_BUFFER_POINTER = z'0DF0' ! 0x0DF0
INTEGER(GLenum), PARAMETER :: GL_FEEDBACK_BUFFER_SIZE = z'0DF1' ! 0x0DF1
INTEGER(GLenum), PARAMETER :: GL_FEEDBACK_BUFFER_TYPE = z'0DF2' ! 0x0DF2
INTEGER(GLenum), PARAMETER :: GL_SELECTION_BUFFER_POINTER = z'0DF3' ! 0x0DF3
INTEGER(GLenum), PARAMETER :: GL_SELECTION_BUFFER_SIZE = z'0DF4' ! 0x0DF4
! GetTextureParameter values
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_WIDTH = z'1000' ! 0x1000
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_HEIGHT = z'1001' ! 0x1001
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_INTERNAL_FORMAT = z'1003' ! 0x1003
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_BORDER_COLOR = z'1004' ! 0x1004
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_BORDER = z'1005' ! 0x1005
! HintMode values
INTEGER(GLenum), PARAMETER :: GL_DONT_CARE = z'1100' ! 0x1100
INTEGER(GLenum), PARAMETER :: GL_FASTEST = z'1101' ! 0x1101
INTEGER(GLenum), PARAMETER :: GL_NICEST = z'1102' ! 0x1102
! HintTarget values
! HistogramTarget values
! IndexPointerType values
! LightModelColorControl values
! LightModelParameter values
! LightName values
INTEGER(GLenum), PARAMETER :: GL_LIGHT0 = z'4000' ! 0x4000
INTEGER(GLenum), PARAMETER :: GL_LIGHT1 = z'4001' ! 0x4001
INTEGER(GLenum), PARAMETER :: GL_LIGHT2 = z'4002' ! 0x4002
INTEGER(GLenum), PARAMETER :: GL_LIGHT3 = z'4003' ! 0x4003
INTEGER(GLenum), PARAMETER :: GL_LIGHT4 = z'4004' ! 0x4004
INTEGER(GLenum), PARAMETER :: GL_LIGHT5 = z'4005' ! 0x4005
INTEGER(GLenum), PARAMETER :: GL_LIGHT6 = z'4006' ! 0x4006
INTEGER(GLenum), PARAMETER :: GL_LIGHT7 = z'4007' ! 0x4007
! LightParameter values
INTEGER(GLenum), PARAMETER :: GL_AMBIENT = z'1200' ! 0x1200
INTEGER(GLenum), PARAMETER :: GL_DIFFUSE = z'1201' ! 0x1201
INTEGER(GLenum), PARAMETER :: GL_SPECULAR = z'1202' ! 0x1202
INTEGER(GLenum), PARAMETER :: GL_POSITION = z'1203' ! 0x1203
INTEGER(GLenum), PARAMETER :: GL_SPOT_DIRECTION = z'1204' ! 0x1204
INTEGER(GLenum), PARAMETER :: GL_SPOT_EXPONENT = z'1205' ! 0x1205
INTEGER(GLenum), PARAMETER :: GL_SPOT_CUTOFF = z'1206' ! 0x1206
INTEGER(GLenum), PARAMETER :: GL_CONSTANT_ATTENUATION = z'1207' ! 0x1207
INTEGER(GLenum), PARAMETER :: GL_LINEAR_ATTENUATION = z'1208' ! 0x1208
INTEGER(GLenum), PARAMETER :: GL_QUADRATIC_ATTENUATION = z'1209' ! 0x1209
! InterleavedArrays values
! ListMode values
INTEGER(GLenum), PARAMETER :: GL_COMPILE = z'1300' ! 0x1300
INTEGER(GLenum), PARAMETER :: GL_COMPILE_AND_EXECUTE = z'1301' ! 0x1301
! ListNameType values
! LogicOp values
INTEGER(GLenum), PARAMETER :: GL_CLEAR = z'1500' ! 0x1500
INTEGER(GLenum), PARAMETER :: GL_AND = z'1501' ! 0x1501
INTEGER(GLenum), PARAMETER :: GL_AND_REVERSE = z'1502' ! 0x1502
INTEGER(GLenum), PARAMETER :: GL_COPY = z'1503' ! 0x1503
INTEGER(GLenum), PARAMETER :: GL_AND_INVERTED = z'1504' ! 0x1504
INTEGER(GLenum), PARAMETER :: GL_NOOP = z'1505' ! 0x1505
INTEGER(GLenum), PARAMETER :: GL_XOR = z'1506' ! 0x1506
INTEGER(GLenum), PARAMETER :: GL_OR = z'1507' ! 0x1507
INTEGER(GLenum), PARAMETER :: GL_NOR = z'1508' ! 0x1508
INTEGER(GLenum), PARAMETER :: GL_EQUIV = z'1509' ! 0x1509
INTEGER(GLenum), PARAMETER :: GL_INVERT = z'150A' ! 0x150A
INTEGER(GLenum), PARAMETER :: GL_OR_REVERSE = z'150B' ! 0x150B
INTEGER(GLenum), PARAMETER :: GL_COPY_INVERTED = z'150C' ! 0x150C
INTEGER(GLenum), PARAMETER :: GL_OR_INVERTED = z'150D' ! 0x150D
INTEGER(GLenum), PARAMETER :: GL_NAND = z'150E' ! 0x150E
INTEGER(GLenum), PARAMETER :: GL_SET = z'150F' ! 0x150F
! MapTarget values
! MaterialFace values
! MaterialParameter values
INTEGER(GLenum), PARAMETER :: GL_EMISSION = z'1600' ! 0x1600
INTEGER(GLenum), PARAMETER :: GL_SHININESS = z'1601' ! 0x1601
INTEGER(GLenum), PARAMETER :: GL_AMBIENT_AND_DIFFUSE = z'1602' ! 0x1602
INTEGER(GLenum), PARAMETER :: GL_COLOR_INDEXES = z'1603' ! 0x1603
! MatrixMode values
INTEGER(GLenum), PARAMETER :: GL_MODELVIEW = z'1700' ! 0x1700
INTEGER(GLenum), PARAMETER :: GL_PROJECTION = z'1701' ! 0x1701
INTEGER(GLenum), PARAMETER :: GL_TEXTURE = z'1702' ! 0x1702
! MeshMode1 values
! MeshMode2 values
! MinmaxTarget values
! NormalPointerType values
! PixelCopyType values
INTEGER(GLenum), PARAMETER :: GL_COLOR = z'1800' ! 0x1800
INTEGER(GLenum), PARAMETER :: GL_DEPTH = z'1801' ! 0x1801
INTEGER(GLenum), PARAMETER :: GL_STENCIL = z'1802' ! 0x1802
! PixelFormat values
INTEGER(GLenum), PARAMETER :: GL_COLOR_INDEX = z'1900' ! 0x1900
INTEGER(GLenum), PARAMETER :: GL_STENCIL_INDEX = z'1901' ! 0x1901
INTEGER(GLenum), PARAMETER :: GL_DEPTH_COMPONENT = z'1902' ! 0x1902
INTEGER(GLenum), PARAMETER :: GL_RED = z'1903' ! 0x1903
INTEGER(GLenum), PARAMETER :: GL_GREEN = z'1904' ! 0x1904
INTEGER(GLenum), PARAMETER :: GL_BLUE = z'1905' ! 0x1905
INTEGER(GLenum), PARAMETER :: GL_ALPHA = z'1906' ! 0x1906
INTEGER(GLenum), PARAMETER :: GL_RGB = z'1907' ! 0x1907
INTEGER(GLenum), PARAMETER :: GL_RGBA = z'1908' ! 0x1908
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE = z'1909' ! 0x1909
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE_ALPHA = z'190A' ! 0x190A
! PixelInternalFormat values
! PixelMap values
! PixelStore values
! PixelTransfer values
! PixelType values
INTEGER(GLenum), PARAMETER :: GL_BITMAP = z'1A00' ! 0x1A00
! PolygonMode values
INTEGER(GLenum), PARAMETER :: GL_POINT = z'1B00' ! 0x1B00
INTEGER(GLenum), PARAMETER :: GL_LINE = z'1B01' ! 0x1B01
INTEGER(GLenum), PARAMETER :: GL_FILL = z'1B02' ! 0x1B02
! ReadBufferMode values
! RenderingMode values
INTEGER(GLenum), PARAMETER :: GL_RENDER = z'1C00' ! 0x1C00
INTEGER(GLenum), PARAMETER :: GL_FEEDBACK = z'1C01' ! 0x1C01
INTEGER(GLenum), PARAMETER :: GL_SELECT = z'1C02' ! 0x1C02
! SeparableTarget values
! ShadingModel values
INTEGER(GLenum), PARAMETER :: GL_FLAT = z'1D00' ! 0x1D00
INTEGER(GLenum), PARAMETER :: GL_SMOOTH = z'1D01' ! 0x1D01
! StencilFunction values
! StencilOp values
INTEGER(GLenum), PARAMETER :: GL_KEEP = z'1E00' ! 0x1E00
INTEGER(GLenum), PARAMETER :: GL_REPLACE = z'1E01' ! 0x1E01
INTEGER(GLenum), PARAMETER :: GL_INCR = z'1E02' ! 0x1E02
INTEGER(GLenum), PARAMETER :: GL_DECR = z'1E03' ! 0x1E03
! StringName values
INTEGER(GLenum), PARAMETER :: GL_VENDOR = z'1F00' ! 0x1F00
INTEGER(GLenum), PARAMETER :: GL_RENDERER = z'1F01' ! 0x1F01
INTEGER(GLenum), PARAMETER :: GL_VERSION = z'1F02' ! 0x1F02
INTEGER(GLenum), PARAMETER :: GL_EXTENSIONS = z'1F03' ! 0x1F03
! TextureCoordName values
INTEGER(GLenum), PARAMETER :: GL_S = z'2000' ! 0x2000
INTEGER(GLenum), PARAMETER :: GL_T = z'2001' ! 0x2001
INTEGER(GLenum), PARAMETER :: GL_R = z'2002' ! 0x2002
INTEGER(GLenum), PARAMETER :: GL_Q = z'2003' ! 0x2003
! TexCoordPointerType values
! TextureEnvMode values
INTEGER(GLenum), PARAMETER :: GL_MODULATE = z'2100' ! 0x2100
INTEGER(GLenum), PARAMETER :: GL_DECAL = z'2101' ! 0x2101
! TextureEnvParameter values
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_ENV_MODE = z'2200' ! 0x2200
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_ENV_COLOR = z'2201' ! 0x2201
! TextureEnvTarget values
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_ENV = z'2300' ! 0x2300
! TextureGenMode values
INTEGER(GLenum), PARAMETER :: GL_EYE_LINEAR = z'2400' ! 0x2400
INTEGER(GLenum), PARAMETER :: GL_OBJECT_LINEAR = z'2401' ! 0x2401
INTEGER(GLenum), PARAMETER :: GL_SPHERE_MAP = z'2402' ! 0x2402
! TextureGenParameter values
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_GEN_MODE = z'2500' ! 0x2500
INTEGER(GLenum), PARAMETER :: GL_OBJECT_PLANE = z'2501' ! 0x2501
INTEGER(GLenum), PARAMETER :: GL_EYE_PLANE = z'2502' ! 0x2502
! TextureMagFilter values
INTEGER(GLenum), PARAMETER :: GL_NEAREST = z'2600' ! 0x2600
INTEGER(GLenum), PARAMETER :: GL_LINEAR = z'2601' ! 0x2601
! TextureMinFilter values
INTEGER(GLenum), PARAMETER :: GL_NEAREST_MIPMAP_NEAREST = z'2700' ! 0x2700
INTEGER(GLenum), PARAMETER :: GL_LINEAR_MIPMAP_NEAREST = z'2701' ! 0x2701
INTEGER(GLenum), PARAMETER :: GL_NEAREST_MIPMAP_LINEAR = z'2702' ! 0x2702
INTEGER(GLenum), PARAMETER :: GL_LINEAR_MIPMAP_LINEAR = z'2703' ! 0x2703
! TextureParameterName values
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_MAG_FILTER = z'2800' ! 0x2800
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_MIN_FILTER = z'2801' ! 0x2801
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_WRAP_S = z'2802' ! 0x2802
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_WRAP_T = z'2803' ! 0x2803
! TextureTarget values
! TextureUnit values
! TextureWrapMode values
INTEGER(GLenum), PARAMETER :: GL_CLAMP = z'2900' ! 0x2900
INTEGER(GLenum), PARAMETER :: GL_REPEAT = z'2901' ! 0x2901
! VertexPointerType values
! ClientAttribMask values
INTEGER(GLbitfield), PARAMETER :: GL_CLIENT_PIXEL_STORE_BIT = z'00000001' ! 0x00000001
INTEGER(GLbitfield), PARAMETER :: GL_CLIENT_VERTEX_ARRAY_BIT = z'00000002' ! 0x00000002
INTEGER(C_INT), PARAMETER :: tmp_all_1 = z'ffffffff'
INTEGER(GLbitfield), PARAMETER :: GL_CLIENT_ALL_ATTRIB_BITS = &
TRANSFER(tmp_all_1,GL_CURRENT_BIT) ! 0xffffffff
! polygon_offset values
INTEGER(GLenum), PARAMETER :: GL_POLYGON_OFFSET_FACTOR = z'8038' ! 0x8038
INTEGER(GLenum), PARAMETER :: GL_POLYGON_OFFSET_UNITS = z'2A00' ! 0x2A00
INTEGER(GLenum), PARAMETER :: GL_POLYGON_OFFSET_POINT = z'2A01' ! 0x2A01
INTEGER(GLenum), PARAMETER :: GL_POLYGON_OFFSET_LINE = z'2A02' ! 0x2A02
INTEGER(GLenum), PARAMETER :: GL_POLYGON_OFFSET_FILL = z'8037' ! 0x8037
! texture values
INTEGER(GLenum), PARAMETER :: GL_ALPHA4 = z'803B' ! 0x803B
INTEGER(GLenum), PARAMETER :: GL_ALPHA8 = z'803C' ! 0x803C
INTEGER(GLenum), PARAMETER :: GL_ALPHA12 = z'803D' ! 0x803D
INTEGER(GLenum), PARAMETER :: GL_ALPHA16 = z'803E' ! 0x803E
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE4 = z'803F' ! 0x803F
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE8 = z'8040' ! 0x8040
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE12 = z'8041' ! 0x8041
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE16 = z'8042' ! 0x8042
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE4_ALPHA4 = z'8043' ! 0x8043
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE6_ALPHA2 = z'8044' ! 0x8044
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE8_ALPHA8 = z'8045' ! 0x8045
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE12_ALPHA4 = z'8046' ! 0x8046
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE12_ALPHA12 = z'8047' ! 0x8047
INTEGER(GLenum), PARAMETER :: GL_LUMINANCE16_ALPHA16 = z'8048' ! 0x8048
INTEGER(GLenum), PARAMETER :: GL_INTENSITY = z'8049' ! 0x8049
INTEGER(GLenum), PARAMETER :: GL_INTENSITY4 = z'804A' ! 0x804A
INTEGER(GLenum), PARAMETER :: GL_INTENSITY8 = z'804B' ! 0x804B
INTEGER(GLenum), PARAMETER :: GL_INTENSITY12 = z'804C' ! 0x804C
INTEGER(GLenum), PARAMETER :: GL_INTENSITY16 = z'804D' ! 0x804D
INTEGER(GLenum), PARAMETER :: GL_R3_G3_B2 = z'2A10' ! 0x2A10
INTEGER(GLenum), PARAMETER :: GL_RGB4 = z'804F' ! 0x804F
INTEGER(GLenum), PARAMETER :: GL_RGB5 = z'8050' ! 0x8050
INTEGER(GLenum), PARAMETER :: GL_RGB8 = z'8051' ! 0x8051
INTEGER(GLenum), PARAMETER :: GL_RGB10 = z'8052' ! 0x8052
INTEGER(GLenum), PARAMETER :: GL_RGB12 = z'8053' ! 0x8053
INTEGER(GLenum), PARAMETER :: GL_RGB16 = z'8054' ! 0x8054
INTEGER(GLenum), PARAMETER :: GL_RGBA2 = z'8055' ! 0x8055
INTEGER(GLenum), PARAMETER :: GL_RGBA4 = z'8056' ! 0x8056
INTEGER(GLenum), PARAMETER :: GL_RGB5_A1 = z'8057' ! 0x8057
INTEGER(GLenum), PARAMETER :: GL_RGBA8 = z'8058' ! 0x8058
INTEGER(GLenum), PARAMETER :: GL_RGB10_A2 = z'8059' ! 0x8059
INTEGER(GLenum), PARAMETER :: GL_RGBA12 = z'805A' ! 0x805A
INTEGER(GLenum), PARAMETER :: GL_RGBA16 = z'805B' ! 0x805B
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_RED_SIZE = z'805C' ! 0x805C
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_GREEN_SIZE = z'805D' ! 0x805D
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_BLUE_SIZE = z'805E' ! 0x805E
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_ALPHA_SIZE = z'805F' ! 0x805F
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_LUMINANCE_SIZE = z'8060' ! 0x8060
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_INTENSITY_SIZE = z'8061' ! 0x8061
INTEGER(GLenum), PARAMETER :: GL_PROXY_TEXTURE_1D = z'8063' ! 0x8063
INTEGER(GLenum), PARAMETER :: GL_PROXY_TEXTURE_2D = z'8064' ! 0x8064
! texture_object values
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_PRIORITY = z'8066' ! 0x8066
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_RESIDENT = z'8067' ! 0x8067
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_BINDING_1D = z'8068' ! 0x8068
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_BINDING_2D = z'8069' ! 0x8069
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_BINDING_3D = z'806A' ! 0x806A
! vertex_array values
INTEGER(GLenum), PARAMETER :: GL_VERTEX_ARRAY = z'8074' ! 0x8074
INTEGER(GLenum), PARAMETER :: GL_NORMAL_ARRAY = z'8075' ! 0x8075
INTEGER(GLenum), PARAMETER :: GL_COLOR_ARRAY = z'8076' ! 0x8076
INTEGER(GLenum), PARAMETER :: GL_INDEX_ARRAY = z'8077' ! 0x8077
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_COORD_ARRAY = z'8078' ! 0x8078
INTEGER(GLenum), PARAMETER :: GL_EDGE_FLAG_ARRAY = z'8079' ! 0x8079
INTEGER(GLenum), PARAMETER :: GL_VERTEX_ARRAY_SIZE = z'807A' ! 0x807A
INTEGER(GLenum), PARAMETER :: GL_VERTEX_ARRAY_TYPE = z'807B' ! 0x807B
INTEGER(GLenum), PARAMETER :: GL_VERTEX_ARRAY_STRIDE = z'807C' ! 0x807C
INTEGER(GLenum), PARAMETER :: GL_NORMAL_ARRAY_TYPE = z'807E' ! 0x807E
INTEGER(GLenum), PARAMETER :: GL_NORMAL_ARRAY_STRIDE = z'807F' ! 0x807F
INTEGER(GLenum), PARAMETER :: GL_COLOR_ARRAY_SIZE = z'8081' ! 0x8081
INTEGER(GLenum), PARAMETER :: GL_COLOR_ARRAY_TYPE = z'8082' ! 0x8082
INTEGER(GLenum), PARAMETER :: GL_COLOR_ARRAY_STRIDE = z'8083' ! 0x8083
INTEGER(GLenum), PARAMETER :: GL_INDEX_ARRAY_TYPE = z'8085' ! 0x8085
INTEGER(GLenum), PARAMETER :: GL_INDEX_ARRAY_STRIDE = z'8086' ! 0x8086
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_COORD_ARRAY_SIZE = z'8088' ! 0x8088
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_COORD_ARRAY_TYPE = z'8089' ! 0x8089
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_COORD_ARRAY_STRIDE = z'808A' ! 0x808A
INTEGER(GLenum), PARAMETER :: GL_EDGE_FLAG_ARRAY_STRIDE = z'808C' ! 0x808C
INTEGER(GLenum), PARAMETER :: GL_VERTEX_ARRAY_POINTER = z'808E' ! 0x808E
INTEGER(GLenum), PARAMETER :: GL_NORMAL_ARRAY_POINTER = z'808F' ! 0x808F
INTEGER(GLenum), PARAMETER :: GL_COLOR_ARRAY_POINTER = z'8090' ! 0x8090
INTEGER(GLenum), PARAMETER :: GL_INDEX_ARRAY_POINTER = z'8091' ! 0x8091
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_COORD_ARRAY_POINTER = z'8092' ! 0x8092
INTEGER(GLenum), PARAMETER :: GL_EDGE_FLAG_ARRAY_POINTER = z'8093' ! 0x8093
INTEGER(GLenum), PARAMETER :: GL_V2F = z'2A20' ! 0x2A20
INTEGER(GLenum), PARAMETER :: GL_V3F = z'2A21' ! 0x2A21
INTEGER(GLenum), PARAMETER :: GL_C4UB_V2F = z'2A22' ! 0x2A22
INTEGER(GLenum), PARAMETER :: GL_C4UB_V3F = z'2A23' ! 0x2A23
INTEGER(GLenum), PARAMETER :: GL_C3F_V3F = z'2A24' ! 0x2A24
INTEGER(GLenum), PARAMETER :: GL_N3F_V3F = z'2A25' ! 0x2A25
INTEGER(GLenum), PARAMETER :: GL_C4F_N3F_V3F = z'2A26' ! 0x2A26
INTEGER(GLenum), PARAMETER :: GL_T2F_V3F = z'2A27' ! 0x2A27
INTEGER(GLenum), PARAMETER :: GL_T4F_V4F = z'2A28' ! 0x2A28
INTEGER(GLenum), PARAMETER :: GL_T2F_C4UB_V3F = z'2A29' ! 0x2A29
INTEGER(GLenum), PARAMETER :: GL_T2F_C3F_V3F = z'2A2A' ! 0x2A2A
INTEGER(GLenum), PARAMETER :: GL_T2F_N3F_V3F = z'2A2B' ! 0x2A2B
INTEGER(GLenum), PARAMETER :: GL_T2F_C4F_N3F_V3F = z'2A2C' ! 0x2A2C
INTEGER(GLenum), PARAMETER :: GL_T4F_C4F_N3F_V4F = z'2A2D' ! 0x2A2D
! bgra values
INTEGER(GLenum), PARAMETER :: GL_BGR = z'80E0' ! 0x80E0
INTEGER(GLenum), PARAMETER :: GL_BGRA = z'80E1' ! 0x80E1
! blend_color values
INTEGER(GLenum), PARAMETER :: GL_CONSTANT_COLOR = z'8001' ! 0x8001
INTEGER(GLenum), PARAMETER :: GL_ONE_MINUS_CONSTANT_COLOR = z'8002' ! 0x8002
INTEGER(GLenum), PARAMETER :: GL_CONSTANT_ALPHA = z'8003' ! 0x8003
INTEGER(GLenum), PARAMETER :: GL_ONE_MINUS_CONSTANT_ALPHA = z'8004' ! 0x8004
INTEGER(GLenum), PARAMETER :: GL_BLEND_COLOR = z'8005' ! 0x8005
! blend_minmax values
INTEGER(GLenum), PARAMETER :: GL_FUNC_ADD = z'8006' ! 0x8006
INTEGER(GLenum), PARAMETER :: GL_MIN = z'8007' ! 0x8007
INTEGER(GLenum), PARAMETER :: GL_MAX = z'8008' ! 0x8008
INTEGER(GLenum), PARAMETER :: GL_BLEND_EQUATION = z'8009' ! 0x8009
! blend_subtract values
INTEGER(GLenum), PARAMETER :: GL_FUNC_SUBTRACT = z'800A' ! 0x800A
INTEGER(GLenum), PARAMETER :: GL_FUNC_REVERSE_SUBTRACT = z'800B' ! 0x800B
! color_matrix values
INTEGER(GLenum), PARAMETER :: GL_COLOR_MATRIX = z'80B1' ! 0x80B1
INTEGER(GLenum), PARAMETER :: GL_COLOR_MATRIX_STACK_DEPTH = z'80B2' ! 0x80B2
INTEGER(GLenum), PARAMETER :: GL_MAX_COLOR_MATRIX_STACK_DEPTH = z'80B3' ! 0x80B3
INTEGER(GLenum), PARAMETER :: GL_POST_COLOR_MATRIX_RED_SCALE = z'80B4' ! 0x80B4
INTEGER(GLenum), PARAMETER :: GL_POST_COLOR_MATRIX_GREEN_SCALE = z'80B5' ! 0x80B5
INTEGER(GLenum), PARAMETER :: GL_POST_COLOR_MATRIX_BLUE_SCALE = z'80B6' ! 0x80B6
INTEGER(GLenum), PARAMETER :: GL_POST_COLOR_MATRIX_ALPHA_SCALE = z'80B7' ! 0x80B7
INTEGER(GLenum), PARAMETER :: GL_POST_COLOR_MATRIX_RED_BIAS = z'80B8' ! 0x80B8
INTEGER(GLenum), PARAMETER :: GL_POST_COLOR_MATRIX_GREEN_BIAS = z'80B9' ! 0x80B9
INTEGER(GLenum), PARAMETER :: GL_POST_COLOR_MATRIX_BLUE_BIAS = z'80BA' ! 0x80BA
INTEGER(GLenum), PARAMETER :: GL_POST_COLOR_MATRIX_ALPHA_BIAS = z'80BB' ! 0x80BB
! color_table values
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE = z'80D0' ! 0x80D0
INTEGER(GLenum), PARAMETER :: GL_POST_CONVOLUTION_COLOR_TABLE = z'80D1' ! 0x80D1
INTEGER(GLenum), PARAMETER :: GL_POST_COLOR_MATRIX_COLOR_TABLE = z'80D2' ! 0x80D2
INTEGER(GLenum), PARAMETER :: GL_PROXY_COLOR_TABLE = z'80D3' ! 0x80D3
INTEGER(GLenum), PARAMETER :: GL_PROXY_POST_CONVOLUTION_COLOR_TABLE = z'80D4' ! 0x80D4
INTEGER(GLenum), PARAMETER :: GL_PROXY_POST_COLOR_MATRIX_COLOR_TABLE = z'80D5' ! 0x80D5
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE_SCALE = z'80D6' ! 0x80D6
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE_BIAS = z'80D7' ! 0x80D7
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE_FORMAT = z'80D8' ! 0x80D8
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE_WIDTH = z'80D9' ! 0x80D9
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE_RED_SIZE = z'80DA' ! 0x80DA
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE_GREEN_SIZE = z'80DB' ! 0x80DB
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE_BLUE_SIZE = z'80DC' ! 0x80DC
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE_ALPHA_SIZE = z'80DD' ! 0x80DD
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE_LUMINANCE_SIZE = z'80DE' ! 0x80DE
INTEGER(GLenum), PARAMETER :: GL_COLOR_TABLE_INTENSITY_SIZE = z'80DF' ! 0x80DF
! convolution values
INTEGER(GLenum), PARAMETER :: GL_CONVOLUTION_1D = z'8010' ! 0x8010
INTEGER(GLenum), PARAMETER :: GL_CONVOLUTION_2D = z'8011' ! 0x8011
INTEGER(GLenum), PARAMETER :: GL_SEPARABLE_2D = z'8012' ! 0x8012
INTEGER(GLenum), PARAMETER :: GL_CONVOLUTION_BORDER_MODE = z'8013' ! 0x8013
INTEGER(GLenum), PARAMETER :: GL_CONVOLUTION_FILTER_SCALE = z'8014' ! 0x8014
INTEGER(GLenum), PARAMETER :: GL_CONVOLUTION_FILTER_BIAS = z'8015' ! 0x8015
INTEGER(GLenum), PARAMETER :: GL_REDUCE = z'8016' ! 0x8016
INTEGER(GLenum), PARAMETER :: GL_CONVOLUTION_FORMAT = z'8017' ! 0x8017
INTEGER(GLenum), PARAMETER :: GL_CONVOLUTION_WIDTH = z'8018' ! 0x8018
INTEGER(GLenum), PARAMETER :: GL_CONVOLUTION_HEIGHT = z'8019' ! 0x8019
INTEGER(GLenum), PARAMETER :: GL_MAX_CONVOLUTION_WIDTH = z'801A' ! 0x801A
INTEGER(GLenum), PARAMETER :: GL_MAX_CONVOLUTION_HEIGHT = z'801B' ! 0x801B
INTEGER(GLenum), PARAMETER :: GL_POST_CONVOLUTION_RED_SCALE = z'801C' ! 0x801C
INTEGER(GLenum), PARAMETER :: GL_POST_CONVOLUTION_GREEN_SCALE = z'801D' ! 0x801D
INTEGER(GLenum), PARAMETER :: GL_POST_CONVOLUTION_BLUE_SCALE = z'801E' ! 0x801E
INTEGER(GLenum), PARAMETER :: GL_POST_CONVOLUTION_ALPHA_SCALE = z'801F' ! 0x801F
INTEGER(GLenum), PARAMETER :: GL_POST_CONVOLUTION_RED_BIAS = z'8020' ! 0x8020
INTEGER(GLenum), PARAMETER :: GL_POST_CONVOLUTION_GREEN_BIAS = z'8021' ! 0x8021
INTEGER(GLenum), PARAMETER :: GL_POST_CONVOLUTION_BLUE_BIAS = z'8022' ! 0x8022
INTEGER(GLenum), PARAMETER :: GL_POST_CONVOLUTION_ALPHA_BIAS = z'8023' ! 0x8023
INTEGER(GLenum), PARAMETER :: GL_CONSTANT_BORDER = z'8151' ! 0x8151
INTEGER(GLenum), PARAMETER :: GL_REPLICATE_BORDER = z'8153' ! 0x8153
INTEGER(GLenum), PARAMETER :: GL_CONVOLUTION_BORDER_COLOR = z'8154' ! 0x8154
! draw_range_elements values
INTEGER(GLenum), PARAMETER :: GL_MAX_ELEMENTS_VERTICES = z'80E8' ! 0x80E8
INTEGER(GLenum), PARAMETER :: GL_MAX_ELEMENTS_INDICES = z'80E9' ! 0x80E9
! histogram values
INTEGER(GLenum), PARAMETER :: GL_HISTOGRAM = z'8024' ! 0x8024
INTEGER(GLenum), PARAMETER :: GL_PROXY_HISTOGRAM = z'8025' ! 0x8025
INTEGER(GLenum), PARAMETER :: GL_HISTOGRAM_WIDTH = z'8026' ! 0x8026
INTEGER(GLenum), PARAMETER :: GL_HISTOGRAM_FORMAT = z'8027' ! 0x8027
INTEGER(GLenum), PARAMETER :: GL_HISTOGRAM_RED_SIZE = z'8028' ! 0x8028
INTEGER(GLenum), PARAMETER :: GL_HISTOGRAM_GREEN_SIZE = z'8029' ! 0x8029
INTEGER(GLenum), PARAMETER :: GL_HISTOGRAM_BLUE_SIZE = z'802A' ! 0x802A
INTEGER(GLenum), PARAMETER :: GL_HISTOGRAM_ALPHA_SIZE = z'802B' ! 0x802B
INTEGER(GLenum), PARAMETER :: GL_HISTOGRAM_LUMINANCE_SIZE = z'802C' ! 0x802C
INTEGER(GLenum), PARAMETER :: GL_HISTOGRAM_SINK = z'802D' ! 0x802D
INTEGER(GLenum), PARAMETER :: GL_MINMAX = z'802E' ! 0x802E
INTEGER(GLenum), PARAMETER :: GL_MINMAX_FORMAT = z'802F' ! 0x802F
INTEGER(GLenum), PARAMETER :: GL_MINMAX_SINK = z'8030' ! 0x8030
INTEGER(GLenum), PARAMETER :: GL_TABLE_TOO_LARGE = z'8031' ! 0x8031
! packed_pixels values
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_BYTE_3_3_2 = z'8032' ! 0x8032
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_SHORT_4_4_4_4 = z'8033' ! 0x8033
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_SHORT_5_5_5_1 = z'8034' ! 0x8034
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_INT_8_8_8_8 = z'8035' ! 0x8035
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_INT_10_10_10_2 = z'8036' ! 0x8036
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_BYTE_2_3_3_REV = z'8362' ! 0x8362
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_SHORT_5_6_5 = z'8363' ! 0x8363
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_SHORT_5_6_5_REV = z'8364' ! 0x8364
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_SHORT_4_4_4_4_REV = z'8365' ! 0x8365
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_SHORT_1_5_5_5_REV = z'8366' ! 0x8366
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_INT_8_8_8_8_REV = z'8367' ! 0x8367
INTEGER(GLenum), PARAMETER :: GL_UNSIGNED_INT_2_10_10_10_REV = z'8368' ! 0x8368
! rescale_normal values
INTEGER(GLenum), PARAMETER :: GL_RESCALE_NORMAL = z'803A' ! 0x803A
! separate_specular_color values
INTEGER(GLenum), PARAMETER :: GL_LIGHT_MODEL_COLOR_CONTROL = z'81F8' ! 0x81F8
INTEGER(GLenum), PARAMETER :: GL_SINGLE_COLOR = z'81F9' ! 0x81F9
INTEGER(GLenum), PARAMETER :: GL_SEPARATE_SPECULAR_COLOR = z'81FA' ! 0x81FA
! texture3D values
INTEGER(GLenum), PARAMETER :: GL_PACK_SKIP_IMAGES = z'806B' ! 0x806B
INTEGER(GLenum), PARAMETER :: GL_PACK_IMAGE_HEIGHT = z'806C' ! 0x806C
INTEGER(GLenum), PARAMETER :: GL_UNPACK_SKIP_IMAGES = z'806D' ! 0x806D
INTEGER(GLenum), PARAMETER :: GL_UNPACK_IMAGE_HEIGHT = z'806E' ! 0x806E
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_3D = z'806F' ! 0x806F
INTEGER(GLenum), PARAMETER :: GL_PROXY_TEXTURE_3D = z'8070' ! 0x8070
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_DEPTH = z'8071' ! 0x8071
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_WRAP_R = z'8072' ! 0x8072
INTEGER(GLenum), PARAMETER :: GL_MAX_3D_TEXTURE_SIZE = z'8073' ! 0x8073
! texture_edge_clamp values
INTEGER(GLenum), PARAMETER :: GL_CLAMP_TO_EDGE = z'812F' ! 0x812F
! texture_lod values
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_MIN_LOD = z'813A' ! 0x813A
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_MAX_LOD = z'813B' ! 0x813B
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_BASE_LEVEL = z'813C' ! 0x813C
INTEGER(GLenum), PARAMETER :: GL_TEXTURE_MAX_LEVEL = z'813D' ! 0x813D
! GetTarget1_2 values
INTEGER(GLenum), PARAMETER :: GL_SMOOTH_POINT_SIZE_RANGE = z'0B12' ! 0x0B12
INTEGER(GLenum), PARAMETER :: GL_SMOOTH_POINT_SIZE_GRANULARITY = z'0B13' ! 0x0B13
INTEGER(GLenum), PARAMETER :: GL_SMOOTH_LINE_WIDTH_RANGE = z'0B22' ! 0x0B22
INTEGER(GLenum), PARAMETER :: GL_SMOOTH_LINE_WIDTH_GRANULARITY = z'0B23' ! 0x0B23
INTEGER(GLenum), PARAMETER :: GL_ALIASED_POINT_SIZE_RANGE = z'846D' ! 0x846D
INTEGER(GLenum), PARAMETER :: GL_ALIASED_LINE_WIDTH_RANGE = z'846E' ! 0x846E
! multitexture values
INTEGER(GLenum), PARAMETER :: GL_TEXTURE0_ARB = z'84C0' ! 0x84C0
INTEGER(GLenum), PARAMETER :: GL_TEXTURE1_ARB = z'84C1' ! 0x84C1
INTEGER(GLenum), PARAMETER :: GL_TEXTURE2_ARB = z'84C2' ! 0x84C2
INTEGER(GLenum), PARAMETER :: GL_TEXTURE3_ARB = z'84C3' ! 0x84C3
INTEGER(GLenum), PARAMETER :: GL_TEXTURE4_ARB = z'84C4' ! 0x84C4
INTEGER(GLenum), PARAMETER :: GL_TEXTURE5_ARB = z'84C5' ! 0x84C5
INTEGER(GLenum), PARAMETER :: GL_TEXTURE6_ARB = z'84C6' ! 0x84C6
INTEGER(GLenum), PARAMETER :: GL_TEXTURE7_ARB = z'84C7' ! 0x84C7
INTEGER(GLenum), PARAMETER :: GL_TEXTURE8_ARB = z'84C8' ! 0x84C8
INTEGER(GLenum), PARAMETER :: GL_TEXTURE9_ARB = z'84C9' ! 0x84C9
INTEGER(GLenum), PARAMETER :: GL_TEXTURE10_ARB = z'84CA' ! 0x84CA
INTEGER(GLenum), PARAMETER :: GL_TEXTURE11_ARB = z'84CB' ! 0x84CB
INTEGER(GLenum), PARAMETER :: GL_TEXTURE12_ARB = z'84CC' ! 0x84CC
INTEGER(GLenum), PARAMETER :: GL_TEXTURE13_ARB = z'84CD' ! 0x84CD
INTEGER(GLenum), PARAMETER :: GL_TEXTURE14_ARB = z'84CE' ! 0x84CE
INTEGER(GLenum), PARAMETER :: GL_TEXTURE15_ARB = z'84CF' ! 0x84CF
INTEGER(GLenum), PARAMETER :: GL_TEXTURE16_ARB = z'84D0' ! 0x84D0
INTEGER(GLenum), PARAMETER :: GL_TEXTURE17_ARB = z'84D1' ! 0x84D1
INTEGER(GLenum), PARAMETER :: GL_TEXTURE18_ARB = z'84D2' ! 0x84D2
INTEGER(GLenum), PARAMETER :: GL_TEXTURE19_ARB = z'84D3' ! 0x84D3
INTEGER(GLenum), PARAMETER :: GL_TEXTURE20_ARB = z'84D4' ! 0x84D4
INTEGER(GLenum), PARAMETER :: GL_TEXTURE21_ARB = z'84D5' ! 0x84D5
INTEGER(GLenum), PARAMETER :: GL_TEXTURE22_ARB = z'84D6' ! 0x84D6
INTEGER(GLenum), PARAMETER :: GL_TEXTURE23_ARB = z'84D7' ! 0x84D7
INTEGER(GLenum), PARAMETER :: GL_TEXTURE24_ARB = z'84D8' ! 0x84D8
INTEGER(GLenum), PARAMETER :: GL_TEXTURE25_ARB = z'84D9' ! 0x84D9
INTEGER(GLenum), PARAMETER :: GL_TEXTURE26_ARB = z'84DA' ! 0x84DA
INTEGER(GLenum), PARAMETER :: GL_TEXTURE27_ARB = z'84DB' ! 0x84DB
INTEGER(GLenum), PARAMETER :: GL_TEXTURE28_ARB = z'84DC' ! 0x84DC
INTEGER(GLenum), PARAMETER :: GL_TEXTURE29_ARB = z'84DD' ! 0x84DD
INTEGER(GLenum), PARAMETER :: GL_TEXTURE30_ARB = z'84DE' ! 0x84DE
INTEGER(GLenum), PARAMETER :: GL_TEXTURE31_ARB = z'84DF' ! 0x84DF
INTEGER(GLenum), PARAMETER :: GL_ACTIVE_TEXTURE_ARB = z'84E0' ! 0x84E0
INTEGER(GLenum), PARAMETER :: GL_CLIENT_ACTIVE_TEXTURE_ARB = z'84E1' ! 0x84E1
INTEGER(GLenum), PARAMETER :: GL_MAX_TEXTURE_UNITS_ARB = z'84E2' ! 0x84E2
! EXT_abgr values
INTEGER(GLenum), PARAMETER :: GL_ABGR_EXT = z'8000' ! 0x8000
! EXT_blend_color values
INTEGER(GLenum), PARAMETER :: GL_CONSTANT_COLOR_EXT = z'8001' ! 0x8001
INTEGER(GLenum), PARAMETER :: GL_ONE_MINUS_CONSTANT_COLOR_EXT = z'8002' ! 0x8002
INTEGER(GLenum), PARAMETER :: GL_CONSTANT_ALPHA_EXT = z'8003' ! 0x8003
INTEGER(GLenum), PARAMETER :: GL_ONE_MINUS_CONSTANT_ALPHA_EXT = z'8004' ! 0x8004
INTEGER(GLenum), PARAMETER :: GL_BLEND_COLOR_EXT = z'8005' ! 0x8005
! EXT_blend_minmax values
INTEGER(GLenum), PARAMETER :: GL_FUNC_ADD_EXT = z'8006' ! 0x8006
INTEGER(GLenum), PARAMETER :: GL_MIN_EXT = z'8007' ! 0x8007
INTEGER(GLenum), PARAMETER :: GL_MAX_EXT = z'8008' ! 0x8008
INTEGER(GLenum), PARAMETER :: GL_BLEND_EQUATION_EXT = z'8009' ! 0x8009
! EXT_blend_subtract values
INTEGER(GLenum), PARAMETER :: GL_FUNC_SUBTRACT_EXT = z'800A' ! 0x800A
INTEGER(GLenum), PARAMETER :: GL_FUNC_REVERSE_SUBTRACT_EXT = z'800B' ! 0x800B
! EXT_texture_env_combine values
INTEGER(GLenum), PARAMETER :: GL_COMBINE_EXT = z'8570' ! 0x8570
INTEGER(GLenum), PARAMETER :: GL_COMBINE_RGB_EXT = z'8571' ! 0x8571
INTEGER(GLenum), PARAMETER :: GL_COMBINE_ALPHA_EXT = z'8572' ! 0x8572
INTEGER(GLenum), PARAMETER :: GL_RGB_SCALE_EXT = z'8573' ! 0x8573
INTEGER(GLenum), PARAMETER :: GL_ADD_SIGNED_EXT = z'8574' ! 0x8574
INTEGER(GLenum), PARAMETER :: GL_INTERPOLATE_EXT = z'8575' ! 0x8575
INTEGER(GLenum), PARAMETER :: GL_CONSTANT_EXT = z'8576' ! 0x8576
INTEGER(GLenum), PARAMETER :: GL_PRIMARY_COLOR_EXT = z'8577' ! 0x8577
INTEGER(GLenum), PARAMETER :: GL_PREVIOUS_EXT = z'8578' ! 0x8578
INTEGER(GLenum), PARAMETER :: GL_SOURCE0_RGB_EXT = z'8580' ! 0x8580
INTEGER(GLenum), PARAMETER :: GL_SOURCE1_RGB_EXT = z'8581' ! 0x8581
INTEGER(GLenum), PARAMETER :: GL_SOURCE2_RGB_EXT = z'8582' ! 0x8582
INTEGER(GLenum), PARAMETER :: GL_SOURCE0_ALPHA_EXT = z'8588' ! 0x8588
INTEGER(GLenum), PARAMETER :: GL_SOURCE1_ALPHA_EXT = z'8589' ! 0x8589
INTEGER(GLenum), PARAMETER :: GL_SOURCE2_ALPHA_EXT = z'858A' ! 0x858A
INTEGER(GLenum), PARAMETER :: GL_OPERAND0_RGB_EXT = z'8590' ! 0x8590
INTEGER(GLenum), PARAMETER :: GL_OPERAND1_RGB_EXT = z'8591' ! 0x8591
INTEGER(GLenum), PARAMETER :: GL_OPERAND2_RGB_EXT = z'8592' ! 0x8592
INTEGER(GLenum), PARAMETER :: GL_OPERAND0_ALPHA_EXT = z'8598' ! 0x8598
INTEGER(GLenum), PARAMETER :: GL_OPERAND1_ALPHA_EXT = z'8599' ! 0x8599
INTEGER(GLenum), PARAMETER :: GL_OPERAND2_ALPHA_EXT = z'859A' ! 0x859A
INTERFACE
! display-list commands
! NewList(list, mode)
! return void
! param list List in value
! param mode ListMode in value
SUBROUTINE glNewList(list, mode) BIND(C,NAME="glNewList")
IMPORT
INTEGER(GLenum), VALUE :: mode
INTEGER(GLint), VALUE :: list
END SUBROUTINE glNewList
! EndList()
! return void
SUBROUTINE glEndList() BIND(C,NAME="glEndList")
IMPORT
END SUBROUTINE glEndList
! CallList(list)
! return void
! param list List in value
SUBROUTINE glCallList(list) BIND(C,NAME="glCallList")
IMPORT
INTEGER(GLint), VALUE :: list
END SUBROUTINE glCallList
! CallLists(n, type, lists)
! return void
! param n SizeI in value
! param type ListNameType in value
! param lists Void in array [COMPSIZE(n/type)]
SUBROUTINE glCallLists(n, type, lists) BIND(C,NAME="glCallLists")
IMPORT
INTEGER(GLenum), VALUE :: type
INTEGER(GLsizei), VALUE :: n
TYPE(C_PTR), VALUE :: lists
END SUBROUTINE glCallLists
! DeleteLists(list, range)
! return void
! param list List in value
! param range SizeI in value
SUBROUTINE glDeleteLists(list, range) BIND(C,NAME="glDeleteLists")
IMPORT
INTEGER(GLint), VALUE :: list
INTEGER(GLsizei), VALUE :: range
END SUBROUTINE glDeleteLists
! GenLists(range)
! return List
! param range SizeI in value
FUNCTION glGenLists(range) BIND(C,NAME="glGenLists")
IMPORT
INTEGER(GLint) :: glGenLists
INTEGER(GLsizei), VALUE :: range
END FUNCTION glGenLists
! ListBase(base)
! return void
! param base List in value
SUBROUTINE glListBase(base) BIND(C,NAME="glListBase")
IMPORT
INTEGER(GLint), VALUE :: base
END SUBROUTINE glListBase
! drawing commands
! Begin(mode)
! return void
! param mode BeginMode in value
SUBROUTINE glBegin(mode) BIND(C,NAME="glBegin")
IMPORT
INTEGER(GLenum), VALUE :: mode
END SUBROUTINE glBegin
! Bitmap(width, height, xorig, yorig, xmove, ymove, bitmap)
! return void
! param width SizeI in value
! param height SizeI in value
! param xorig CoordF in value
! param yorig CoordF in value
! param xmove CoordF in value
! param ymove CoordF in value
! param bitmap UInt8 in array [COMPSIZE(width/height)]
SUBROUTINE glBitmap(width, height, xorig, yorig, xmove, ymove, bitmap) &
BIND(C,NAME="glBitmap")
IMPORT
INTEGER(GLsizei), VALUE :: width, height
REAL(GLfloat), VALUE :: xorig, yorig, xmove, ymove
INTEGER(GLbyte), DIMENSION(*), INTENT(IN) :: bitmap
END SUBROUTINE glBitmap
! Color3b(red, green, blue)
! return void
! param red ColorB in value
! param green ColorB in value
! param blue ColorB in value
SUBROUTINE glColor3b(red, green, blue) BIND(C,NAME="glColor3b")
IMPORT
INTEGER(GLbyte), VALUE :: red, green, blue
END SUBROUTINE glColor3b
! Color3bv(v)
! return void
! param v ColorB in array [3]
SUBROUTINE glColor3bv(v) BIND(C,NAME="glColor3bv")
IMPORT
INTEGER(GLbyte), DIMENSION(3), INTENT(IN) :: v
END SUBROUTINE glColor3bv
! Color3d(red, green, blue)
! return void
! param red ColorD in value
! param green ColorD in value
! param blue ColorD in value
SUBROUTINE glColor3d(red, green, blue) BIND(C,NAME="glColor3d")
IMPORT
REAL(GLdouble), VALUE :: red, green, blue
END SUBROUTINE glColor3d
! Color3dv(v)
! return void
! param v ColorD in array [3]
SUBROUTINE glColor3dv(v) BIND(C,NAME="glColor3dv")
IMPORT
REAL(GLdouble), DIMENSION(3), INTENT(IN) :: v
END SUBROUTINE glColor3dv
! Color3f(red, green, blue)
! return void
! param red ColorF in value
! param green ColorF in value
! param blue ColorF in value
SUBROUTINE glColor3f(red, green, blue) BIND(C,NAME="glColor3f")
IMPORT
REAL(GLfloat), VALUE :: red, green, blue
END SUBROUTINE glColor3f
! Color3fv(v)
! return void
! param v ColorF in array [3]
SUBROUTINE glColor3fv(v) BIND(C,NAME="glColor3fv")
IMPORT