home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / mesa-1.2.8 / include / gl / fgl.h < prev    next >
Text File  |  1996-05-27  |  36KB  |  1,055 lines
  1. C $Id: fgl.h,v 1.4 1995/10/27 18:01:15 brianp Exp $
  2.  
  3. C
  4. C Mesa 3-D graphics library
  5. C Version:  1.2
  6. C Copyright (C) 1995  Brian Paul  (brianp@ssec.wisc.edu)
  7. C
  8. C This library is free software; you can redistribute it and/or
  9. C modify it under the terms of the GNU Library General Public
  10. C License as published by the Free Software Foundation; either
  11. C version 2 of the License, or (at your option) any later version.
  12. C
  13. C This library is distributed in the hope that it will be useful,
  14. C but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16. C Library General Public License for more details.
  17. C
  18. C You should have received a copy of the GNU Library General Public
  19. C License along with this library; if not, write to the Free
  20. C Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21.  
  22.  
  23.  
  24. C
  25. C Fortran Mesa header for GL functions
  26. C
  27. C Note: this file was generated from the gl.h file using Emacs macros
  28. C and a small C utility.  There may be some errors or omissions!
  29. C
  30.  
  31.  
  32. C Boolean values
  33.       integer*4  GL_FALSE
  34.       parameter (GL_FALSE = 0)
  35.       integer*4  GL_TRUE
  36.       parameter (GL_TRUE = 1)
  37.  
  38. C Data types
  39.       integer*4  GL_BYTE
  40.       parameter (GL_BYTE = 5120)
  41.       integer*4  GL_UNSIGNED_BYTE
  42.       parameter (GL_UNSIGNED_BYTE = 5121)
  43.       integer*4  GL_SHORT
  44.       parameter (GL_SHORT = 5122)
  45.       integer*4  GL_UNSIGNED_SHORT
  46.       parameter (GL_UNSIGNED_SHORT = 5123)
  47.       integer*4  GL_INT
  48.       parameter (GL_INT = 5124)
  49.       integer*4  GL_UNSIGNED_INT
  50.       parameter (GL_UNSIGNED_INT = 5125)
  51.       integer*4  GL_FLOAT
  52.       parameter (GL_FLOAT = 5126)
  53.       integer*4  GL_2_BYTES
  54.       parameter (GL_2_BYTES = 5127)
  55.       integer*4  GL_3_BYTES
  56.       parameter (GL_3_BYTES = 5128)
  57.       integer*4  GL_4_BYTES
  58.       parameter (GL_4_BYTES = 5129)
  59.  
  60.  
  61. C
  62. C GLenum values
  63. C
  64.  
  65. C Primitives
  66.       integer*4  GL_POINTS
  67.       parameter (GL_POINTS = 0)
  68.       integer*4  GL_LINES
  69.       parameter (GL_LINES = 1)
  70.       integer*4  GL_LINE_LOOP
  71.       parameter (GL_LINE_LOOP = 2)
  72.       integer*4  GL_LINE_STRIP
  73.       parameter (GL_LINE_STRIP = 3)
  74.       integer*4  GL_TRIANGLES
  75.       parameter (GL_TRIANGLES = 4)
  76.       integer*4  GL_TRIANGLE_STRIP
  77.       parameter (GL_TRIANGLE_STRIP = 5)
  78.       integer*4  GL_TRIANGLE_FAN
  79.       parameter (GL_TRIANGLE_FAN = 6)
  80.       integer*4  GL_QUADS
  81.       parameter (GL_QUADS = 7)
  82.       integer*4  GL_QUAD_STRIP
  83.       parameter (GL_QUAD_STRIP = 8)
  84.       integer*4  GL_POLYGON
  85.       parameter (GL_POLYGON = 9)
  86.  
  87. C Matrix Mode
  88.       integer*4  GL_MATRIX_MODE
  89.       parameter (GL_MATRIX_MODE = 2976)
  90.       integer*4  GL_MODELVIEW
  91.       parameter (GL_MODELVIEW = 5888)
  92.       integer*4  GL_PROJECTION
  93.       parameter (GL_PROJECTION = 5889)
  94.       integer*4  GL_TEXTURE
  95.       parameter (GL_TEXTURE = 5890) 
  96.  
  97. C Points
  98.       integer*4  GL_POINT_SMOOTH
  99.       parameter (GL_POINT_SMOOTH = 2832) 
  100.       integer*4  GL_POINT_SIZE
  101.       parameter (GL_POINT_SIZE = 2833) 
  102.       integer*4  GL_POINT_SIZE_GRANULARITY 
  103.       parameter (GL_POINT_SIZE_GRANULARITY = 2835) 
  104.       integer*4  GL_POINT_SIZE_RANGE
  105.       parameter (GL_POINT_SIZE_RANGE = 2834) 
  106.  
  107. C Lines
  108.       integer*4  GL_LINE_SMOOTH
  109.       parameter (GL_LINE_SMOOTH = 2848) 
  110.       integer*4  GL_LINE_STIPPLE
  111.       parameter (GL_LINE_STIPPLE = 2852) 
  112.       integer*4  GL_LINE_STIPPLE_PATTERN
  113.       parameter (GL_LINE_STIPPLE_PATTERN = 2853) 
  114.       integer*4  GL_LINE_STIPPLE_REPEAT
  115.       parameter (GL_LINE_STIPPLE_REPEAT = 2854) 
  116.       integer*4  GL_LINE_WIDTH
  117.       parameter (GL_LINE_WIDTH = 2849) 
  118.       integer*4  GL_LINE_WIDTH_GRANULARITY
  119.       parameter (GL_LINE_WIDTH_GRANULARITY= 2851) 
  120.       integer*4  GL_LINE_WIDTH_RANGE
  121.       parameter (GL_LINE_WIDTH_RANGE = 2850) 
  122.  
  123. C Polygons
  124.       integer*4  GL_POINT
  125.       parameter (GL_POINT = 6912) 
  126.       integer*4  GL_LINE
  127.       parameter (GL_LINE = 6913) 
  128.       integer*4  GL_FILL
  129.       parameter (GL_FILL = 6914) 
  130.       integer*4  GL_CCW
  131.       parameter (GL_CCW = 2305) 
  132.       integer*4  GL_CW
  133.       parameter (GL_CW = 2304) 
  134.       integer*4  GL_FRONT
  135.       parameter (GL_FRONT = 1028) 
  136.       integer*4  GL_BACK
  137.       parameter (GL_BACK = 1029) 
  138.       integer*4  GL_CULL_FACE
  139.       parameter (GL_CULL_FACE = 2884) 
  140.       integer*4  GL_CULL_FACE_MODE
  141.       parameter (GL_CULL_FACE_MODE = 2885) 
  142.       integer*4  GL_POLYGON_SMOOTH
  143.       parameter (GL_POLYGON_SMOOTH = 2881) 
  144.       integer*4  GL_POLYGON_STIPPLE
  145.       parameter (GL_POLYGON_STIPPLE = 2882) 
  146.       integer*4  GL_FRONT_FACE
  147.       parameter (GL_FRONT_FACE = 2886) 
  148.       integer*4  GL_POLYGON_MODE
  149.       parameter (GL_POLYGON_MODE = 2880) 
  150.  
  151. C Display Lists
  152.       integer*4  GL_COMPILE
  153.       parameter (GL_COMPILE = 4864) 
  154.       integer*4  GL_COMPILE_AND_EXECUTE
  155.       parameter (GL_COMPILE_AND_EXECUTE = 4865) 
  156.       integer*4  GL_LIST_BASE
  157.       parameter (GL_LIST_BASE = 2866) 
  158.       integer*4  GL_LIST_INDEX
  159.       parameter (GL_LIST_INDEX = 2867) 
  160.       integer*4  GL_LIST_MODE
  161.       parameter (GL_LIST_MODE = 2864) 
  162.  
  163. C Depth buffer
  164.       integer*4  GL_NEVER
  165.       parameter (GL_NEVER = 512) 
  166.       integer*4  GL_LESS
  167.       parameter (GL_LESS = 513) 
  168.       integer*4  GL_GEQUAL
  169.       parameter (GL_GEQUAL = 518) 
  170.       integer*4  GL_LEQUAL
  171.       parameter (GL_LEQUAL = 515) 
  172.       integer*4  GL_GREATER
  173.       parameter (GL_GREATER = 516) 
  174.       integer*4  GL_NOTEQUAL
  175.       parameter (GL_NOTEQUAL = 517) 
  176.       integer*4  GL_EQUAL
  177.       parameter (GL_EQUAL = 514) 
  178.       integer*4  GL_ALWAYS
  179.       parameter (GL_ALWAYS = 519) 
  180.       integer*4  GL_DEPTH_TEST
  181.       parameter (GL_DEPTH_TEST = 2929) 
  182.       integer*4  GL_DEPTH_BITS
  183.       parameter (GL_DEPTH_BITS = 3414) 
  184.       integer*4  GL_DEPTH_CLEAR_VALUE
  185.       parameter (GL_DEPTH_CLEAR_VALUE = 2931) 
  186.       integer*4  GL_DEPTH_FUNC
  187.       parameter (GL_DEPTH_FUNC = 2932) 
  188.       integer*4  GL_DEPTH_RANGE
  189.       parameter (GL_DEPTH_RANGE = 2928) 
  190.       integer*4  GL_DEPTH_WRITEMASK
  191.       parameter (GL_DEPTH_WRITEMASK = 2930) 
  192.       integer*4  GL_DEPTH_COMPONENT
  193.       parameter (GL_DEPTH_COMPONENT = 6402) 
  194.  
  195. C Lighting
  196.       integer*4  GL_LIGHTING
  197.       parameter (GL_LIGHTING = 2896) 
  198.       integer*4  GL_LIGHT0
  199.       parameter (GL_LIGHT0 = 16384) 
  200.       integer*4  GL_LIGHT1
  201.       parameter (GL_LIGHT1 = 16385) 
  202.       integer*4  GL_LIGHT2
  203.       parameter (GL_LIGHT2 = 16386) 
  204.       integer*4  GL_LIGHT3
  205.       parameter (GL_LIGHT3 = 16387) 
  206.       integer*4  GL_LIGHT4
  207.       parameter (GL_LIGHT4 = 16388) 
  208.       integer*4  GL_LIGHT5
  209.       parameter (GL_LIGHT5 = 16389) 
  210.       integer*4  GL_LIGHT6
  211.       parameter (GL_LIGHT6 = 16390) 
  212.       integer*4  GL_LIGHT7
  213.       parameter (GL_LIGHT7 = 16391) 
  214.       integer*4  GL_SPOT_EXPONENT
  215.       parameter (GL_SPOT_EXPONENT = 4613) 
  216.       integer*4  GL_SPOT_CUTOFF
  217.       parameter (GL_SPOT_CUTOFF = 4614) 
  218.       integer*4  GL_CONSTANT_ATTENUATION
  219.       parameter (GL_CONSTANT_ATTENUATION = 4615) 
  220.       integer*4  GL_LINEAR_ATTENUATION
  221.       parameter (GL_LINEAR_ATTENUATION = 4616) 
  222.       integer*4  GL_QUADRATIC_ATTENUATION
  223.       parameter (GL_QUADRATIC_ATTENUATION= 4617) 
  224.       integer*4  GL_AMBIENT
  225.       parameter (GL_AMBIENT = 4608) 
  226.       integer*4  GL_DIFFUSE
  227.       parameter (GL_DIFFUSE = 4609) 
  228.       integer*4  GL_SPECULAR
  229.       parameter (GL_SPECULAR = 4610) 
  230.       integer*4  GL_SHININESS
  231.       parameter (GL_SHININESS = 5633) 
  232.       integer*4  GL_EMISSION
  233.       parameter (GL_EMISSION = 5632) 
  234.       integer*4  GL_POSITION
  235.       parameter (GL_POSITION = 4611) 
  236.       integer*4  GL_SPOT_DIRECTION
  237.       parameter (GL_SPOT_DIRECTION = 4612) 
  238.       integer*4  GL_AMBIENT_AND_DIFFUSE
  239.       parameter (GL_AMBIENT_AND_DIFFUSE = 5634) 
  240.       integer*4  GL_COLOR_INDEXES
  241.       parameter (GL_COLOR_INDEXES = 5635) 
  242.       integer*4  GL_LIGHT_MODEL_TWO_SIDE
  243.       parameter (GL_LIGHT_MODEL_TWO_SIDE = 2898) 
  244.       integer*4  GL_LIGHT_MODEL_LOCAL_VIEWER
  245.       parameter (GL_LIGHT_MODEL_LOCAL_VIEWER= 2897) 
  246.       integer*4  GL_LIGHT_MODEL_AMBIENT
  247.       parameter (GL_LIGHT_MODEL_AMBIENT = 2899) 
  248.       integer*4  GL_FRONT_AND_BACK
  249.       parameter (GL_FRONT_AND_BACK = 1032) 
  250.       integer*4  GL_SHADE_MODEL
  251.       parameter (GL_SHADE_MODEL = 2900) 
  252.       integer*4  GL_FLAT
  253.       parameter (GL_FLAT = 7424) 
  254.       integer*4  GL_SMOOTH
  255.       parameter (GL_SMOOTH = 7425) 
  256.       integer*4  GL_COLOR_MATERIAL
  257.       parameter (GL_COLOR_MATERIAL = 2903) 
  258.       integer*4  GL_COLOR_MATERIAL_FACE
  259.       parameter (GL_COLOR_MATERIAL_FACE = 2901) 
  260.       integer*4  GL_COLOR_MATERIAL_PARAMETER
  261.       parameter (GL_COLOR_MATERIAL_PARAMETER= 2902) 
  262.       integer*4  GL_NORMALIZE
  263.       parameter (GL_NORMALIZE = 2977) 
  264.  
  265. C User clipping planes
  266.       integer*4  GL_CLIP_PLANE0
  267.       parameter (GL_CLIP_PLANE0 = 12288) 
  268.       integer*4  GL_CLIP_PLANE1
  269.       parameter (GL_CLIP_PLANE1 = 12289) 
  270.       integer*4  GL_CLIP_PLANE2
  271.       parameter (GL_CLIP_PLANE2 = 12290) 
  272.       integer*4  GL_CLIP_PLANE3
  273.       parameter (GL_CLIP_PLANE3 = 12291) 
  274.       integer*4  GL_CLIP_PLANE4
  275.       parameter (GL_CLIP_PLANE4 = 12292) 
  276.       integer*4  GL_CLIP_PLANE5
  277.       parameter (GL_CLIP_PLANE5 = 12293) 
  278.  
  279. C Accumulation buffer
  280.       integer*4  GL_ACCUM_RED_BITS
  281.       parameter (GL_ACCUM_RED_BITS = 3416) 
  282.       integer*4  GL_ACCUM_GREEN_BITS
  283.       parameter (GL_ACCUM_GREEN_BITS = 3417) 
  284.       integer*4  GL_ACCUM_BLUE_BITS
  285.       parameter (GL_ACCUM_BLUE_BITS = 3418) 
  286.       integer*4  GL_ACCUM_ALPHA_BITS
  287.       parameter (GL_ACCUM_ALPHA_BITS = 3419) 
  288.       integer*4  GL_ACCUM_CLEAR_VALUE
  289.       parameter (GL_ACCUM_CLEAR_VALUE = 2944) 
  290.       integer*4  GL_ACCUM
  291.       parameter (GL_ACCUM = 256) 
  292.       integer*4  GL_ADD
  293.       parameter (GL_ADD = 260) 
  294.       integer*4  GL_LOAD
  295.       parameter (GL_LOAD = 257) 
  296.       integer*4  GL_MULT
  297.       parameter (GL_MULT = 259) 
  298.       integer*4  GL_RETURN
  299.       parameter (GL_RETURN = 258) 
  300.  
  301. C Alpha testing
  302.       integer*4  GL_ALPHA_TEST
  303.       parameter (GL_ALPHA_TEST = 3008) 
  304.       integer*4  GL_ALPHA_TEST_REF
  305.       parameter (GL_ALPHA_TEST_REF = 3010) 
  306.       integer*4  GL_ALPHA_TEST_FUNC
  307.       parameter (GL_ALPHA_TEST_FUNC = 3009) 
  308.  
  309. C Blending
  310.       integer*4  GL_BLEND
  311.       parameter (GL_BLEND = 3042) 
  312.       integer*4  GL_BLEND_SRC
  313.       parameter (GL_BLEND_SRC = 3041) 
  314.       integer*4  GL_BLEND_DST
  315.       parameter (GL_BLEND_DST = 3040) 
  316.       integer*4  GL_ZERO
  317.       parameter (GL_ZERO = 0)
  318.       integer*4  GL_ONE
  319.       parameter (GL_ONE = 1)
  320.       integer*4  GL_SRC_COLOR
  321.       parameter (GL_SRC_COLOR = 768) 
  322.       integer*4  GL_ONE_MINUS_SRC_COLOR
  323.       parameter (GL_ONE_MINUS_SRC_COLOR = 769) 
  324.       integer*4  GL_DST_COLOR
  325.       parameter (GL_DST_COLOR = 774) 
  326.       integer*4  GL_ONE_MINUS_DST_COLOR
  327.       parameter (GL_ONE_MINUS_DST_COLOR = 775) 
  328.       integer*4  GL_SRC_ALPHA
  329.       parameter (GL_SRC_ALPHA = 770) 
  330.       integer*4  GL_ONE_MINUS_SRC_ALPHA
  331.       parameter (GL_ONE_MINUS_SRC_ALPHA = 771) 
  332.       integer*4  GL_DST_ALPHA
  333.       parameter (GL_DST_ALPHA = 772) 
  334.       integer*4  GL_ONE_MINUS_DST_ALPHA
  335.       parameter (GL_ONE_MINUS_DST_ALPHA = 773) 
  336.       integer*4  GL_SRC_ALPHA_SATURATE
  337.       parameter (GL_SRC_ALPHA_SATURATE = 776) 
  338.  
  339. C Render Mode
  340.       integer*4  GL_FEEDBACK
  341.       parameter (GL_FEEDBACK = 7169) 
  342.       integer*4  GL_RENDER
  343.       parameter (GL_RENDER = 7168) 
  344.       integer*4  GL_SELECT
  345.       parameter (GL_SELECT = 7170) 
  346.  
  347. C Feedback
  348.       integer*4  GL_2D
  349.       parameter (GL_2D = 1536) 
  350.       integer*4  GL_3D
  351.       parameter (GL_3D = 1537) 
  352.       integer*4  GL_3D_COLOR
  353.       parameter (GL_3D_COLOR = 1538) 
  354.       integer*4  GL_3D_COLOR_TEXTURE
  355.       parameter (GL_3D_COLOR_TEXTURE = 1539) 
  356.       integer*4  GL_4D_COLOR_TEXTURE
  357.       parameter (GL_4D_COLOR_TEXTURE = 1540) 
  358.       integer*4  GL_POINT_TOKEN
  359.       parameter (GL_POINT_TOKEN = 1793) 
  360.       integer*4  GL_LINE_TOKEN
  361.       parameter (GL_LINE_TOKEN = 1794) 
  362.       integer*4  GL_LINE_RESET_TOKEN
  363.       parameter (GL_LINE_RESET_TOKEN = 1799) 
  364.       integer*4  GL_POLYGON_TOKEN
  365.       parameter (GL_POLYGON_TOKEN = 1795) 
  366.       integer*4  GL_BITMAP_TOKEN
  367.       parameter (GL_BITMAP_TOKEN = 1796) 
  368.       integer*4  GL_DRAW_PIXEL_TOKEN
  369.       parameter (GL_DRAW_PIXEL_TOKEN = 1797) 
  370.       integer*4  GL_COPY_PIXEL_TOKEN
  371.       parameter (GL_COPY_PIXEL_TOKEN = 1798) 
  372.       integer*4  GL_PASS_THROUGH_TOKEN
  373.       parameter (GL_PASS_THROUGH_TOKEN = 1792) 
  374.  
  375. C Fog
  376.       integer*4  GL_FOG
  377.       parameter (GL_FOG = 2912) 
  378.       integer*4  GL_FOG_MODE
  379.       parameter (GL_FOG_MODE = 2917) 
  380.       integer*4  GL_FOG_DENSITY
  381.       parameter (GL_FOG_DENSITY = 2914) 
  382.       integer*4  GL_FOG_COLOR
  383.       parameter (GL_FOG_COLOR = 2918) 
  384.       integer*4  GL_FOG_INDEX
  385.       parameter (GL_FOG_INDEX = 2913) 
  386.       integer*4  GL_FOG_START
  387.       parameter (GL_FOG_START = 2915) 
  388.       integer*4  GL_FOG_END
  389.       parameter (GL_FOG_END = 2916) 
  390.       integer*4  GL_LINEAR
  391.       parameter (GL_LINEAR = 9729) 
  392.       integer*4  GL_EXP
  393.       parameter (GL_EXP = 2048) 
  394.       integer*4  GL_EXP2
  395.       parameter (GL_EXP2 = 2049) 
  396.  
  397. C Logic Ops
  398.       integer*4  GL_LOGIC_OP
  399.       parameter (GL_LOGIC_OP = 3057) 
  400.       integer*4  GL_LOGIC_OP_MODE
  401.       parameter (GL_LOGIC_OP_MODE = 3056) 
  402.       integer*4  GL_CLEAR
  403.       parameter (GL_CLEAR = 5376) 
  404.       integer*4  GL_SET
  405.       parameter (GL_SET = 5391) 
  406.       integer*4  GL_COPY
  407.       parameter (GL_COPY = 5379) 
  408.       integer*4  GL_COPY_INVERTED
  409.       parameter (GL_COPY_INVERTED = 5388) 
  410.       integer*4  GL_NOOP
  411.       parameter (GL_NOOP = 5381) 
  412.       integer*4  GL_INVERT
  413.       parameter (GL_INVERT = 5386) 
  414.       integer*4  GL_AND
  415.       parameter (GL_AND = 5377) 
  416.       integer*4  GL_NAND
  417.       parameter (GL_NAND = 5390) 
  418.       integer*4  GL_OR
  419.       parameter (GL_OR = 5383) 
  420.       integer*4  GL_NOR
  421.       parameter (GL_NOR = 5384) 
  422.       integer*4  GL_XOR
  423.       parameter (GL_XOR = 5382) 
  424.       integer*4  GL_EQUIV
  425.       parameter (GL_EQUIV = 5385) 
  426.       integer*4  GL_AND_REVERSE
  427.       parameter (GL_AND_REVERSE = 5378) 
  428.       integer*4  GL_AND_INVERTED
  429.       parameter (GL_AND_INVERTED = 5380) 
  430.       integer*4  GL_OR_REVERSE
  431.       parameter (GL_OR_REVERSE = 5387) 
  432.       integer*4  GL_OR_INVERTED
  433.       parameter (GL_OR_INVERTED = 5389) 
  434.  
  435. C Stencil
  436.       integer*4  GL_STENCIL_TEST
  437.       parameter (GL_STENCIL_TEST = 2960) 
  438.       integer*4  GL_STENCIL_WRITEMASK
  439.       parameter (GL_STENCIL_WRITEMASK = 2968) 
  440.       integer*4  GL_STENCIL_BITS
  441.       parameter (GL_STENCIL_BITS = 3415) 
  442.       integer*4  GL_STENCIL_FUNC
  443.       parameter (GL_STENCIL_FUNC = 2962) 
  444.       integer*4  GL_STENCIL_VALUE_MASK
  445.       parameter (GL_STENCIL_VALUE_MASK = 2963) 
  446.       integer*4  GL_STENCIL_REF
  447.       parameter (GL_STENCIL_REF = 2967) 
  448.       integer*4  GL_STENCIL_FAIL
  449.       parameter (GL_STENCIL_FAIL = 2964) 
  450.       integer*4  GL_STENCIL_PASS_DEPTH_PASS
  451.       parameter (GL_STENCIL_PASS_DEPTH_PASS= 2966) 
  452.       integer*4  GL_STENCIL_PASS_DEPTH_FAIL
  453.       parameter (GL_STENCIL_PASS_DEPTH_FAIL= 2965) 
  454.       integer*4  GL_STENCIL_CLEAR_VALUE
  455.       parameter (GL_STENCIL_CLEAR_VALUE = 2961) 
  456.       integer*4  GL_STENCIL_INDEX
  457.       parameter (GL_STENCIL_INDEX = 6401) 
  458.       integer*4  GL_KEEP
  459.       parameter (GL_KEEP = 7680) 
  460.       integer*4  GL_REPLACE
  461.       parameter (GL_REPLACE = 7681) 
  462.       integer*4  GL_INCR
  463.       parameter (GL_INCR = 7682) 
  464.       integer*4  GL_DECR
  465.       parameter (GL_DECR = 7683) 
  466.  
  467. C Buffers, Pixel Drawing/Reading
  468.       integer*4  GL_NONE
  469.       parameter (GL_NONE = 0)
  470.       integer*4  GL_LEFT
  471.       parameter (GL_LEFT = 1030) 
  472.       integer*4  GL_RIGHT
  473.       parameter (GL_RIGHT = 1031) 
  474.       integer*4  GL_FRONT_LEFT
  475.       parameter (GL_FRONT_LEFT = 1024) 
  476.       integer*4  GL_FRONT_RIGHT
  477.       parameter (GL_FRONT_RIGHT = 1025) 
  478.       integer*4  GL_BACK_LEFT
  479.       parameter (GL_BACK_LEFT = 1026) 
  480.       integer*4  GL_BACK_RIGHT
  481.       parameter (GL_BACK_RIGHT = 1027) 
  482.       integer*4  GL_AUX0
  483.       parameter (GL_AUX0 = 1033) 
  484.       integer*4  GL_AUX1
  485.       parameter (GL_AUX1 = 1034) 
  486.       integer*4  GL_AUX2
  487.       parameter (GL_AUX2 = 1035) 
  488.       integer*4  GL_AUX3
  489.       parameter (GL_AUX3 = 1036) 
  490.       integer*4  GL_COLOR_INDEX
  491.       parameter (GL_COLOR_INDEX = 6400) 
  492.       integer*4  GL_RED
  493.       parameter (GL_RED = 6403) 
  494.       integer*4  GL_GREEN
  495.       parameter (GL_GREEN = 6404) 
  496.       integer*4  GL_BLUE
  497.       parameter (GL_BLUE = 6405) 
  498.       integer*4  GL_ALPHA
  499.       parameter (GL_ALPHA = 6406) 
  500.       integer*4  GL_LUMINANCE
  501.       parameter (GL_LUMINANCE = 6409) 
  502.       integer*4  GL_LUMINANCE_ALPHA
  503.       parameter (GL_LUMINANCE_ALPHA = 6410) 
  504.       integer*4  GL_ALPHA_BITS
  505.       parameter (GL_ALPHA_BITS = 3413) 
  506.       integer*4  GL_RED_BITS
  507.       parameter (GL_RED_BITS = 3410) 
  508.       integer*4  GL_GREEN_BITS
  509.       parameter (GL_GREEN_BITS = 3411) 
  510.       integer*4  GL_BLUE_BITS
  511.       parameter (GL_BLUE_BITS = 3412) 
  512.       integer*4  GL_INDEX_BITS
  513.       parameter (GL_INDEX_BITS = 3409) 
  514.       integer*4  GL_SUBPIXEL_BITS
  515.       parameter (GL_SUBPIXEL_BITS = 3408) 
  516.       integer*4  GL_AUX_BUFFERS
  517.       parameter (GL_AUX_BUFFERS = 3072) 
  518.       integer*4  GL_READ_BUFFER
  519.       parameter (GL_READ_BUFFER = 3074) 
  520.       integer*4  GL_DRAW_BUFFER
  521.       parameter (GL_DRAW_BUFFER = 3073) 
  522.       integer*4  GL_DOUBLEBUFFER
  523.       parameter (GL_DOUBLEBUFFER = 3122) 
  524.       integer*4  GL_STEREO
  525.       parameter (GL_STEREO = 3123) 
  526.       integer*4  GL_BITMAP
  527.       parameter (GL_BITMAP = 6656) 
  528.       integer*4  GL_COLOR
  529.       parameter (GL_COLOR = 6144) 
  530.       integer*4  GL_DEPTH
  531.       parameter (GL_DEPTH = 6145) 
  532.       integer*4  GL_STENCIL
  533.       parameter (GL_STENCIL = 6146) 
  534.       integer*4  GL_DITHER
  535.       parameter (GL_DITHER = 3024) 
  536.       integer*4  GL_RGB
  537.       parameter (GL_RGB = 6407) 
  538.       integer*4  GL_RGBA
  539.       parameter (GL_RGBA = 6408) 
  540.  
  541. C Implementation limits
  542.       integer*4  GL_MAX_MODELVIEW_STACK_DEPTH
  543.       parameter (GL_MAX_MODELVIEW_STACK_DEPTH= 3382) 
  544.       integer*4  GL_MAX_PROJECTION_STACK_DEPTH
  545.       parameter (GL_MAX_PROJECTION_STACK_DEPTH= 3384) 
  546.       integer*4  GL_MAX_TEXTURE_STACK_DEPTH
  547.       parameter (GL_MAX_TEXTURE_STACK_DEPTH= 3385) 
  548.       integer*4  GL_MAX_ATTRIB_STACK_DEPTH
  549.       parameter (GL_MAX_ATTRIB_STACK_DEPTH= 3381) 
  550.       integer*4  GL_MAX_NAME_STACK_DEPTH
  551.       parameter (GL_MAX_NAME_STACK_DEPTH = 3383) 
  552.       integer*4  GL_MAX_LIST_NESTING
  553.       parameter (GL_MAX_LIST_NESTING = 2865) 
  554.       integer*4  GL_MAX_LIGHTS
  555.       parameter (GL_MAX_LIGHTS = 3377) 
  556.       integer*4  GL_MAX_CLIP_PLANES
  557.       parameter (GL_MAX_CLIP_PLANES = 3378) 
  558.       integer*4  GL_MAX_VIEWPORT_DIMS
  559.       parameter (GL_MAX_VIEWPORT_DIMS = 3386) 
  560.       integer*4  GL_MAX_PIXEL_MAP_TABLE
  561.       parameter (GL_MAX_PIXEL_MAP_TABLE = 3380) 
  562.       integer*4  GL_MAX_EVAL_ORDER
  563.       parameter (GL_MAX_EVAL_ORDER = 3376) 
  564.       integer*4  GL_MAX_TEXTURE_SIZE
  565.       parameter (GL_MAX_TEXTURE_SIZE = 3379) 
  566.  
  567. C Gets
  568.       integer*4  GL_ATTRIB_STACK_DEPTH
  569.       parameter (GL_ATTRIB_STACK_DEPTH = 2992) 
  570.       integer*4  GL_COLOR_CLEAR_VALUE
  571.       parameter (GL_COLOR_CLEAR_VALUE = 3106) 
  572.       integer*4  GL_COLOR_WRITEMASK
  573.       parameter (GL_COLOR_WRITEMASK = 3107) 
  574.       integer*4  GL_CURRENT_INDEX
  575.       parameter (GL_CURRENT_INDEX = 2817) 
  576.       integer*4  GL_CURRENT_COLOR
  577.       parameter (GL_CURRENT_COLOR = 2816) 
  578.       integer*4  GL_CURRENT_NORMAL
  579.       parameter (GL_CURRENT_NORMAL = 2818) 
  580.       integer*4  GL_CURRENT_RASTER_COLOR
  581.       parameter (GL_CURRENT_RASTER_COLOR = 2820) 
  582.       integer*4  GL_CURRENT_RASTER_DISTANCE
  583.       parameter (GL_CURRENT_RASTER_DISTANCE= 2825) 
  584.       integer*4  GL_CURRENT_RASTER_INDEX
  585.       parameter (GL_CURRENT_RASTER_INDEX = 2821) 
  586.       integer*4  GL_CURRENT_RASTER_POSITION
  587.       parameter (GL_CURRENT_RASTER_POSITION= 2823) 
  588.       integer*4  GL_CURRENT_RASTER_TEXTURE_COORDS
  589.       parameter (GL_CURRENT_RASTER_TEXTURE_COORDS = 2822)
  590.       integer*4  GL_CURRENT_RASTER_POSITION_VALID
  591.       parameter (GL_CURRENT_RASTER_POSITION_VALID = 2824) 
  592.       integer*4  GL_CURRENT_TEXTURE_COORDS
  593.       parameter (GL_CURRENT_TEXTURE_COORDS= 2819) 
  594.       integer*4  GL_INDEX_CLEAR_VALUE
  595.       parameter (GL_INDEX_CLEAR_VALUE = 3104) 
  596.       integer*4  GL_INDEX_MODE
  597.       parameter (GL_INDEX_MODE = 3120) 
  598.       integer*4  GL_INDEX_WRITEMASK
  599.       parameter (GL_INDEX_WRITEMASK = 3105) 
  600.       integer*4  GL_MODELVIEW_MATRIX
  601.       parameter (GL_MODELVIEW_MATRIX = 2982) 
  602.       integer*4  GL_MODELVIEW_STACK_DEPTH
  603.       parameter (GL_MODELVIEW_STACK_DEPTH= 2979) 
  604.       integer*4  GL_NAME_STACK_DEPTH
  605.       parameter (GL_NAME_STACK_DEPTH = 3440) 
  606.       integer*4  GL_PROJECTION_MATRIX
  607.       parameter (GL_PROJECTION_MATRIX = 2983) 
  608.       integer*4  GL_PROJECTION_STACK_DEPTH
  609.       parameter (GL_PROJECTION_STACK_DEPTH= 2980) 
  610.       integer*4  GL_RENDER_MODE
  611.       parameter (GL_RENDER_MODE = 3136) 
  612.       integer*4  GL_TEXTURE_MATRIX
  613.       parameter (GL_TEXTURE_MATRIX = 2984) 
  614.       integer*4  GL_TEXTURE_STACK_DEPTH
  615.       parameter (GL_TEXTURE_STACK_DEPTH = 2981) 
  616.       integer*4  GL_VIEWPORT
  617.       parameter (GL_VIEWPORT = 2978) 
  618.  
  619. C Evaluators
  620.       integer*4  GL_AUTO_NORMAL
  621.       parameter (GL_AUTO_NORMAL = 3456) 
  622.       integer*4  GL_MAP1_COLOR_4
  623.       parameter (GL_MAP1_COLOR_4 = 3472) 
  624.       integer*4  GL_MAP1_GRID_DOMAIN
  625.       parameter (GL_MAP1_GRID_DOMAIN = 3536) 
  626.  
  627.       integer*4  GL_MAP1_GRID_SEGMENTS
  628.       parameter (GL_MAP1_GRID_SEGMENTS = 3537) 
  629.       integer*4  GL_MAP1_INDEX
  630.       parameter (GL_MAP1_INDEX = 3473) 
  631.       integer*4  GL_MAP1_NORMAL
  632.       parameter (GL_MAP1_NORMAL = 3474) 
  633.       integer*4  GL_MAP1_TEXTURE_COORD_1
  634.       parameter (GL_MAP1_TEXTURE_COORD_1 = 3475) 
  635.  
  636.       integer*4  GL_MAP1_TEXTURE_COORD_2
  637.       parameter (GL_MAP1_TEXTURE_COORD_2 = 3476) 
  638.       integer*4  GL_MAP1_TEXTURE_COORD_3
  639.       parameter (GL_MAP1_TEXTURE_COORD_3 = 3477) 
  640.       integer*4  GL_MAP1_TEXTURE_COORD_4
  641.       parameter (GL_MAP1_TEXTURE_COORD_4 = 3478) 
  642.       integer*4  GL_MAP1_VERTEX_3
  643.       parameter (GL_MAP1_VERTEX_3 = 3479) 
  644.       integer*4  GL_MAP1_VERTEX_4
  645.       parameter (GL_MAP1_VERTEX_4 = 3480) 
  646.       integer*4  GL_MAP2_COLOR_4
  647.       parameter (GL_MAP2_COLOR_4 = 3504) 
  648.       integer*4  GL_MAP2_GRID_DOMAIN
  649.       parameter (GL_MAP2_GRID_DOMAIN = 3538) 
  650.       integer*4  GL_MAP2_GRID_SEGMENTS
  651.       parameter (GL_MAP2_GRID_SEGMENTS = 3539) 
  652.       integer*4  GL_MAP2_INDEX
  653.       parameter (GL_MAP2_INDEX = 3505) 
  654.       integer*4  GL_MAP2_NORMAL
  655.       parameter (GL_MAP2_NORMAL = 3506) 
  656.       integer*4  GL_MAP2_TEXTURE_COORD_1
  657.       parameter (GL_MAP2_TEXTURE_COORD_1 = 3507) 
  658.       integer*4  GL_MAP2_TEXTURE_COORD_2
  659.       parameter (GL_MAP2_TEXTURE_COORD_2 = 3508) 
  660.       integer*4  GL_MAP2_TEXTURE_COORD_3
  661.       parameter (GL_MAP2_TEXTURE_COORD_3 = 3509) 
  662.       integer*4  GL_MAP2_TEXTURE_COORD_4
  663.       parameter (GL_MAP2_TEXTURE_COORD_4 = 3510) 
  664.       integer*4  GL_MAP2_VERTEX_3
  665.       parameter (GL_MAP2_VERTEX_3 = 3511) 
  666.       integer*4  GL_MAP2_VERTEX_4
  667.       parameter (GL_MAP2_VERTEX_4 = 3512) 
  668.       integer*4  GL_COEFF
  669.       parameter (GL_COEFF = 2560) 
  670.       integer*4  GL_DOMAIN
  671.       parameter (GL_DOMAIN = 2562) 
  672.       integer*4  GL_ORDER
  673.       parameter (GL_ORDER = 2561) 
  674.  
  675. C Hints
  676.       integer*4  GL_FOG_HINT
  677.       parameter (GL_FOG_HINT = 3156) 
  678.       integer*4  GL_LINE_SMOOTH_HINT
  679.       parameter (GL_LINE_SMOOTH_HINT = 3154) 
  680.       integer*4  GL_PERSPECTIVE_CORRECTION_HINT
  681.       parameter (GL_PERSPECTIVE_CORRECTION_HINT= 3152) 
  682.       integer*4  GL_POINT_SMOOTH_HINT
  683.       parameter (GL_POINT_SMOOTH_HINT = 3153) 
  684.       integer*4  GL_POLYGON_SMOOTH_HINT
  685.       parameter (GL_POLYGON_SMOOTH_HINT = 3155) 
  686.       integer*4  GL_DONT_CARE
  687.       parameter (GL_DONT_CARE = 4352) 
  688.       integer*4  GL_FASTEST
  689.       parameter (GL_FASTEST = 4353) 
  690.       integer*4  GL_NICEST
  691.       parameter (GL_NICEST = 4354) 
  692.  
  693. C Scissor box
  694.       integer*4  GL_SCISSOR_TEST
  695.       parameter (GL_SCISSOR_TEST = 3089) 
  696.       integer*4  GL_SCISSOR_BOX
  697.       parameter (GL_SCISSOR_BOX = 3088) 
  698.  
  699. C Pixel Mode / Transfer
  700.       integer*4  GL_MAP_COLOR
  701.       parameter (GL_MAP_COLOR = 3344) 
  702.       integer*4  GL_MAP_STENCIL
  703.       parameter (GL_MAP_STENCIL = 3345) 
  704.       integer*4  GL_INDEX_SHIFT
  705.       parameter (GL_INDEX_SHIFT = 3346) 
  706.       integer*4  GL_INDEX_OFFSET
  707.       parameter (GL_INDEX_OFFSET = 3347) 
  708.       integer*4  GL_RED_SCALE
  709.       parameter (GL_RED_SCALE = 3348) 
  710.       integer*4  GL_RED_BIAS
  711.       parameter (GL_RED_BIAS = 3349) 
  712.       integer*4  GL_GREEN_SCALE
  713.       parameter (GL_GREEN_SCALE = 3352) 
  714.       integer*4  GL_GREEN_BIAS
  715.       parameter (GL_GREEN_BIAS = 3353) 
  716.       integer*4  GL_BLUE_SCALE
  717.       parameter (GL_BLUE_SCALE = 3354) 
  718.       integer*4  GL_BLUE_BIAS
  719.       parameter (GL_BLUE_BIAS = 3355) 
  720.       integer*4  GL_ALPHA_SCALE
  721.       parameter (GL_ALPHA_SCALE = 3356) 
  722.       integer*4  GL_ALPHA_BIAS
  723.       parameter (GL_ALPHA_BIAS = 3357) 
  724.       integer*4  GL_DEPTH_SCALE
  725.       parameter (GL_DEPTH_SCALE = 3358) 
  726.       integer*4  GL_DEPTH_BIAS
  727.       parameter (GL_DEPTH_BIAS = 3359) 
  728.       integer*4  GL_PIXEL_MAP_S_TO_S_SIZE
  729.       parameter (GL_PIXEL_MAP_S_TO_S_SIZE= 3249) 
  730.       integer*4  GL_PIXEL_MAP_I_TO_I_SIZE
  731.       parameter (GL_PIXEL_MAP_I_TO_I_SIZE= 3248) 
  732.       integer*4  GL_PIXEL_MAP_I_TO_R_SIZE
  733.       parameter (GL_PIXEL_MAP_I_TO_R_SIZE= 3250) 
  734.       integer*4  GL_PIXEL_MAP_I_TO_G_SIZE
  735.       parameter (GL_PIXEL_MAP_I_TO_G_SIZE= 3251) 
  736.       integer*4  GL_PIXEL_MAP_I_TO_B_SIZE
  737.       parameter (GL_PIXEL_MAP_I_TO_B_SIZE= 3252) 
  738.       integer*4  GL_PIXEL_MAP_I_TO_A_SIZE
  739.       parameter (GL_PIXEL_MAP_I_TO_A_SIZE= 3253) 
  740.       integer*4  GL_PIXEL_MAP_R_TO_R_SIZE
  741.       parameter (GL_PIXEL_MAP_R_TO_R_SIZE= 3254) 
  742.       integer*4  GL_PIXEL_MAP_G_TO_G_SIZE
  743.       parameter (GL_PIXEL_MAP_G_TO_G_SIZE= 3255) 
  744.       integer*4  GL_PIXEL_MAP_B_TO_B_SIZE
  745.       parameter (GL_PIXEL_MAP_B_TO_B_SIZE= 3256) 
  746.       integer*4  GL_PIXEL_MAP_A_TO_A_SIZE
  747.       parameter (GL_PIXEL_MAP_A_TO_A_SIZE= 3257) 
  748.       integer*4  GL_PIXEL_MAP_S_TO_S
  749.       parameter (GL_PIXEL_MAP_S_TO_S = 3185) 
  750.       integer*4  GL_PIXEL_MAP_I_TO_I
  751.       parameter (GL_PIXEL_MAP_I_TO_I = 3184) 
  752.       integer*4  GL_PIXEL_MAP_I_TO_R
  753.       parameter (GL_PIXEL_MAP_I_TO_R = 3186) 
  754.       integer*4  GL_PIXEL_MAP_I_TO_G
  755.       parameter (GL_PIXEL_MAP_I_TO_G = 3187) 
  756.       integer*4  GL_PIXEL_MAP_I_TO_B
  757.       parameter (GL_PIXEL_MAP_I_TO_B = 3188) 
  758.       integer*4  GL_PIXEL_MAP_I_TO_A
  759.       parameter (GL_PIXEL_MAP_I_TO_A = 3189) 
  760.       integer*4  GL_PIXEL_MAP_R_TO_R
  761.       parameter (GL_PIXEL_MAP_R_TO_R = 3190) 
  762.       integer*4  GL_PIXEL_MAP_G_TO_G
  763.       parameter (GL_PIXEL_MAP_G_TO_G = 3191) 
  764.       integer*4  GL_PIXEL_MAP_B_TO_B
  765.       parameter (GL_PIXEL_MAP_B_TO_B = 3192) 
  766.       integer*4  GL_PIXEL_MAP_A_TO_A
  767.       parameter (GL_PIXEL_MAP_A_TO_A = 3193) 
  768.       integer*4  GL_PACK_ALIGNMENT
  769.       parameter (GL_PACK_ALIGNMENT = 3333) 
  770.       integer*4  GL_PACK_LSB_FIRST
  771.       parameter (GL_PACK_LSB_FIRST = 3329) 
  772.       integer*4  GL_PACK_ROW_LENGTH
  773.       parameter (GL_PACK_ROW_LENGTH = 3330) 
  774.       integer*4  GL_PACK_SKIP_PIXELS
  775.       parameter (GL_PACK_SKIP_PIXELS = 3332) 
  776.       integer*4  GL_PACK_SKIP_ROWS
  777.       parameter (GL_PACK_SKIP_ROWS = 3331) 
  778.       integer*4  GL_PACK_SWAP_BYTES
  779.       parameter (GL_PACK_SWAP_BYTES = 3328) 
  780.       integer*4  GL_UNPACK_ALIGNMENT
  781.       parameter (GL_UNPACK_ALIGNMENT = 3317) 
  782.       integer*4  GL_UNPACK_LSB_FIRST
  783.       parameter (GL_UNPACK_LSB_FIRST = 3313) 
  784.       integer*4  GL_UNPACK_ROW_LENGTH
  785.       parameter (GL_UNPACK_ROW_LENGTH = 3314) 
  786.       integer*4  GL_UNPACK_SKIP_PIXELS
  787.       parameter (GL_UNPACK_SKIP_PIXELS = 3316) 
  788.       integer*4  GL_UNPACK_SKIP_ROWS
  789.       parameter (GL_UNPACK_SKIP_ROWS = 3315) 
  790.       integer*4  GL_UNPACK_SWAP_BYTES
  791.       parameter (GL_UNPACK_SWAP_BYTES = 3312) 
  792.       integer*4  GL_ZOOM_X
  793.       parameter (GL_ZOOM_X = 3350) 
  794.       integer*4  GL_ZOOM_Y
  795.       parameter (GL_ZOOM_Y = 3351) 
  796.  
  797. C Texture mapping
  798.       integer*4  GL_TEXTURE_ENV
  799.       parameter (GL_TEXTURE_ENV = 8960) 
  800.       integer*4  GL_TEXTURE_ENV_MODE
  801.       parameter (GL_TEXTURE_ENV_MODE = 8704) 
  802.       integer*4  GL_TEXTURE_1D
  803.       parameter (GL_TEXTURE_1D = 3552) 
  804.       integer*4  GL_TEXTURE_2D
  805.       parameter (GL_TEXTURE_2D = 3553) 
  806.       integer*4  GL_TEXTURE_WRAP_S
  807.       parameter (GL_TEXTURE_WRAP_S = 10242) 
  808.       integer*4  GL_TEXTURE_WRAP_T
  809.       parameter (GL_TEXTURE_WRAP_T = 10243) 
  810.       integer*4  GL_TEXTURE_MAG_FILTER
  811.       parameter (GL_TEXTURE_MAG_FILTER = 10240) 
  812.       integer*4  GL_TEXTURE_MIN_FILTER
  813.       parameter (GL_TEXTURE_MIN_FILTER = 10241) 
  814.       integer*4  GL_TEXTURE_ENV_COLOR
  815.       parameter (GL_TEXTURE_ENV_COLOR = 8705) 
  816.       integer*4  GL_TEXTURE_GEN_S
  817.       parameter (GL_TEXTURE_GEN_S = 3168) 
  818.       integer*4  GL_TEXTURE_GEN_T
  819.       parameter (GL_TEXTURE_GEN_T = 3169) 
  820.       integer*4  GL_TEXTURE_GEN_MODE
  821.       parameter (GL_TEXTURE_GEN_MODE = 9472) 
  822.       integer*4  GL_TEXTURE_BORDER_COLOR
  823.       parameter (GL_TEXTURE_BORDER_COLOR = 4100) 
  824.       integer*4  GL_TEXTURE_WIDTH
  825.       parameter (GL_TEXTURE_WIDTH = 4096) 
  826.       integer*4  GL_TEXTURE_HEIGHT
  827.       parameter (GL_TEXTURE_HEIGHT = 4097) 
  828.       integer*4  GL_TEXTURE_BORDER
  829.       parameter (GL_TEXTURE_BORDER = 4101) 
  830.       integer*4  GL_TEXTURE_COMPONENTS
  831.       parameter (GL_TEXTURE_COMPONENTS = 4099) 
  832.       integer*4  GL_NEAREST_MIPMAP_NEAREST
  833.       parameter (GL_NEAREST_MIPMAP_NEAREST = 9984) 
  834.       integer*4  GL_NEAREST_MIPMAP_LINEAR
  835.       parameter (GL_NEAREST_MIPMAP_LINEAR = 9986) 
  836.       integer*4  GL_LINEAR_MIPMAP_NEAREST
  837.       parameter (GL_LINEAR_MIPMAP_NEAREST = 9985) 
  838.       integer*4  GL_LINEAR_MIPMAP_LINEAR
  839.       parameter (GL_LINEAR_MIPMAP_LINEAR = 9987) 
  840.       integer*4  GL_OBJECT_LINEAR
  841.       parameter (GL_OBJECT_LINEAR = 9217) 
  842.       integer*4  GL_OBJECT_PLANE
  843.       parameter (GL_OBJECT_PLANE = 9473) 
  844.       integer*4  GL_EYE_LINEAR
  845.       parameter (GL_EYE_LINEAR = 9216) 
  846.       integer*4  GL_EYE_PLANE
  847.       parameter (GL_EYE_PLANE = 9474) 
  848.       integer*4  GL_SPHERE_MAP
  849.       parameter (GL_SPHERE_MAP = 9218) 
  850.       integer*4  GL_DECAL
  851.       parameter (GL_DECAL = 8449) 
  852.       integer*4  GL_MODULATE
  853.       parameter (GL_MODULATE = 8448) 
  854.       integer*4  GL_NEAREST
  855.       parameter (GL_NEAREST = 9728) 
  856.       integer*4  GL_REPEAT
  857.       parameter (GL_REPEAT = 10497) 
  858.       integer*4  GL_CLAMP
  859.       parameter (GL_CLAMP = 10496) 
  860.       integer*4  GL_S
  861.       parameter (GL_S = 8192) 
  862.       integer*4  GL_T
  863.       parameter (GL_T = 8193) 
  864.       integer*4  GL_R
  865.       parameter (GL_R = 8194) 
  866.       integer*4  GL_Q
  867.       parameter (GL_Q = 8195) 
  868.       integer*4  GL_TEXTURE_GEN_R
  869.       parameter (GL_TEXTURE_GEN_R = 3170) 
  870.       integer*4  GL_TEXTURE_GEN_Q
  871.       parameter (GL_TEXTURE_GEN_Q = 3171) 
  872.  
  873. C Utility
  874.       integer*4  GL_VENDOR
  875.       parameter (GL_VENDOR = 7936) 
  876.       integer*4  GL_RENDERER
  877.       parameter (GL_RENDERER = 7937) 
  878.       integer*4  GL_VERSION
  879.       parameter (GL_VERSION = 7938) 
  880.       integer*4  GL_EXTENSIONS
  881.       parameter (GL_EXTENSIONS = 7939) 
  882.  
  883. C Errors
  884.       integer*4  GL_INVALID_VALUE
  885.       parameter (GL_INVALID_VALUE = 1281) 
  886.       integer*4  GL_INVALID_ENUM
  887.       parameter (GL_INVALID_ENUM = 1280) 
  888.       integer*4  GL_INVALID_OPERATION
  889.       parameter (GL_INVALID_OPERATION = 1282) 
  890.       integer*4  GL_STACK_OVERFLOW
  891.       parameter (GL_STACK_OVERFLOW = 1283) 
  892.       integer*4  GL_STACK_UNDERFLOW
  893.       parameter (GL_STACK_UNDERFLOW = 1284) 
  894.       integer*4  GL_OUT_OF_MEMORY
  895.       parameter (GL_OUT_OF_MEMORY = 1285) 
  896.  
  897. C Extensions
  898.       integer*4  GL_CONSTANT_COLOR_EXT
  899.       parameter (GL_CONSTANT_COLOR_EXT = 32769) 
  900.       integer*4  GL_ONE_MINUS_CONSTANT_COLOR_EXT
  901.       parameter (GL_ONE_MINUS_CONSTANT_COLOR_EXT= 32770) 
  902.       integer*4  GL_CONSTANT_ALPHA_EXT
  903.       parameter (GL_CONSTANT_ALPHA_EXT = 32771) 
  904.       integer*4  GL_ONE_MINUS_CONSTANT_ALPHA_EXT
  905.       parameter (GL_ONE_MINUS_CONSTANT_ALPHA_EXT= 32772) 
  906.       integer*4  GL_BLEND_EQUATION_EXT
  907.       parameter (GL_BLEND_EQUATION_EXT = 32777) 
  908.       integer*4  GL_MIN_EXT
  909.       parameter (GL_MIN_EXT = 32775) 
  910.       integer*4  GL_MAX_EXT
  911.       parameter (GL_MAX_EXT = 32776) 
  912.       integer*4  GL_FUNC_ADD_EXT
  913.       parameter (GL_FUNC_ADD_EXT = 32774) 
  914.       integer*4  GL_FUNC_SUBTRACT_EXT
  915.       parameter (GL_FUNC_SUBTRACT_EXT = 32778) 
  916.       integer*4  GL_FUNC_REVERSE_SUBTRACT_EXT
  917.       parameter (GL_FUNC_REVERSE_SUBTRACT_EXT= 32779) 
  918.       integer*4  GL_BLEND_COLOR_EXT
  919.       parameter (GL_BLEND_COLOR_EXT = 32773) 
  920.       integer*4  GL_REPLACE_EXT
  921.       parameter (GL_REPLACE_EXT = 2054) 
  922.  
  923.  
  924.       integer*4  GL_NO_ERROR
  925.       parameter (GL_NO_ERROR = 0)
  926.  
  927.  
  928.  
  929. C GLbitfield values
  930.        integer*4  GL_CURRENT_BIT
  931.        parameter (GL_CURRENT_BIT = 1)
  932.        integer*4  GL_POINT_BIT
  933.        parameter (GL_POINT_BIT = 2)
  934.        integer*4  GL_LINE_BIT
  935.        parameter (GL_LINE_BIT = 4)
  936.        integer*4  GL_POLYGON_BIT
  937.        parameter (GL_POLYGON_BIT = 8)
  938.        integer*4  GL_POLYGON_STIPPLE_BIT
  939.        parameter (GL_POLYGON_STIPPLE_BIT = 16)
  940.        integer*4  GL_PIXEL_MODE_BIT
  941.        parameter (GL_PIXEL_MODE_BIT = 32)
  942.        integer*4  GL_LIGHTING_BIT
  943.        parameter (GL_LIGHTING_BIT = 64)
  944.        integer*4  GL_FOG_BIT
  945.        parameter (GL_FOG_BIT = 128)
  946.        integer*4  GL_DEPTH_BUFFER_BIT
  947.        parameter (GL_DEPTH_BUFFER_BIT = 256)
  948.        integer*4  GL_ACCUM_BUFFER_BIT
  949.        parameter (GL_ACCUM_BUFFER_BIT = 512)
  950.        integer*4  GL_STENCIL_BUFFER_BIT
  951.        parameter (GL_STENCIL_BUFFER_BIT = 1024)
  952.        integer*4  GL_VIEWPORT_BIT
  953.        parameter (GL_VIEWPORT_BIT = 2048)
  954.        integer*4  GL_TRANSFORM_BIT
  955.        parameter (GL_TRANSFORM_BIT = 4096)
  956.        integer*4  GL_ENABLE_BIT
  957.        parameter (GL_ENABLE_BIT = 8192)
  958.        integer*4  GL_COLOR_BUFFER_BIT
  959.        parameter (GL_COLOR_BUFFER_BIT = 16384)
  960.        integer*4  GL_HINT_BIT
  961.        parameter (GL_HINT_BIT = 32768)
  962.        integer*4  GL_EVAL_BIT
  963.        parameter (GL_EVAL_BIT = 65536)
  964.        integer*4  GL_LIST_BIT
  965.        parameter (GL_LIST_BIT = 131072)
  966.        integer*4  GL_TEXTURE_BIT
  967.        parameter (GL_TEXTURE_BIT = 262144)
  968.        integer*4  GL_SCISSOR_BIT
  969.        parameter (GL_SCISSOR_BIT = 524288)
  970.        integer*4  GL_ALL_ATTRIB_BITS
  971.        parameter (GL_ALL_ATTRIB_BITS = 1048575)
  972.  
  973.  
  974.  
  975.  
  976. C
  977. C Notes on subroutine parameters:
  978. C   1. Each Fortran API subroutine is named just like its C counterpart
  979. C      except that each subroutine is prefixed with "fgl" instead of "gl".
  980. C   2. The following table shows the translation of parameter types from
  981. C      C to Fortran:
  982. C
  983. C        C GL<type>         Fortran
  984. C        -------------      ----------
  985. C        GLboolean          logical*1
  986. C        GLbyte             integer*1
  987. C        GLubyte            integer*1
  988. C        GLshort            integer*2
  989. C        GLushort           integer*2
  990. C        GLint              integer*4
  991. C        GLuint             integer*4
  992. C        GLenum             integer*4
  993. C        GLsizei            integer*4
  994. C        GLfloat            real*4
  995. C        GLclampf           real*4
  996. C        GLdouble           real*8
  997. C        GLclampd           real*8
  998. C        any pointer        character*8
  999. C
  1000. C
  1001. C
  1002. C   Examples of C API calls and their corresponding Fortran API calls:
  1003. C
  1004. C   C:        glBegin( GL_POINTS );
  1005. C
  1006. C   Fortran:  call fglBegin( GL_POINTS )
  1007. C
  1008. C
  1009. C   C:        GLfloat pos[4] = {10.0, 3.0, 2.0, 1.0};
  1010. C             ...
  1011. C             glLightfv( GL_LIGHT2, GL_POSITION, pos );
  1012. C
  1013. C   Fortran:  real*4 pos(4)
  1014. C             pos(1) = 10.0
  1015. C             pos(2) = 3.0
  1016. C             pos(3) = 2.0
  1017. C             pos(4) = 1.0
  1018. C             ...
  1019. C             call fglLightfv( GL_LIGHT2, GL_POSITION, pos )
  1020. C
  1021. C
  1022. C
  1023. C
  1024. C   Examples of some Fortran pseudo-prototypes
  1025. C
  1026. C
  1027. C     subroutine fglAccum( integer*4 op, real*4 value )
  1028. C     subroutine fglVertex2d( real*8 x, real*8 y )
  1029. C     subroutine fglLightfv( integer*4 light, integer*4 pname,
  1030. C                            character*8 params )
  1031.  
  1032.  
  1033.  
  1034. C
  1035. C These are the only functions in the Fortran API which return values
  1036. C
  1037.  
  1038. C     integer*4 function fglGenLists( integer*4 range )
  1039.       integer*4          fglGenLists
  1040.  
  1041. C     integer*4 function fglGetError()
  1042.       integer*4          fglGetError
  1043.  
  1044. C     character*256 function fglGetString( integer*4 name )
  1045.       character*256          fglGetString
  1046.  
  1047. C     logical*1 function fglIsEnabled( integer*4 cap )
  1048.       logical*1          fglIsEnabled
  1049.  
  1050. C     logical*1 function fglIsList( integer*4 list )
  1051.       logical*1          fglIsList
  1052.  
  1053. C     integer*4 function fglRenderMode( integer*4 mode )
  1054.       integer*4          fglRenderMode
  1055.