This is fgl.h in view mode; [Download] [Up]
C $Id: fgl.h,v 1.1 1996/09/13 01:26:41 brianp Exp $
C
C Mesa 3-D graphics library
C Version: 2.0
C Copyright (C) 1995-1996 Brian Paul
C
C This library is free software; you can redistribute it and/or
C modify it under the terms of the GNU Library General Public
C License as published by the Free Software Foundation; either
C version 2 of the License, or (at your option) any later version.
C
C This library is distributed in the hope that it will be useful,
C but WITHOUT ANY WARRANTY; without even the implied warranty of
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
C Library General Public License for more details.
C
C You should have received a copy of the GNU Library General Public
C License along with this library; if not, write to the Free
C Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
C $Log: fgl.h,v $
C Revision 1.1 1996/09/13 01:26:41 brianp
C Initial revision
C
C
C Fortran Mesa header for GL functions
C
C Note: this file was generated from the gl.h file using Emacs macros
C and a small C utility. There may be some errors or omissions!
C
C Boolean values
integer*4 GL_FALSE
parameter (GL_FALSE = 0)
integer*4 GL_TRUE
parameter (GL_TRUE = 1)
C Data types
integer*4 GL_BYTE
parameter (GL_BYTE = 5120)
integer*4 GL_UNSIGNED_BYTE
parameter (GL_UNSIGNED_BYTE = 5121)
integer*4 GL_SHORT
parameter (GL_SHORT = 5122)
integer*4 GL_UNSIGNED_SHORT
parameter (GL_UNSIGNED_SHORT = 5123)
integer*4 GL_INT
parameter (GL_INT = 5124)
integer*4 GL_UNSIGNED_INT
parameter (GL_UNSIGNED_INT = 5125)
integer*4 GL_FLOAT
parameter (GL_FLOAT = 5126)
integer*4 GL_2_BYTES
parameter (GL_2_BYTES = 5127)
integer*4 GL_3_BYTES
parameter (GL_3_BYTES = 5128)
integer*4 GL_4_BYTES
parameter (GL_4_BYTES = 5129)
C
C GLenum values
C
C Primitives
integer*4 GL_POINTS
parameter (GL_POINTS = 0)
integer*4 GL_LINES
parameter (GL_LINES = 1)
integer*4 GL_LINE_LOOP
parameter (GL_LINE_LOOP = 2)
integer*4 GL_LINE_STRIP
parameter (GL_LINE_STRIP = 3)
integer*4 GL_TRIANGLES
parameter (GL_TRIANGLES = 4)
integer*4 GL_TRIANGLE_STRIP
parameter (GL_TRIANGLE_STRIP = 5)
integer*4 GL_TRIANGLE_FAN
parameter (GL_TRIANGLE_FAN = 6)
integer*4 GL_QUADS
parameter (GL_QUADS = 7)
integer*4 GL_QUAD_STRIP
parameter (GL_QUAD_STRIP = 8)
integer*4 GL_POLYGON
parameter (GL_POLYGON = 9)
C Matrix Mode
integer*4 GL_MATRIX_MODE
parameter (GL_MATRIX_MODE = 2976)
integer*4 GL_MODELVIEW
parameter (GL_MODELVIEW = 5888)
integer*4 GL_PROJECTION
parameter (GL_PROJECTION = 5889)
integer*4 GL_TEXTURE
parameter (GL_TEXTURE = 5890)
C Points
integer*4 GL_POINT_SMOOTH
parameter (GL_POINT_SMOOTH = 2832)
integer*4 GL_POINT_SIZE
parameter (GL_POINT_SIZE = 2833)
integer*4 GL_POINT_SIZE_GRANULARITY
parameter (GL_POINT_SIZE_GRANULARITY = 2835)
integer*4 GL_POINT_SIZE_RANGE
parameter (GL_POINT_SIZE_RANGE = 2834)
C Lines
integer*4 GL_LINE_SMOOTH
parameter (GL_LINE_SMOOTH = 2848)
integer*4 GL_LINE_STIPPLE
parameter (GL_LINE_STIPPLE = 2852)
integer*4 GL_LINE_STIPPLE_PATTERN
parameter (GL_LINE_STIPPLE_PATTERN = 2853)
integer*4 GL_LINE_STIPPLE_REPEAT
parameter (GL_LINE_STIPPLE_REPEAT = 2854)
integer*4 GL_LINE_WIDTH
parameter (GL_LINE_WIDTH = 2849)
integer*4 GL_LINE_WIDTH_GRANULARITY
parameter (GL_LINE_WIDTH_GRANULARITY= 2851)
integer*4 GL_LINE_WIDTH_RANGE
parameter (GL_LINE_WIDTH_RANGE = 2850)
C Polygons
integer*4 GL_POINT
parameter (GL_POINT = 6912)
integer*4 GL_LINE
parameter (GL_LINE = 6913)
integer*4 GL_FILL
parameter (GL_FILL = 6914)
integer*4 GL_CCW
parameter (GL_CCW = 2305)
integer*4 GL_CW
parameter (GL_CW = 2304)
integer*4 GL_FRONT
parameter (GL_FRONT = 1028)
integer*4 GL_BACK
parameter (GL_BACK = 1029)
integer*4 GL_CULL_FACE
parameter (GL_CULL_FACE = 2884)
integer*4 GL_CULL_FACE_MODE
parameter (GL_CULL_FACE_MODE = 2885)
integer*4 GL_POLYGON_SMOOTH
parameter (GL_POLYGON_SMOOTH = 2881)
integer*4 GL_POLYGON_STIPPLE
parameter (GL_POLYGON_STIPPLE = 2882)
integer*4 GL_FRONT_FACE
parameter (GL_FRONT_FACE = 2886)
integer*4 GL_POLYGON_MODE
parameter (GL_POLYGON_MODE = 2880)
C Display Lists
integer*4 GL_COMPILE
parameter (GL_COMPILE = 4864)
integer*4 GL_COMPILE_AND_EXECUTE
parameter (GL_COMPILE_AND_EXECUTE = 4865)
integer*4 GL_LIST_BASE
parameter (GL_LIST_BASE = 2866)
integer*4 GL_LIST_INDEX
parameter (GL_LIST_INDEX = 2867)
integer*4 GL_LIST_MODE
parameter (GL_LIST_MODE = 2864)
C Depth buffer
integer*4 GL_NEVER
parameter (GL_NEVER = 512)
integer*4 GL_LESS
parameter (GL_LESS = 513)
integer*4 GL_GEQUAL
parameter (GL_GEQUAL = 518)
integer*4 GL_LEQUAL
parameter (GL_LEQUAL = 515)
integer*4 GL_GREATER
parameter (GL_GREATER = 516)
integer*4 GL_NOTEQUAL
parameter (GL_NOTEQUAL = 517)
integer*4 GL_EQUAL
parameter (GL_EQUAL = 514)
integer*4 GL_ALWAYS
parameter (GL_ALWAYS = 519)
integer*4 GL_DEPTH_TEST
parameter (GL_DEPTH_TEST = 2929)
integer*4 GL_DEPTH_BITS
parameter (GL_DEPTH_BITS = 3414)
integer*4 GL_DEPTH_CLEAR_VALUE
parameter (GL_DEPTH_CLEAR_VALUE = 2931)
integer*4 GL_DEPTH_FUNC
parameter (GL_DEPTH_FUNC = 2932)
integer*4 GL_DEPTH_RANGE
parameter (GL_DEPTH_RANGE = 2928)
integer*4 GL_DEPTH_WRITEMASK
parameter (GL_DEPTH_WRITEMASK = 2930)
integer*4 GL_DEPTH_COMPONENT
parameter (GL_DEPTH_COMPONENT = 6402)
C Lighting
integer*4 GL_LIGHTING
parameter (GL_LIGHTING = 2896)
integer*4 GL_LIGHT0
parameter (GL_LIGHT0 = 16384)
integer*4 GL_LIGHT1
parameter (GL_LIGHT1 = 16385)
integer*4 GL_LIGHT2
parameter (GL_LIGHT2 = 16386)
integer*4 GL_LIGHT3
parameter (GL_LIGHT3 = 16387)
integer*4 GL_LIGHT4
parameter (GL_LIGHT4 = 16388)
integer*4 GL_LIGHT5
parameter (GL_LIGHT5 = 16389)
integer*4 GL_LIGHT6
parameter (GL_LIGHT6 = 16390)
integer*4 GL_LIGHT7
parameter (GL_LIGHT7 = 16391)
integer*4 GL_SPOT_EXPONENT
parameter (GL_SPOT_EXPONENT = 4613)
integer*4 GL_SPOT_CUTOFF
parameter (GL_SPOT_CUTOFF = 4614)
integer*4 GL_CONSTANT_ATTENUATION
parameter (GL_CONSTANT_ATTENUATION = 4615)
integer*4 GL_LINEAR_ATTENUATION
parameter (GL_LINEAR_ATTENUATION = 4616)
integer*4 GL_QUADRATIC_ATTENUATION
parameter (GL_QUADRATIC_ATTENUATION= 4617)
integer*4 GL_AMBIENT
parameter (GL_AMBIENT = 4608)
integer*4 GL_DIFFUSE
parameter (GL_DIFFUSE = 4609)
integer*4 GL_SPECULAR
parameter (GL_SPECULAR = 4610)
integer*4 GL_SHININESS
parameter (GL_SHININESS = 5633)
integer*4 GL_EMISSION
parameter (GL_EMISSION = 5632)
integer*4 GL_POSITION
parameter (GL_POSITION = 4611)
integer*4 GL_SPOT_DIRECTION
parameter (GL_SPOT_DIRECTION = 4612)
integer*4 GL_AMBIENT_AND_DIFFUSE
parameter (GL_AMBIENT_AND_DIFFUSE = 5634)
integer*4 GL_COLOR_INDEXES
parameter (GL_COLOR_INDEXES = 5635)
integer*4 GL_LIGHT_MODEL_TWO_SIDE
parameter (GL_LIGHT_MODEL_TWO_SIDE = 2898)
integer*4 GL_LIGHT_MODEL_LOCAL_VIEWER
parameter (GL_LIGHT_MODEL_LOCAL_VIEWER= 2897)
integer*4 GL_LIGHT_MODEL_AMBIENT
parameter (GL_LIGHT_MODEL_AMBIENT = 2899)
integer*4 GL_FRONT_AND_BACK
parameter (GL_FRONT_AND_BACK = 1032)
integer*4 GL_SHADE_MODEL
parameter (GL_SHADE_MODEL = 2900)
integer*4 GL_FLAT
parameter (GL_FLAT = 7424)
integer*4 GL_SMOOTH
parameter (GL_SMOOTH = 7425)
integer*4 GL_COLOR_MATERIAL
parameter (GL_COLOR_MATERIAL = 2903)
integer*4 GL_COLOR_MATERIAL_FACE
parameter (GL_COLOR_MATERIAL_FACE = 2901)
integer*4 GL_COLOR_MATERIAL_PARAMETER
parameter (GL_COLOR_MATERIAL_PARAMETER= 2902)
integer*4 GL_NORMALIZE
parameter (GL_NORMALIZE = 2977)
C User clipping planes
integer*4 GL_CLIP_PLANE0
parameter (GL_CLIP_PLANE0 = 12288)
integer*4 GL_CLIP_PLANE1
parameter (GL_CLIP_PLANE1 = 12289)
integer*4 GL_CLIP_PLANE2
parameter (GL_CLIP_PLANE2 = 12290)
integer*4 GL_CLIP_PLANE3
parameter (GL_CLIP_PLANE3 = 12291)
integer*4 GL_CLIP_PLANE4
parameter (GL_CLIP_PLANE4 = 12292)
integer*4 GL_CLIP_PLANE5
parameter (GL_CLIP_PLANE5 = 12293)
C Accumulation buffer
integer*4 GL_ACCUM_RED_BITS
parameter (GL_ACCUM_RED_BITS = 3416)
integer*4 GL_ACCUM_GREEN_BITS
parameter (GL_ACCUM_GREEN_BITS = 3417)
integer*4 GL_ACCUM_BLUE_BITS
parameter (GL_ACCUM_BLUE_BITS = 3418)
integer*4 GL_ACCUM_ALPHA_BITS
parameter (GL_ACCUM_ALPHA_BITS = 3419)
integer*4 GL_ACCUM_CLEAR_VALUE
parameter (GL_ACCUM_CLEAR_VALUE = 2944)
integer*4 GL_ACCUM
parameter (GL_ACCUM = 256)
integer*4 GL_ADD
parameter (GL_ADD = 260)
integer*4 GL_LOAD
parameter (GL_LOAD = 257)
integer*4 GL_MULT
parameter (GL_MULT = 259)
integer*4 GL_RETURN
parameter (GL_RETURN = 258)
C Alpha testing
integer*4 GL_ALPHA_TEST
parameter (GL_ALPHA_TEST = 3008)
integer*4 GL_ALPHA_TEST_REF
parameter (GL_ALPHA_TEST_REF = 3010)
integer*4 GL_ALPHA_TEST_FUNC
parameter (GL_ALPHA_TEST_FUNC = 3009)
C Blending
integer*4 GL_BLEND
parameter (GL_BLEND = 3042)
integer*4 GL_BLEND_SRC
parameter (GL_BLEND_SRC = 3041)
integer*4 GL_BLEND_DST
parameter (GL_BLEND_DST = 3040)
integer*4 GL_ZERO
parameter (GL_ZERO = 0)
integer*4 GL_ONE
parameter (GL_ONE = 1)
integer*4 GL_SRC_COLOR
parameter (GL_SRC_COLOR = 768)
integer*4 GL_ONE_MINUS_SRC_COLOR
parameter (GL_ONE_MINUS_SRC_COLOR = 769)
integer*4 GL_DST_COLOR
parameter (GL_DST_COLOR = 774)
integer*4 GL_ONE_MINUS_DST_COLOR
parameter (GL_ONE_MINUS_DST_COLOR = 775)
integer*4 GL_SRC_ALPHA
parameter (GL_SRC_ALPHA = 770)
integer*4 GL_ONE_MINUS_SRC_ALPHA
parameter (GL_ONE_MINUS_SRC_ALPHA = 771)
integer*4 GL_DST_ALPHA
parameter (GL_DST_ALPHA = 772)
integer*4 GL_ONE_MINUS_DST_ALPHA
parameter (GL_ONE_MINUS_DST_ALPHA = 773)
integer*4 GL_SRC_ALPHA_SATURATE
parameter (GL_SRC_ALPHA_SATURATE = 776)
C Render Mode
integer*4 GL_FEEDBACK
parameter (GL_FEEDBACK = 7169)
integer*4 GL_RENDER
parameter (GL_RENDER = 7168)
integer*4 GL_SELECT
parameter (GL_SELECT = 7170)
C Feedback
integer*4 GL_2D
parameter (GL_2D = 1536)
integer*4 GL_3D
parameter (GL_3D = 1537)
integer*4 GL_3D_COLOR
parameter (GL_3D_COLOR = 1538)
integer*4 GL_3D_COLOR_TEXTURE
parameter (GL_3D_COLOR_TEXTURE = 1539)
integer*4 GL_4D_COLOR_TEXTURE
parameter (GL_4D_COLOR_TEXTURE = 1540)
integer*4 GL_POINT_TOKEN
parameter (GL_POINT_TOKEN = 1793)
integer*4 GL_LINE_TOKEN
parameter (GL_LINE_TOKEN = 1794)
integer*4 GL_LINE_RESET_TOKEN
parameter (GL_LINE_RESET_TOKEN = 1799)
integer*4 GL_POLYGON_TOKEN
parameter (GL_POLYGON_TOKEN = 1795)
integer*4 GL_BITMAP_TOKEN
parameter (GL_BITMAP_TOKEN = 1796)
integer*4 GL_DRAW_PIXEL_TOKEN
parameter (GL_DRAW_PIXEL_TOKEN = 1797)
integer*4 GL_COPY_PIXEL_TOKEN
parameter (GL_COPY_PIXEL_TOKEN = 1798)
integer*4 GL_PASS_THROUGH_TOKEN
parameter (GL_PASS_THROUGH_TOKEN = 1792)
C Fog
integer*4 GL_FOG
parameter (GL_FOG = 2912)
integer*4 GL_FOG_MODE
parameter (GL_FOG_MODE = 2917)
integer*4 GL_FOG_DENSITY
parameter (GL_FOG_DENSITY = 2914)
integer*4 GL_FOG_COLOR
parameter (GL_FOG_COLOR = 2918)
integer*4 GL_FOG_INDEX
parameter (GL_FOG_INDEX = 2913)
integer*4 GL_FOG_START
parameter (GL_FOG_START = 2915)
integer*4 GL_FOG_END
parameter (GL_FOG_END = 2916)
integer*4 GL_LINEAR
parameter (GL_LINEAR = 9729)
integer*4 GL_EXP
parameter (GL_EXP = 2048)
integer*4 GL_EXP2
parameter (GL_EXP2 = 2049)
C Logic Ops
integer*4 GL_LOGIC_OP
parameter (GL_LOGIC_OP = 3057)
integer*4 GL_LOGIC_OP_MODE
parameter (GL_LOGIC_OP_MODE = 3056)
integer*4 GL_CLEAR
parameter (GL_CLEAR = 5376)
integer*4 GL_SET
parameter (GL_SET = 5391)
integer*4 GL_COPY
parameter (GL_COPY = 5379)
integer*4 GL_COPY_INVERTED
parameter (GL_COPY_INVERTED = 5388)
integer*4 GL_NOOP
parameter (GL_NOOP = 5381)
integer*4 GL_INVERT
parameter (GL_INVERT = 5386)
integer*4 GL_AND
parameter (GL_AND = 5377)
integer*4 GL_NAND
parameter (GL_NAND = 5390)
integer*4 GL_OR
parameter (GL_OR = 5383)
integer*4 GL_NOR
parameter (GL_NOR = 5384)
integer*4 GL_XOR
parameter (GL_XOR = 5382)
integer*4 GL_EQUIV
parameter (GL_EQUIV = 5385)
integer*4 GL_AND_REVERSE
parameter (GL_AND_REVERSE = 5378)
integer*4 GL_AND_INVERTED
parameter (GL_AND_INVERTED = 5380)
integer*4 GL_OR_REVERSE
parameter (GL_OR_REVERSE = 5387)
integer*4 GL_OR_INVERTED
parameter (GL_OR_INVERTED = 5389)
C Stencil
integer*4 GL_STENCIL_TEST
parameter (GL_STENCIL_TEST = 2960)
integer*4 GL_STENCIL_WRITEMASK
parameter (GL_STENCIL_WRITEMASK = 2968)
integer*4 GL_STENCIL_BITS
parameter (GL_STENCIL_BITS = 3415)
integer*4 GL_STENCIL_FUNC
parameter (GL_STENCIL_FUNC = 2962)
integer*4 GL_STENCIL_VALUE_MASK
parameter (GL_STENCIL_VALUE_MASK = 2963)
integer*4 GL_STENCIL_REF
parameter (GL_STENCIL_REF = 2967)
integer*4 GL_STENCIL_FAIL
parameter (GL_STENCIL_FAIL = 2964)
integer*4 GL_STENCIL_PASS_DEPTH_PASS
parameter (GL_STENCIL_PASS_DEPTH_PASS= 2966)
integer*4 GL_STENCIL_PASS_DEPTH_FAIL
parameter (GL_STENCIL_PASS_DEPTH_FAIL= 2965)
integer*4 GL_STENCIL_CLEAR_VALUE
parameter (GL_STENCIL_CLEAR_VALUE = 2961)
integer*4 GL_STENCIL_INDEX
parameter (GL_STENCIL_INDEX = 6401)
integer*4 GL_KEEP
parameter (GL_KEEP = 7680)
integer*4 GL_REPLACE
parameter (GL_REPLACE = 7681)
integer*4 GL_INCR
parameter (GL_INCR = 7682)
integer*4 GL_DECR
parameter (GL_DECR = 7683)
C Buffers, Pixel Drawing/Reading
integer*4 GL_NONE
parameter (GL_NONE = 0)
integer*4 GL_LEFT
parameter (GL_LEFT = 1030)
integer*4 GL_RIGHT
parameter (GL_RIGHT = 1031)
integer*4 GL_FRONT_LEFT
parameter (GL_FRONT_LEFT = 1024)
integer*4 GL_FRONT_RIGHT
parameter (GL_FRONT_RIGHT = 1025)
integer*4 GL_BACK_LEFT
parameter (GL_BACK_LEFT = 1026)
integer*4 GL_BACK_RIGHT
parameter (GL_BACK_RIGHT = 1027)
integer*4 GL_AUX0
parameter (GL_AUX0 = 1033)
integer*4 GL_AUX1
parameter (GL_AUX1 = 1034)
integer*4 GL_AUX2
parameter (GL_AUX2 = 1035)
integer*4 GL_AUX3
parameter (GL_AUX3 = 1036)
integer*4 GL_COLOR_INDEX
parameter (GL_COLOR_INDEX = 6400)
integer*4 GL_RED
parameter (GL_RED = 6403)
integer*4 GL_GREEN
parameter (GL_GREEN = 6404)
integer*4 GL_BLUE
parameter (GL_BLUE = 6405)
integer*4 GL_ALPHA
parameter (GL_ALPHA = 6406)
integer*4 GL_LUMINANCE
parameter (GL_LUMINANCE = 6409)
integer*4 GL_LUMINANCE_ALPHA
parameter (GL_LUMINANCE_ALPHA = 6410)
integer*4 GL_ALPHA_BITS
parameter (GL_ALPHA_BITS = 3413)
integer*4 GL_RED_BITS
parameter (GL_RED_BITS = 3410)
integer*4 GL_GREEN_BITS
parameter (GL_GREEN_BITS = 3411)
integer*4 GL_BLUE_BITS
parameter (GL_BLUE_BITS = 3412)
integer*4 GL_INDEX_BITS
parameter (GL_INDEX_BITS = 3409)
integer*4 GL_SUBPIXEL_BITS
parameter (GL_SUBPIXEL_BITS = 3408)
integer*4 GL_AUX_BUFFERS
parameter (GL_AUX_BUFFERS = 3072)
integer*4 GL_READ_BUFFER
parameter (GL_READ_BUFFER = 3074)
integer*4 GL_DRAW_BUFFER
parameter (GL_DRAW_BUFFER = 3073)
integer*4 GL_DOUBLEBUFFER
parameter (GL_DOUBLEBUFFER = 3122)
integer*4 GL_STEREO
parameter (GL_STEREO = 3123)
integer*4 GL_BITMAP
parameter (GL_BITMAP = 6656)
integer*4 GL_COLOR
parameter (GL_COLOR = 6144)
integer*4 GL_DEPTH
parameter (GL_DEPTH = 6145)
integer*4 GL_STENCIL
parameter (GL_STENCIL = 6146)
integer*4 GL_DITHER
parameter (GL_DITHER = 3024)
integer*4 GL_RGB
parameter (GL_RGB = 6407)
integer*4 GL_RGBA
parameter (GL_RGBA = 6408)
C Implementation limits
integer*4 GL_MAX_MODELVIEW_STACK_DEPTH
parameter (GL_MAX_MODELVIEW_STACK_DEPTH= 3382)
integer*4 GL_MAX_PROJECTION_STACK_DEPTH
parameter (GL_MAX_PROJECTION_STACK_DEPTH= 3384)
integer*4 GL_MAX_TEXTURE_STACK_DEPTH
parameter (GL_MAX_TEXTURE_STACK_DEPTH= 3385)
integer*4 GL_MAX_ATTRIB_STACK_DEPTH
parameter (GL_MAX_ATTRIB_STACK_DEPTH= 3381)
integer*4 GL_MAX_NAME_STACK_DEPTH
parameter (GL_MAX_NAME_STACK_DEPTH = 3383)
integer*4 GL_MAX_LIST_NESTING
parameter (GL_MAX_LIST_NESTING = 2865)
integer*4 GL_MAX_LIGHTS
parameter (GL_MAX_LIGHTS = 3377)
integer*4 GL_MAX_CLIP_PLANES
parameter (GL_MAX_CLIP_PLANES = 3378)
integer*4 GL_MAX_VIEWPORT_DIMS
parameter (GL_MAX_VIEWPORT_DIMS = 3386)
integer*4 GL_MAX_PIXEL_MAP_TABLE
parameter (GL_MAX_PIXEL_MAP_TABLE = 3380)
integer*4 GL_MAX_EVAL_ORDER
parameter (GL_MAX_EVAL_ORDER = 3376)
integer*4 GL_MAX_TEXTURE_SIZE
parameter (GL_MAX_TEXTURE_SIZE = 3379)
C Gets
integer*4 GL_ATTRIB_STACK_DEPTH
parameter (GL_ATTRIB_STACK_DEPTH = 2992)
integer*4 GL_COLOR_CLEAR_VALUE
parameter (GL_COLOR_CLEAR_VALUE = 3106)
integer*4 GL_COLOR_WRITEMASK
parameter (GL_COLOR_WRITEMASK = 3107)
integer*4 GL_CURRENT_INDEX
parameter (GL_CURRENT_INDEX = 2817)
integer*4 GL_CURRENT_COLOR
parameter (GL_CURRENT_COLOR = 2816)
integer*4 GL_CURRENT_NORMAL
parameter (GL_CURRENT_NORMAL = 2818)
integer*4 GL_CURRENT_RASTER_COLOR
parameter (GL_CURRENT_RASTER_COLOR = 2820)
integer*4 GL_CURRENT_RASTER_DISTANCE
parameter (GL_CURRENT_RASTER_DISTANCE= 2825)
integer*4 GL_CURRENT_RASTER_INDEX
parameter (GL_CURRENT_RASTER_INDEX = 2821)
integer*4 GL_CURRENT_RASTER_POSITION
parameter (GL_CURRENT_RASTER_POSITION= 2823)
integer*4 GL_CURRENT_RASTER_TEXTURE_COORDS
parameter (GL_CURRENT_RASTER_TEXTURE_COORDS = 2822)
integer*4 GL_CURRENT_RASTER_POSITION_VALID
parameter (GL_CURRENT_RASTER_POSITION_VALID = 2824)
integer*4 GL_CURRENT_TEXTURE_COORDS
parameter (GL_CURRENT_TEXTURE_COORDS= 2819)
integer*4 GL_INDEX_CLEAR_VALUE
parameter (GL_INDEX_CLEAR_VALUE = 3104)
integer*4 GL_INDEX_MODE
parameter (GL_INDEX_MODE = 3120)
integer*4 GL_INDEX_WRITEMASK
parameter (GL_INDEX_WRITEMASK = 3105)
integer*4 GL_MODELVIEW_MATRIX
parameter (GL_MODELVIEW_MATRIX = 2982)
integer*4 GL_MODELVIEW_STACK_DEPTH
parameter (GL_MODELVIEW_STACK_DEPTH= 2979)
integer*4 GL_NAME_STACK_DEPTH
parameter (GL_NAME_STACK_DEPTH = 3440)
integer*4 GL_PROJECTION_MATRIX
parameter (GL_PROJECTION_MATRIX = 2983)
integer*4 GL_PROJECTION_STACK_DEPTH
parameter (GL_PROJECTION_STACK_DEPTH= 2980)
integer*4 GL_RENDER_MODE
parameter (GL_RENDER_MODE = 3136)
integer*4 GL_TEXTURE_MATRIX
parameter (GL_TEXTURE_MATRIX = 2984)
integer*4 GL_TEXTURE_STACK_DEPTH
parameter (GL_TEXTURE_STACK_DEPTH = 2981)
integer*4 GL_VIEWPORT
parameter (GL_VIEWPORT = 2978)
C Evaluators
integer*4 GL_AUTO_NORMAL
parameter (GL_AUTO_NORMAL = 3456)
integer*4 GL_MAP1_COLOR_4
parameter (GL_MAP1_COLOR_4 = 3472)
integer*4 GL_MAP1_GRID_DOMAIN
parameter (GL_MAP1_GRID_DOMAIN = 3536)
integer*4 GL_MAP1_GRID_SEGMENTS
parameter (GL_MAP1_GRID_SEGMENTS = 3537)
integer*4 GL_MAP1_INDEX
parameter (GL_MAP1_INDEX = 3473)
integer*4 GL_MAP1_NORMAL
parameter (GL_MAP1_NORMAL = 3474)
integer*4 GL_MAP1_TEXTURE_COORD_1
parameter (GL_MAP1_TEXTURE_COORD_1 = 3475)
integer*4 GL_MAP1_TEXTURE_COORD_2
parameter (GL_MAP1_TEXTURE_COORD_2 = 3476)
integer*4 GL_MAP1_TEXTURE_COORD_3
parameter (GL_MAP1_TEXTURE_COORD_3 = 3477)
integer*4 GL_MAP1_TEXTURE_COORD_4
parameter (GL_MAP1_TEXTURE_COORD_4 = 3478)
integer*4 GL_MAP1_VERTEX_3
parameter (GL_MAP1_VERTEX_3 = 3479)
integer*4 GL_MAP1_VERTEX_4
parameter (GL_MAP1_VERTEX_4 = 3480)
integer*4 GL_MAP2_COLOR_4
parameter (GL_MAP2_COLOR_4 = 3504)
integer*4 GL_MAP2_GRID_DOMAIN
parameter (GL_MAP2_GRID_DOMAIN = 3538)
integer*4 GL_MAP2_GRID_SEGMENTS
parameter (GL_MAP2_GRID_SEGMENTS = 3539)
integer*4 GL_MAP2_INDEX
parameter (GL_MAP2_INDEX = 3505)
integer*4 GL_MAP2_NORMAL
parameter (GL_MAP2_NORMAL = 3506)
integer*4 GL_MAP2_TEXTURE_COORD_1
parameter (GL_MAP2_TEXTURE_COORD_1 = 3507)
integer*4 GL_MAP2_TEXTURE_COORD_2
parameter (GL_MAP2_TEXTURE_COORD_2 = 3508)
integer*4 GL_MAP2_TEXTURE_COORD_3
parameter (GL_MAP2_TEXTURE_COORD_3 = 3509)
integer*4 GL_MAP2_TEXTURE_COORD_4
parameter (GL_MAP2_TEXTURE_COORD_4 = 3510)
integer*4 GL_MAP2_VERTEX_3
parameter (GL_MAP2_VERTEX_3 = 3511)
integer*4 GL_MAP2_VERTEX_4
parameter (GL_MAP2_VERTEX_4 = 3512)
integer*4 GL_COEFF
parameter (GL_COEFF = 2560)
integer*4 GL_DOMAIN
parameter (GL_DOMAIN = 2562)
integer*4 GL_ORDER
parameter (GL_ORDER = 2561)
C Hints
integer*4 GL_FOG_HINT
parameter (GL_FOG_HINT = 3156)
integer*4 GL_LINE_SMOOTH_HINT
parameter (GL_LINE_SMOOTH_HINT = 3154)
integer*4 GL_PERSPECTIVE_CORRECTION_HINT
parameter (GL_PERSPECTIVE_CORRECTION_HINT= 3152)
integer*4 GL_POINT_SMOOTH_HINT
parameter (GL_POINT_SMOOTH_HINT = 3153)
integer*4 GL_POLYGON_SMOOTH_HINT
parameter (GL_POLYGON_SMOOTH_HINT = 3155)
integer*4 GL_DONT_CARE
parameter (GL_DONT_CARE = 4352)
integer*4 GL_FASTEST
parameter (GL_FASTEST = 4353)
integer*4 GL_NICEST
parameter (GL_NICEST = 4354)
C Scissor box
integer*4 GL_SCISSOR_TEST
parameter (GL_SCISSOR_TEST = 3089)
integer*4 GL_SCISSOR_BOX
parameter (GL_SCISSOR_BOX = 3088)
C Pixel Mode / Transfer
integer*4 GL_MAP_COLOR
parameter (GL_MAP_COLOR = 3344)
integer*4 GL_MAP_STENCIL
parameter (GL_MAP_STENCIL = 3345)
integer*4 GL_INDEX_SHIFT
parameter (GL_INDEX_SHIFT = 3346)
integer*4 GL_INDEX_OFFSET
parameter (GL_INDEX_OFFSET = 3347)
integer*4 GL_RED_SCALE
parameter (GL_RED_SCALE = 3348)
integer*4 GL_RED_BIAS
parameter (GL_RED_BIAS = 3349)
integer*4 GL_GREEN_SCALE
parameter (GL_GREEN_SCALE = 3352)
integer*4 GL_GREEN_BIAS
parameter (GL_GREEN_BIAS = 3353)
integer*4 GL_BLUE_SCALE
parameter (GL_BLUE_SCALE = 3354)
integer*4 GL_BLUE_BIAS
parameter (GL_BLUE_BIAS = 3355)
integer*4 GL_ALPHA_SCALE
parameter (GL_ALPHA_SCALE = 3356)
integer*4 GL_ALPHA_BIAS
parameter (GL_ALPHA_BIAS = 3357)
integer*4 GL_DEPTH_SCALE
parameter (GL_DEPTH_SCALE = 3358)
integer*4 GL_DEPTH_BIAS
parameter (GL_DEPTH_BIAS = 3359)
integer*4 GL_PIXEL_MAP_S_TO_S_SIZE
parameter (GL_PIXEL_MAP_S_TO_S_SIZE= 3249)
integer*4 GL_PIXEL_MAP_I_TO_I_SIZE
parameter (GL_PIXEL_MAP_I_TO_I_SIZE= 3248)
integer*4 GL_PIXEL_MAP_I_TO_R_SIZE
parameter (GL_PIXEL_MAP_I_TO_R_SIZE= 3250)
integer*4 GL_PIXEL_MAP_I_TO_G_SIZE
parameter (GL_PIXEL_MAP_I_TO_G_SIZE= 3251)
integer*4 GL_PIXEL_MAP_I_TO_B_SIZE
parameter (GL_PIXEL_MAP_I_TO_B_SIZE= 3252)
integer*4 GL_PIXEL_MAP_I_TO_A_SIZE
parameter (GL_PIXEL_MAP_I_TO_A_SIZE= 3253)
integer*4 GL_PIXEL_MAP_R_TO_R_SIZE
parameter (GL_PIXEL_MAP_R_TO_R_SIZE= 3254)
integer*4 GL_PIXEL_MAP_G_TO_G_SIZE
parameter (GL_PIXEL_MAP_G_TO_G_SIZE= 3255)
integer*4 GL_PIXEL_MAP_B_TO_B_SIZE
parameter (GL_PIXEL_MAP_B_TO_B_SIZE= 3256)
integer*4 GL_PIXEL_MAP_A_TO_A_SIZE
parameter (GL_PIXEL_MAP_A_TO_A_SIZE= 3257)
integer*4 GL_PIXEL_MAP_S_TO_S
parameter (GL_PIXEL_MAP_S_TO_S = 3185)
integer*4 GL_PIXEL_MAP_I_TO_I
parameter (GL_PIXEL_MAP_I_TO_I = 3184)
integer*4 GL_PIXEL_MAP_I_TO_R
parameter (GL_PIXEL_MAP_I_TO_R = 3186)
integer*4 GL_PIXEL_MAP_I_TO_G
parameter (GL_PIXEL_MAP_I_TO_G = 3187)
integer*4 GL_PIXEL_MAP_I_TO_B
parameter (GL_PIXEL_MAP_I_TO_B = 3188)
integer*4 GL_PIXEL_MAP_I_TO_A
parameter (GL_PIXEL_MAP_I_TO_A = 3189)
integer*4 GL_PIXEL_MAP_R_TO_R
parameter (GL_PIXEL_MAP_R_TO_R = 3190)
integer*4 GL_PIXEL_MAP_G_TO_G
parameter (GL_PIXEL_MAP_G_TO_G = 3191)
integer*4 GL_PIXEL_MAP_B_TO_B
parameter (GL_PIXEL_MAP_B_TO_B = 3192)
integer*4 GL_PIXEL_MAP_A_TO_A
parameter (GL_PIXEL_MAP_A_TO_A = 3193)
integer*4 GL_PACK_ALIGNMENT
parameter (GL_PACK_ALIGNMENT = 3333)
integer*4 GL_PACK_LSB_FIRST
parameter (GL_PACK_LSB_FIRST = 3329)
integer*4 GL_PACK_ROW_LENGTH
parameter (GL_PACK_ROW_LENGTH = 3330)
integer*4 GL_PACK_SKIP_PIXELS
parameter (GL_PACK_SKIP_PIXELS = 3332)
integer*4 GL_PACK_SKIP_ROWS
parameter (GL_PACK_SKIP_ROWS = 3331)
integer*4 GL_PACK_SWAP_BYTES
parameter (GL_PACK_SWAP_BYTES = 3328)
integer*4 GL_UNPACK_ALIGNMENT
parameter (GL_UNPACK_ALIGNMENT = 3317)
integer*4 GL_UNPACK_LSB_FIRST
parameter (GL_UNPACK_LSB_FIRST = 3313)
integer*4 GL_UNPACK_ROW_LENGTH
parameter (GL_UNPACK_ROW_LENGTH = 3314)
integer*4 GL_UNPACK_SKIP_PIXELS
parameter (GL_UNPACK_SKIP_PIXELS = 3316)
integer*4 GL_UNPACK_SKIP_ROWS
parameter (GL_UNPACK_SKIP_ROWS = 3315)
integer*4 GL_UNPACK_SWAP_BYTES
parameter (GL_UNPACK_SWAP_BYTES = 3312)
integer*4 GL_ZOOM_X
parameter (GL_ZOOM_X = 3350)
integer*4 GL_ZOOM_Y
parameter (GL_ZOOM_Y = 3351)
C Texture mapping
integer*4 GL_TEXTURE_ENV
parameter (GL_TEXTURE_ENV = 8960)
integer*4 GL_TEXTURE_ENV_MODE
parameter (GL_TEXTURE_ENV_MODE = 8704)
integer*4 GL_TEXTURE_1D
parameter (GL_TEXTURE_1D = 3552)
integer*4 GL_TEXTURE_2D
parameter (GL_TEXTURE_2D = 3553)
integer*4 GL_TEXTURE_WRAP_S
parameter (GL_TEXTURE_WRAP_S = 10242)
integer*4 GL_TEXTURE_WRAP_T
parameter (GL_TEXTURE_WRAP_T = 10243)
integer*4 GL_TEXTURE_MAG_FILTER
parameter (GL_TEXTURE_MAG_FILTER = 10240)
integer*4 GL_TEXTURE_MIN_FILTER
parameter (GL_TEXTURE_MIN_FILTER = 10241)
integer*4 GL_TEXTURE_ENV_COLOR
parameter (GL_TEXTURE_ENV_COLOR = 8705)
integer*4 GL_TEXTURE_GEN_S
parameter (GL_TEXTURE_GEN_S = 3168)
integer*4 GL_TEXTURE_GEN_T
parameter (GL_TEXTURE_GEN_T = 3169)
integer*4 GL_TEXTURE_GEN_MODE
parameter (GL_TEXTURE_GEN_MODE = 9472)
integer*4 GL_TEXTURE_BORDER_COLOR
parameter (GL_TEXTURE_BORDER_COLOR = 4100)
integer*4 GL_TEXTURE_WIDTH
parameter (GL_TEXTURE_WIDTH = 4096)
integer*4 GL_TEXTURE_HEIGHT
parameter (GL_TEXTURE_HEIGHT = 4097)
integer*4 GL_TEXTURE_BORDER
parameter (GL_TEXTURE_BORDER = 4101)
integer*4 GL_TEXTURE_COMPONENTS
parameter (GL_TEXTURE_COMPONENTS = 4099)
integer*4 GL_NEAREST_MIPMAP_NEAREST
parameter (GL_NEAREST_MIPMAP_NEAREST = 9984)
integer*4 GL_NEAREST_MIPMAP_LINEAR
parameter (GL_NEAREST_MIPMAP_LINEAR = 9986)
integer*4 GL_LINEAR_MIPMAP_NEAREST
parameter (GL_LINEAR_MIPMAP_NEAREST = 9985)
integer*4 GL_LINEAR_MIPMAP_LINEAR
parameter (GL_LINEAR_MIPMAP_LINEAR = 9987)
integer*4 GL_OBJECT_LINEAR
parameter (GL_OBJECT_LINEAR = 9217)
integer*4 GL_OBJECT_PLANE
parameter (GL_OBJECT_PLANE = 9473)
integer*4 GL_EYE_LINEAR
parameter (GL_EYE_LINEAR = 9216)
integer*4 GL_EYE_PLANE
parameter (GL_EYE_PLANE = 9474)
integer*4 GL_SPHERE_MAP
parameter (GL_SPHERE_MAP = 9218)
integer*4 GL_DECAL
parameter (GL_DECAL = 8449)
integer*4 GL_MODULATE
parameter (GL_MODULATE = 8448)
integer*4 GL_NEAREST
parameter (GL_NEAREST = 9728)
integer*4 GL_REPEAT
parameter (GL_REPEAT = 10497)
integer*4 GL_CLAMP
parameter (GL_CLAMP = 10496)
integer*4 GL_S
parameter (GL_S = 8192)
integer*4 GL_T
parameter (GL_T = 8193)
integer*4 GL_R
parameter (GL_R = 8194)
integer*4 GL_Q
parameter (GL_Q = 8195)
integer*4 GL_TEXTURE_GEN_R
parameter (GL_TEXTURE_GEN_R = 3170)
integer*4 GL_TEXTURE_GEN_Q
parameter (GL_TEXTURE_GEN_Q = 3171)
C Utility
integer*4 GL_VENDOR
parameter (GL_VENDOR = 7936)
integer*4 GL_RENDERER
parameter (GL_RENDERER = 7937)
integer*4 GL_VERSION
parameter (GL_VERSION = 7938)
integer*4 GL_EXTENSIONS
parameter (GL_EXTENSIONS = 7939)
C Errors
integer*4 GL_INVALID_VALUE
parameter (GL_INVALID_VALUE = 1281)
integer*4 GL_INVALID_ENUM
parameter (GL_INVALID_ENUM = 1280)
integer*4 GL_INVALID_OPERATION
parameter (GL_INVALID_OPERATION = 1282)
integer*4 GL_STACK_OVERFLOW
parameter (GL_STACK_OVERFLOW = 1283)
integer*4 GL_STACK_UNDERFLOW
parameter (GL_STACK_UNDERFLOW = 1284)
integer*4 GL_OUT_OF_MEMORY
parameter (GL_OUT_OF_MEMORY = 1285)
C Extensions
integer*4 GL_CONSTANT_COLOR_EXT
parameter (GL_CONSTANT_COLOR_EXT = 32769)
integer*4 GL_ONE_MINUS_CONSTANT_COLOR_EXT
parameter (GL_ONE_MINUS_CONSTANT_COLOR_EXT= 32770)
integer*4 GL_CONSTANT_ALPHA_EXT
parameter (GL_CONSTANT_ALPHA_EXT = 32771)
integer*4 GL_ONE_MINUS_CONSTANT_ALPHA_EXT
parameter (GL_ONE_MINUS_CONSTANT_ALPHA_EXT= 32772)
integer*4 GL_BLEND_EQUATION_EXT
parameter (GL_BLEND_EQUATION_EXT = 32777)
integer*4 GL_MIN_EXT
parameter (GL_MIN_EXT = 32775)
integer*4 GL_MAX_EXT
parameter (GL_MAX_EXT = 32776)
integer*4 GL_FUNC_ADD_EXT
parameter (GL_FUNC_ADD_EXT = 32774)
integer*4 GL_FUNC_SUBTRACT_EXT
parameter (GL_FUNC_SUBTRACT_EXT = 32778)
integer*4 GL_FUNC_REVERSE_SUBTRACT_EXT
parameter (GL_FUNC_REVERSE_SUBTRACT_EXT= 32779)
integer*4 GL_BLEND_COLOR_EXT
parameter (GL_BLEND_COLOR_EXT = 32773)
integer*4 GL_REPLACE_EXT
parameter (GL_REPLACE_EXT = 2054)
integer*4 GL_NO_ERROR
parameter (GL_NO_ERROR = 0)
C GLbitfield values
integer*4 GL_CURRENT_BIT
parameter (GL_CURRENT_BIT = 1)
integer*4 GL_POINT_BIT
parameter (GL_POINT_BIT = 2)
integer*4 GL_LINE_BIT
parameter (GL_LINE_BIT = 4)
integer*4 GL_POLYGON_BIT
parameter (GL_POLYGON_BIT = 8)
integer*4 GL_POLYGON_STIPPLE_BIT
parameter (GL_POLYGON_STIPPLE_BIT = 16)
integer*4 GL_PIXEL_MODE_BIT
parameter (GL_PIXEL_MODE_BIT = 32)
integer*4 GL_LIGHTING_BIT
parameter (GL_LIGHTING_BIT = 64)
integer*4 GL_FOG_BIT
parameter (GL_FOG_BIT = 128)
integer*4 GL_DEPTH_BUFFER_BIT
parameter (GL_DEPTH_BUFFER_BIT = 256)
integer*4 GL_ACCUM_BUFFER_BIT
parameter (GL_ACCUM_BUFFER_BIT = 512)
integer*4 GL_STENCIL_BUFFER_BIT
parameter (GL_STENCIL_BUFFER_BIT = 1024)
integer*4 GL_VIEWPORT_BIT
parameter (GL_VIEWPORT_BIT = 2048)
integer*4 GL_TRANSFORM_BIT
parameter (GL_TRANSFORM_BIT = 4096)
integer*4 GL_ENABLE_BIT
parameter (GL_ENABLE_BIT = 8192)
integer*4 GL_COLOR_BUFFER_BIT
parameter (GL_COLOR_BUFFER_BIT = 16384)
integer*4 GL_HINT_BIT
parameter (GL_HINT_BIT = 32768)
integer*4 GL_EVAL_BIT
parameter (GL_EVAL_BIT = 65536)
integer*4 GL_LIST_BIT
parameter (GL_LIST_BIT = 131072)
integer*4 GL_TEXTURE_BIT
parameter (GL_TEXTURE_BIT = 262144)
integer*4 GL_SCISSOR_BIT
parameter (GL_SCISSOR_BIT = 524288)
integer*4 GL_ALL_ATTRIB_BITS
parameter (GL_ALL_ATTRIB_BITS = 1048575)
C
C Notes on subroutine parameters:
C 1. Each Fortran API subroutine is named just like its C counterpart
C except that each subroutine is prefixed with "fgl" instead of "gl".
C 2. The following table shows the translation of parameter types from
C C to Fortran:
C
C C GL<type> Fortran
C ------------- ----------
C GLboolean logical*1
C GLbyte integer*1
C GLubyte integer*1
C GLshort integer*2
C GLushort integer*2
C GLint integer*4
C GLuint integer*4
C GLenum integer*4
C GLsizei integer*4
C GLfloat real*4
C GLclampf real*4
C GLdouble real*8
C GLclampd real*8
C any pointer character*8
C
C
C
C Examples of C API calls and their corresponding Fortran API calls:
C
C C: glBegin( GL_POINTS );
C
C Fortran: call fglBegin( GL_POINTS )
C
C
C C: GLfloat pos[4] = {10.0, 3.0, 2.0, 1.0};
C ...
C glLightfv( GL_LIGHT2, GL_POSITION, pos );
C
C Fortran: real*4 pos(4)
C pos(1) = 10.0
C pos(2) = 3.0
C pos(3) = 2.0
C pos(4) = 1.0
C ...
C call fglLightfv( GL_LIGHT2, GL_POSITION, pos )
C
C
C
C
C Examples of some Fortran pseudo-prototypes
C
C
C subroutine fglAccum( integer*4 op, real*4 value )
C subroutine fglVertex2d( real*8 x, real*8 y )
C subroutine fglLightfv( integer*4 light, integer*4 pname,
C character*8 params )
C
C These are the only functions in the Fortran API which return values
C
C integer*4 function fglGenLists( integer*4 range )
integer*4 fglGenLists
C integer*4 function fglGetError()
integer*4 fglGetError
C character*256 function fglGetString( integer*4 name )
character*256 fglGetString
C logical*1 function fglIsEnabled( integer*4 cap )
logical*1 fglIsEnabled
C logical*1 function fglIsList( integer*4 list )
logical*1 fglIsList
C integer*4 function fglRenderMode( integer*4 mode )
integer*4 fglRenderMode
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.