211 lines
7.1 KiB
C
211 lines
7.1 KiB
C
|
|
C GLUT version of "GL/fgl.h"
|
|
|
|
C Modifications from SGI IRIX 5.3 version:
|
|
C 1) F prefix removed from GLU constants.
|
|
C 2) Fix GLU_TRUE and GLU_FALSE.
|
|
|
|
C *** Generic constants ***
|
|
|
|
C Errors: (return value 0 = no error)
|
|
integer*4 GLU_INVALID_ENUM
|
|
parameter ( GLU_INVALID_ENUM = 100900 )
|
|
integer*4 GLU_INVALID_VALUE
|
|
parameter ( GLU_INVALID_VALUE = 100901 )
|
|
integer*4 GLU_OUT_OF_MEMORY
|
|
parameter ( GLU_OUT_OF_MEMORY = 100902 )
|
|
|
|
C For laughs:
|
|
integer*4 GLU_TRUE
|
|
parameter ( GLU_TRUE = 1 )
|
|
integer*4 GLU_FALSE
|
|
parameter ( GLU_FALSE = 0 )
|
|
|
|
|
|
C *** Quadric constants ***
|
|
|
|
C Types of normals:
|
|
integer*4 GLU_SMOOTH
|
|
parameter ( GLU_SMOOTH = 100000 )
|
|
integer*4 GLU_FLAT
|
|
parameter ( GLU_FLAT = 100001 )
|
|
integer*4 GLU_NONE
|
|
parameter ( GLU_NONE = 100002 )
|
|
|
|
C DrawStyle types:
|
|
integer*4 GLU_POINT
|
|
parameter ( GLU_POINT = 100010 )
|
|
integer*4 GLU_LINE
|
|
parameter ( GLU_LINE = 100011 )
|
|
integer*4 GLU_FILL
|
|
parameter ( GLU_FILL = 100012 )
|
|
integer*4 GLU_SILHOUETTE
|
|
parameter ( GLU_SILHOUETTE = 100013 )
|
|
|
|
C Orientation types:
|
|
integer*4 GLU_OUTSIDE
|
|
parameter ( GLU_OUTSIDE = 100020 )
|
|
integer*4 GLU_INSIDE
|
|
parameter ( GLU_INSIDE = 100021 )
|
|
|
|
C Callback types:
|
|
C GLU_ERROR 100103
|
|
|
|
|
|
C *** Tesselation constants ***
|
|
|
|
C Callback types:
|
|
integer*4 GLU_BEGIN
|
|
parameter ( GLU_BEGIN = 100100 )
|
|
integer*4 GLU_VERTEX
|
|
parameter ( GLU_VERTEX = 100101 )
|
|
integer*4 GLU_END
|
|
parameter ( GLU_END = 100102 )
|
|
integer*4 GLU_ERROR
|
|
parameter ( GLU_ERROR = 100103 )
|
|
integer*4 GLU_EDGE_FLAG
|
|
parameter ( GLU_EDGE_FLAG = 100104 )
|
|
|
|
C Contours types:
|
|
integer*4 GLU_CW
|
|
parameter ( GLU_CW = 100120 )
|
|
integer*4 GLU_CCW
|
|
parameter ( GLU_CCW = 100121 )
|
|
integer*4 GLU_INTERIOR
|
|
parameter ( GLU_INTERIOR = 100122 )
|
|
integer*4 GLU_EXTERIOR
|
|
parameter ( GLU_EXTERIOR = 100123 )
|
|
integer*4 GLU_UNKNOWN
|
|
parameter ( GLU_UNKNOWN = 100124 )
|
|
|
|
integer*4 GLU_TESS_ERROR1
|
|
parameter ( GLU_TESS_ERROR1 = 100151 )
|
|
integer*4 GLU_TESS_ERROR2
|
|
parameter ( GLU_TESS_ERROR2 = 100152 )
|
|
integer*4 GLU_TESS_ERROR3
|
|
parameter ( GLU_TESS_ERROR3 = 100153 )
|
|
integer*4 GLU_TESS_ERROR4
|
|
parameter ( GLU_TESS_ERROR4 = 100154 )
|
|
integer*4 GLU_TESS_ERROR5
|
|
parameter ( GLU_TESS_ERROR5 = 100155 )
|
|
integer*4 GLU_TESS_ERROR6
|
|
parameter ( GLU_TESS_ERROR6 = 100156 )
|
|
integer*4 GLU_TESS_ERROR7
|
|
parameter ( GLU_TESS_ERROR7 = 100157 )
|
|
integer*4 GLU_TESS_ERROR8
|
|
parameter ( GLU_TESS_ERROR8 = 100158 )
|
|
|
|
|
|
C *** NURBS constants ***
|
|
|
|
C Properties:
|
|
integer*4 GLU_AUTO_LOAD_MATRIX
|
|
parameter ( GLU_AUTO_LOAD_MATRIX = 100200 )
|
|
integer*4 GLU_CULLING
|
|
parameter ( GLU_CULLING = 100201 )
|
|
integer*4 GLU_SAMPLING_TOLERANCE
|
|
parameter ( GLU_SAMPLING_TOLERANCE = 100203 )
|
|
integer*4 GLU_DISPLAY_MODE
|
|
parameter ( GLU_DISPLAY_MODE = 100204 )
|
|
|
|
C Trimming curve types
|
|
integer*4 GLU_MAP1_TRIM_2
|
|
parameter ( GLU_MAP1_TRIM_2 = 100210 )
|
|
integer*4 GLU_MAP1_TRIM_3
|
|
parameter ( GLU_MAP1_TRIM_3 = 100211 )
|
|
|
|
C Display modes:
|
|
C GLU_FILL 100012
|
|
integer*4 GLU_OUTLINE_POLYGON
|
|
parameter ( GLU_OUTLINE_POLYGON = 100240 )
|
|
integer*4 GLU_OUTLINE_PATCH
|
|
parameter ( GLU_OUTLINE_PATCH = 100241 )
|
|
|
|
C Callbacks:
|
|
C GLU_ERROR 100103
|
|
|
|
C Errors:
|
|
integer*4 GLU_NURBS_ERROR1
|
|
parameter ( GLU_NURBS_ERROR1 = 100251 )
|
|
integer*4 GLU_NURBS_ERROR2
|
|
parameter ( GLU_NURBS_ERROR2 = 100252 )
|
|
integer*4 GLU_NURBS_ERROR3
|
|
parameter ( GLU_NURBS_ERROR3 = 100253 )
|
|
integer*4 GLU_NURBS_ERROR4
|
|
parameter ( GLU_NURBS_ERROR4 = 100254 )
|
|
integer*4 GLU_NURBS_ERROR5
|
|
parameter ( GLU_NURBS_ERROR5 = 100255 )
|
|
integer*4 GLU_NURBS_ERROR6
|
|
parameter ( GLU_NURBS_ERROR6 = 100256 )
|
|
integer*4 GLU_NURBS_ERROR7
|
|
parameter ( GLU_NURBS_ERROR7 = 100257 )
|
|
integer*4 GLU_NURBS_ERROR8
|
|
parameter ( GLU_NURBS_ERROR8 = 100258 )
|
|
integer*4 GLU_NURBS_ERROR9
|
|
parameter ( GLU_NURBS_ERROR9 = 100259 )
|
|
integer*4 GLU_NURBS_ERROR10
|
|
parameter ( GLU_NURBS_ERROR10 = 100260 )
|
|
integer*4 GLU_NURBS_ERROR11
|
|
parameter ( GLU_NURBS_ERROR11 = 100261 )
|
|
integer*4 GLU_NURBS_ERROR12
|
|
parameter ( GLU_NURBS_ERROR12 = 100262 )
|
|
integer*4 GLU_NURBS_ERROR13
|
|
parameter ( GLU_NURBS_ERROR13 = 100263 )
|
|
integer*4 GLU_NURBS_ERROR14
|
|
parameter ( GLU_NURBS_ERROR14 = 100264 )
|
|
integer*4 GLU_NURBS_ERROR15
|
|
parameter ( GLU_NURBS_ERROR15 = 100265 )
|
|
integer*4 GLU_NURBS_ERROR16
|
|
parameter ( GLU_NURBS_ERROR16 = 100266 )
|
|
integer*4 GLU_NURBS_ERROR17
|
|
parameter ( GLU_NURBS_ERROR17 = 100267 )
|
|
integer*4 GLU_NURBS_ERROR18
|
|
parameter ( GLU_NURBS_ERROR18 = 100268 )
|
|
integer*4 GLU_NURBS_ERROR19
|
|
parameter ( GLU_NURBS_ERROR19 = 100269 )
|
|
integer*4 GLU_NURBS_ERROR20
|
|
parameter ( GLU_NURBS_ERROR20 = 100270 )
|
|
integer*4 GLU_NURBS_ERROR21
|
|
parameter ( GLU_NURBS_ERROR21 = 100271 )
|
|
integer*4 GLU_NURBS_ERROR22
|
|
parameter ( GLU_NURBS_ERROR22 = 100272 )
|
|
integer*4 GLU_NURBS_ERROR23
|
|
parameter ( GLU_NURBS_ERROR23 = 100273 )
|
|
integer*4 GLU_NURBS_ERROR24
|
|
parameter ( GLU_NURBS_ERROR24 = 100274 )
|
|
integer*4 GLU_NURBS_ERROR25
|
|
parameter ( GLU_NURBS_ERROR25 = 100275 )
|
|
integer*4 GLU_NURBS_ERROR26
|
|
parameter ( GLU_NURBS_ERROR26 = 100276 )
|
|
integer*4 GLU_NURBS_ERROR27
|
|
parameter ( GLU_NURBS_ERROR27 = 100277 )
|
|
integer*4 GLU_NURBS_ERROR28
|
|
parameter ( GLU_NURBS_ERROR28 = 100278 )
|
|
integer*4 GLU_NURBS_ERROR29
|
|
parameter ( GLU_NURBS_ERROR29 = 100279 )
|
|
integer*4 GLU_NURBS_ERROR30
|
|
parameter ( GLU_NURBS_ERROR30 = 100280 )
|
|
integer*4 GLU_NURBS_ERROR31
|
|
parameter ( GLU_NURBS_ERROR31 = 100281 )
|
|
integer*4 GLU_NURBS_ERROR32
|
|
parameter ( GLU_NURBS_ERROR32 = 100282 )
|
|
integer*4 GLU_NURBS_ERROR33
|
|
parameter ( GLU_NURBS_ERROR33 = 100283 )
|
|
integer*4 GLU_NURBS_ERROR34
|
|
parameter ( GLU_NURBS_ERROR34 = 100284 )
|
|
integer*4 GLU_NURBS_ERROR35
|
|
parameter ( GLU_NURBS_ERROR35 = 100285 )
|
|
integer*4 GLU_NURBS_ERROR36
|
|
parameter ( GLU_NURBS_ERROR36 = 100286 )
|
|
integer*4 GLU_NURBS_ERROR37
|
|
parameter ( GLU_NURBS_ERROR37 = 100287 )
|
|
|
|
|
|
character*128 fgluErrorString
|
|
character*128 fgluGetString
|
|
integer*4 fgluBuild1DMipmaps
|
|
integer*4 fgluBuild2DMipmaps
|
|
integer*4 fgluProject
|
|
integer*4 fgluScaleImage
|
|
integer*4 fgluUnProject
|