C C Copyright 1991-1993, Silicon Graphics, Inc. C All Rights Reserved. C C This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.; C the contents of this file may not be disclosed to third parties, copied or C duplicated in any form, in whole or in part, without the prior written C permission of Silicon Graphics, Inc. C C RESTRICTED RIGHTS LEGEND: C Use, duplication or disclosure by the Government is subject to restrictions C as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data C and Computer Software clause at DFARS 252.227-7013, and/or in similar or C successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished - C rights reserved under the Copyright Laws of the United States. C C *********************************************************** C Boolean integer*4 GLU_FALSE parameter ( GLU_FALSE = 0 ) integer*4 GLU_TRUE parameter ( GLU_TRUE = 1 ) C Version integer*4 GLU_VERSION_1_1 parameter ( GLU_VERSION_1_1 = 1 ) integer*4 GLU_VERSION_1_2 parameter ( GLU_VERSION_1_2 = 1 ) C StringName integer*4 GLU_VERSION parameter ( GLU_VERSION = 100800 ) integer*4 GLU_EXTENSIONS parameter ( GLU_EXTENSIONS = 100801 ) C ErrorCode 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 ) integer*4 GLU_INCOMPATIBLE_GL_VERSION parameter ( GLU_INCOMPATIBLE_GL_VERSION = 100903 ) C NurbsDisplay C GLU_FILL integer*4 GLU_OUTLINE_POLYGON parameter ( GLU_OUTLINE_POLYGON = 100240 ) integer*4 GLU_OUTLINE_PATCH parameter ( GLU_OUTLINE_PATCH = 100241 ) C NurbsCallback integer*4 GLU_ERROR parameter ( GLU_ERROR = 100103 ) C NurbsError 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 ) C NurbsProperty 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 ) integer*4 GLU_PARAMETRIC_TOLERANCE parameter ( GLU_PARAMETRIC_TOLERANCE = 100202 ) integer*4 GLU_SAMPLING_METHOD parameter ( GLU_SAMPLING_METHOD = 100205 ) integer*4 GLU_U_STEP parameter ( GLU_U_STEP = 100206 ) integer*4 GLU_V_STEP parameter ( GLU_V_STEP = 100207 ) integer*4 GLU_OBJECT_SPACE_ERROR_TOLERANCE parameter ( GLU_OBJECT_SPACE_ERROR_TOLERANCE = 100208 ) C NurbsSampling integer*4 GLU_PATH_LENGTH parameter ( GLU_PATH_LENGTH = 100215 ) integer*4 GLU_PARAMETRIC_ERROR parameter ( GLU_PARAMETRIC_ERROR = 100216 ) integer*4 GLU_DOMAIN_DISTANCE parameter ( GLU_DOMAIN_DISTANCE = 100217 ) integer*4 GLU_OBJECT_SPACE parameter ( GLU_OBJECT_SPACE = 100218 ) C NurbsTrim 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 QuadricDrawStyle 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 QuadricCallback C GLU_ERROR C QuadricNormal 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 QuadricOrientation integer*4 GLU_OUTSIDE parameter ( GLU_OUTSIDE = 100020 ) integer*4 GLU_INSIDE parameter ( GLU_INSIDE = 100021 ) C TessCallback integer*4 GLU_TESS_BEGIN parameter ( GLU_TESS_BEGIN = 100100 ) integer*4 GLU_BEGIN parameter ( GLU_BEGIN = 100100 ) integer*4 GLU_TESS_VERTEX parameter ( GLU_TESS_VERTEX = 100101 ) integer*4 GLU_VERTEX parameter ( GLU_VERTEX = 100101 ) integer*4 GLU_TESS_END parameter ( GLU_TESS_END = 100102 ) integer*4 GLU_END parameter ( GLU_END = 100102 ) integer*4 GLU_TESS_ERROR parameter ( GLU_TESS_ERROR = 100103 ) integer*4 GLU_TESS_EDGE_FLAG parameter ( GLU_TESS_EDGE_FLAG = 100104 ) integer*4 GLU_EDGE_FLAG parameter ( GLU_EDGE_FLAG = 100104 ) integer*4 GLU_TESS_COMBINE parameter ( GLU_TESS_COMBINE = 100105 ) integer*4 GLU_TESS_BEGIN_DATA parameter ( GLU_TESS_BEGIN_DATA = 100106 ) integer*4 GLU_TESS_VERTEX_DATA parameter ( GLU_TESS_VERTEX_DATA = 100107 ) integer*4 GLU_TESS_END_DATA parameter ( GLU_TESS_END_DATA = 100108 ) integer*4 GLU_TESS_ERROR_DATA parameter ( GLU_TESS_ERROR_DATA = 100109 ) integer*4 GLU_TESS_EDGE_FLAG_DATA parameter ( GLU_TESS_EDGE_FLAG_DATA = 100110 ) integer*4 GLU_TESS_COMBINE_DATA parameter ( GLU_TESS_COMBINE_DATA = 100111 ) C TessContour 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 ) C TessProperty integer*4 GLU_TESS_WINDING_RULE parameter ( GLU_TESS_WINDING_RULE = 100140 ) integer*4 GLU_TESS_BOUNDARY_ONLY parameter ( GLU_TESS_BOUNDARY_ONLY = 100141 ) integer*4 GLU_TESS_TOLERANCE parameter ( GLU_TESS_TOLERANCE = 100142 ) C TessError 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 ) integer*4 GLU_TESS_MISSING_BEGIN_POLYGON parameter ( GLU_TESS_MISSING_BEGIN_POLYGON = 100151 ) integer*4 GLU_TESS_MISSING_BEGIN_CONTOUR parameter ( GLU_TESS_MISSING_BEGIN_CONTOUR = 100152 ) integer*4 GLU_TESS_MISSING_END_POLYGON parameter ( GLU_TESS_MISSING_END_POLYGON = 100153 ) integer*4 GLU_TESS_MISSING_END_CONTOUR parameter ( GLU_TESS_MISSING_END_CONTOUR = 100154 ) integer*4 GLU_TESS_COORD_TOO_LARGE parameter ( GLU_TESS_COORD_TOO_LARGE = 100155 ) integer*4 GLU_TESS_NEED_COMBINE_CALLBACK parameter ( GLU_TESS_NEED_COMBINE_CALLBACK = 100156 ) C TessWinding integer*4 GLU_TESS_WINDING_ODD parameter ( GLU_TESS_WINDING_ODD = 100130 ) integer*4 GLU_TESS_WINDING_NONZERO parameter ( GLU_TESS_WINDING_NONZERO = 100131 ) integer*4 GLU_TESS_WINDING_POSITIVE parameter ( GLU_TESS_WINDING_POSITIVE = 100132 ) integer*4 GLU_TESS_WINDING_NEGATIVE parameter ( GLU_TESS_WINDING_NEGATIVE = 100133 ) integer*4 GLU_TESS_WINDING_ABS_GEQ_TWO parameter ( GLU_TESS_WINDING_ABS_GEQ_TWO = 100134 ) C *********************************************************** character*128 fgluErrorString character*128 fgluGetString integer*1 fgluNewNurbsRenderer integer*1 fgluNewQuadric integer*1 fgluNewTess integer*4 fgluBuild1DMipmaps integer*4 fgluBuild2DMipmaps integer*4 fgluProject integer*4 fgluScaleImage integer*4 fgluUnProject