-- $Source: /home/harp/1/proto/monoBANK/winnt/win32-glu.ads,v $ -- $Revision: 1.16 $ $Date: 96/09/06 11:25:13 $ $Author: mg $ -- See end of file for Copyright (c) information. with Win32.Gl; package Win32.Glu is GLU_INVALID_ENUM : constant := 100900; -- glu.h:136 GLU_INVALID_VALUE : constant := 100901; -- glu.h:137 GLU_OUT_OF_MEMORY : constant := 100902; -- glu.h:138 GLU_TRUE : constant := 1; -- glu.h:141 GLU_FALSE : constant := 0; -- glu.h:142 GLU_SMOOTH : constant := 100000; -- glu.h:148 GLU_FLAT : constant := 100001; -- glu.h:149 GLU_NONE : constant := 100002; -- glu.h:150 GLU_POINT : constant := 100010; -- glu.h:153 GLU_LINE : constant := 100011; -- glu.h:154 GLU_FILL : constant := 100012; -- glu.h:155 GLU_SILHOUETTE : constant := 100013; -- glu.h:156 GLU_OUTSIDE : constant := 100020; -- glu.h:159 GLU_INSIDE : constant := 100021; -- glu.h:160 GLU_BEGIN : constant := 100100; -- glu.h:169 GLU_VERTEX : constant := 100101; -- glu.h:170 GLU_END : constant := 100102; -- glu.h:171 GLU_ERROR : constant := 100103; -- glu.h:172 GLU_EDGE_FLAG : constant := 100104; -- glu.h:173 GLU_CW : constant := 100120; -- glu.h:176 GLU_CCW : constant := 100121; -- glu.h:177 GLU_INTERIOR : constant := 100122; -- glu.h:178 GLU_EXTERIOR : constant := 100123; -- glu.h:179 GLU_UNKNOWN : constant := 100124; -- glu.h:180 GLU_TESS_ERROR1 : constant := 100151; -- glu.h:182 GLU_TESS_ERROR2 : constant := 100152; -- glu.h:183 GLU_TESS_ERROR3 : constant := 100153; -- glu.h:184 GLU_TESS_ERROR4 : constant := 100154; -- glu.h:185 GLU_TESS_ERROR5 : constant := 100155; -- glu.h:186 GLU_TESS_ERROR6 : constant := 100156; -- glu.h:187 GLU_TESS_ERROR7 : constant := 100157; -- glu.h:188 GLU_TESS_ERROR8 : constant := 100158; -- glu.h:189 GLU_AUTO_LOAD_MATRIX : constant := 100200; -- glu.h:195 GLU_CULLING : constant := 100201; -- glu.h:196 GLU_SAMPLING_TOLERANCE : constant := 100203; -- glu.h:197 GLU_DISPLAY_MODE : constant := 100204; -- glu.h:198 GLU_MAP1_TRIM_2 : constant := 100210; -- glu.h:201 GLU_MAP1_TRIM_3 : constant := 100211; -- glu.h:202 GLU_OUTLINE_POLYGON : constant := 100240; -- glu.h:206 GLU_OUTLINE_PATCH : constant := 100241; -- glu.h:207 GLU_NURBS_ERROR1 : constant := 100251; -- glu.h:213 GLU_NURBS_ERROR2 : constant := 100252; -- glu.h:214 GLU_NURBS_ERROR3 : constant := 100253; -- glu.h:215 GLU_NURBS_ERROR4 : constant := 100254; -- glu.h:216 GLU_NURBS_ERROR5 : constant := 100255; -- glu.h:217 GLU_NURBS_ERROR6 : constant := 100256; -- glu.h:218 GLU_NURBS_ERROR7 : constant := 100257; -- glu.h:219 GLU_NURBS_ERROR8 : constant := 100258; -- glu.h:220 GLU_NURBS_ERROR9 : constant := 100259; -- glu.h:221 GLU_NURBS_ERROR10 : constant := 100260; -- glu.h:222 GLU_NURBS_ERROR11 : constant := 100261; -- glu.h:223 GLU_NURBS_ERROR12 : constant := 100262; -- glu.h:224 GLU_NURBS_ERROR13 : constant := 100263; -- glu.h:225 GLU_NURBS_ERROR14 : constant := 100264; -- glu.h:226 GLU_NURBS_ERROR15 : constant := 100265; -- glu.h:227 GLU_NURBS_ERROR16 : constant := 100266; -- glu.h:228 GLU_NURBS_ERROR17 : constant := 100267; -- glu.h:229 GLU_NURBS_ERROR18 : constant := 100268; -- glu.h:230 GLU_NURBS_ERROR19 : constant := 100269; -- glu.h:231 GLU_NURBS_ERROR20 : constant := 100270; -- glu.h:232 GLU_NURBS_ERROR21 : constant := 100271; -- glu.h:233 GLU_NURBS_ERROR22 : constant := 100272; -- glu.h:234 GLU_NURBS_ERROR23 : constant := 100273; -- glu.h:235 GLU_NURBS_ERROR24 : constant := 100274; -- glu.h:236 GLU_NURBS_ERROR25 : constant := 100275; -- glu.h:237 GLU_NURBS_ERROR26 : constant := 100276; -- glu.h:238 GLU_NURBS_ERROR27 : constant := 100277; -- glu.h:239 GLU_NURBS_ERROR28 : constant := 100278; -- glu.h:240 GLU_NURBS_ERROR29 : constant := 100279; -- glu.h:241 GLU_NURBS_ERROR30 : constant := 100280; -- glu.h:242 GLU_NURBS_ERROR31 : constant := 100281; -- glu.h:243 GLU_NURBS_ERROR32 : constant := 100282; -- glu.h:244 GLU_NURBS_ERROR33 : constant := 100283; -- glu.h:245 GLU_NURBS_ERROR34 : constant := 100284; -- glu.h:246 GLU_NURBS_ERROR35 : constant := 100285; -- glu.h:247 GLU_NURBS_ERROR36 : constant := 100286; -- glu.h:248 GLU_NURBS_ERROR37 : constant := 100287; -- glu.h:249 type GLint_Array is -- glu.h:63 array(integer range 0..3) of Win32.Gl.GLint; type GLdouble_Array_16 is -- glu.h:65 array(integer range 0..15) of Win32.Gl.GLdouble; type GLfloat_Array is -- glu.h:111 array(integer range 0..15) of Win32.Gl.GLfloat; type ap_84_fn is access procedure ; -- glu.h:84 pragma Convention(Stdcall, ap_84_fn); type GLdouble_Array_3 is -- glu.h:93 array(integer range 0..2) of Win32.Gl.GLdouble; type GLUquadricObj is private; -- glu.h:73 type PGLUquadricObj is private; -- glu.h:74 type GLUtriangulatorObj is private; -- glu.h:87 type PGLUtriangulatorObj is private; -- glu.h:87 type GLUnurbsObj is private; -- glu.h:100 type PGLUnurbsObj is private; -- glu.h:100 type GLUquadricErrorProc is access procedure ( p1: Win32.Gl.GLenum); -- glu.h:120 pragma Convention(Stdcall, GLUquadricErrorProc); type GLUtessBeginProc is access procedure ( p1: Win32.Gl.GLenum); -- glu.h:123 pragma Convention(Stdcall, GLUtessBeginProc); type GLUtessEdgeFlagProc is access procedure ( p1: Win32.Gl.GLboolean); -- glu.h:124 pragma Convention(Stdcall, GLUtessEdgeFlagProc); type GLUtessVertexProc is access procedure ( p1: Win32.PVOID); -- glu.h:125 pragma Convention(Stdcall, GLUtessVertexProc); type GLUtessEndProc is access procedure ; -- glu.h:126 pragma Convention(Stdcall, GLUtessEndProc); type GLUtessErrorProc is access procedure ( p1: Win32.Gl.GLenum); -- glu.h:127 pragma Convention(Stdcall, GLUtessErrorProc); type GLUnurbsErrorProc is access procedure ( p1: Win32.Gl.GLenum); -- glu.h:130 pragma Convention(Stdcall, GLUnurbsErrorProc); function gluErrorStringWIN(errCode: Win32.Gl.GLenum) return Win32.LPCWSTR; -- glu.h:56 function gluErrorString( errCode: Win32.Gl.GLenum) return Win32.PCBYTE; -- glu.h:58 function gluErrorUnicodeStringEXT( errCode: Win32.Gl.GLenum) return Win32.PCWSTR; -- glu.h:59 procedure gluOrtho2D( left : Win32.Gl.GLdouble; right : Win32.Gl.GLdouble; bottom: Win32.Gl.GLdouble; top : Win32.Gl.GLdouble); -- glu.h:61 procedure gluPerspective( fovy : Win32.Gl.GLdouble; aspect: Win32.Gl.GLdouble; zNear : Win32.Gl.GLdouble; zFar : Win32.Gl.GLdouble); -- glu.h:62 procedure gluPickMatrix( x : Win32.Gl.GLdouble; y : Win32.Gl.GLdouble; width : Win32.Gl.GLdouble; height : Win32.Gl.GLdouble; viewport: GLint_Array); -- glu.h:63 procedure gluLookAt( eyex : Win32.Gl.GLdouble; eyey : Win32.Gl.GLdouble; eyez : Win32.Gl.GLdouble; centerx: Win32.Gl.GLdouble; centery: Win32.Gl.GLdouble; centerz: Win32.Gl.GLdouble; upx : Win32.Gl.GLdouble; upy : Win32.Gl.GLdouble; upz : Win32.Gl.GLdouble); -- glu.h:64 function gluProject( objx : Win32.Gl.GLdouble; objy : Win32.Gl.GLdouble; objz : Win32.Gl.GLdouble; modelMatrix: GLdouble_Array_16; projMatrix : GLdouble_Array_16; viewport : GLint_Array; winx : access Win32.Gl.GLdouble; winy : access Win32.Gl.GLdouble; winz : access Win32.Gl.GLdouble) return Win32.INT; -- glu.h:65 function gluUnProject( winx : Win32.Gl.GLdouble; winy : Win32.Gl.GLdouble; winz : Win32.Gl.GLdouble; modelMatrix: GLdouble_Array_16; projMatrix : GLdouble_Array_16; viewport : GLint_Array; objx : access Win32.Gl.GLdouble; objy : access Win32.Gl.GLdouble; objz : access Win32.Gl.GLdouble) return Win32.INT; -- glu.h:66 function gluScaleImage( format : Win32.Gl.GLenum; widthin : Win32.Gl.GLint; heightin : Win32.Gl.GLint; typein : Win32.Gl.GLenum; datain : Win32.PCVOID; widthout : Win32.Gl.GLint; heightout: Win32.Gl.GLint; typeout : Win32.Gl.GLenum; dataout : Win32.PVOID) return Win32.INT; -- glu.h:68 function gluBuild1DMipmaps( target : Win32.Gl.GLenum; components: Win32.Gl.GLint; width : Win32.Gl.GLint; format : Win32.Gl.GLenum; c_type : Win32.Gl.GLenum; data : Win32.PCVOID) return Win32.INT; -- glu.h:70 function gluBuild2DMipmaps( target : Win32.Gl.GLenum; components: Win32.Gl.GLint; width : Win32.Gl.GLint; height : Win32.Gl.GLint; format : Win32.Gl.GLenum; c_type : Win32.Gl.GLenum; data : Win32.PCVOID) return Win32.INT; -- glu.h:71 function gluNewQuadric return PGLUquadricObj; -- glu.h:74 procedure gluDeleteQuadric( state: access GLUquadricObj); -- glu.h:75 procedure gluQuadricNormals( quadObject: access GLUquadricObj; normals : Win32.Gl.GLenum); -- glu.h:76 procedure gluQuadricTexture( quadObject : access GLUquadricObj; textureCoords: Win32.Gl.GLboolean); -- glu.h:77 procedure gluQuadricOrientation( quadObject : access GLUquadricObj; orientation: Win32.Gl.GLenum); -- glu.h:78 procedure gluQuadricDrawStyle( quadObject: access GLUquadricObj; drawStyle : Win32.Gl.GLenum); -- glu.h:79 procedure gluCylinder( qobj : access GLUquadricObj; baseRadius: Win32.Gl.GLdouble; topRadius : Win32.Gl.GLdouble; height : Win32.Gl.GLdouble; slices : Win32.Gl.GLint; stacks : Win32.Gl.GLint); -- glu.h:80 procedure gluDisk( qobj : access GLUquadricObj; innerRadius: Win32.Gl.GLdouble; outerRadius: Win32.Gl.GLdouble; slices : Win32.Gl.GLint; loops : Win32.Gl.GLint); -- glu.h:81 procedure gluPartialDisk( qobj : access GLUquadricObj; innerRadius: Win32.Gl.GLdouble; outerRadius: Win32.Gl.GLdouble; slices : Win32.Gl.GLint; loops : Win32.Gl.GLint; startAngle : Win32.Gl.GLdouble; sweepAngle : Win32.Gl.GLdouble); -- glu.h:82 procedure gluSphere( qobj : access GLUquadricObj; radius: Win32.Gl.GLdouble; slices: Win32.Gl.GLint; stacks: Win32.Gl.GLint); -- glu.h:83 procedure gluQuadricCallback( qobj : access GLUquadricObj; which: Win32.Gl.GLenum; fn : ap_84_fn); -- glu.h:84 function gluNewTess return PGLUtriangulatorObj; -- glu.h:87 procedure gluTessCallback( tobj : access GLUtriangulatorObj; which: Win32.Gl.GLenum; fn : ap_84_fn); -- glu.h:88 procedure gluDeleteTess( tobj: access GLUtriangulatorObj); -- glu.h:89 procedure gluBeginPolygon( tobj: access GLUtriangulatorObj); -- glu.h:90 procedure gluEndPolygon( tobj: access GLUtriangulatorObj); -- glu.h:91 procedure gluNextContour( tobj : access GLUtriangulatorObj; c_type: Win32.Gl.GLenum); -- glu.h:92 procedure gluTessVertex( tobj: access GLUtriangulatorObj; v : GLdouble_Array_3; data: Win32.PVOID); -- glu.h:93 function gluNewNurbsRenderer return PGLUnurbsObj; -- glu.h:100 procedure gluDeleteNurbsRenderer( nobj: access GLUnurbsObj); -- glu.h:101 procedure gluBeginSurface( nobj: access GLUnurbsObj); -- glu.h:102 procedure gluBeginCurve( nobj: access GLUnurbsObj); -- glu.h:103 procedure gluEndCurve( nobj: access GLUnurbsObj); -- glu.h:104 procedure gluEndSurface( nobj: access GLUnurbsObj); -- glu.h:105 procedure gluBeginTrim( nobj: access GLUnurbsObj); -- glu.h:106 procedure gluEndTrim( nobj: access GLUnurbsObj); -- glu.h:107 procedure gluPwlCurve( nobj : access GLUnurbsObj; count : Win32.Gl.GLint; c_array: access Win32.Gl.GLfloat; stride : Win32.Gl.GLint; c_type : Win32.Gl.GLenum); -- glu.h:108 procedure gluNurbsCurve( nobj : access GLUnurbsObj; nknots : Win32.Gl.GLint; knot : access Win32.Gl.GLfloat; stride : Win32.Gl.GLint; ctlarray: access Win32.Gl.GLfloat; order : Win32.Gl.GLint; c_type : Win32.Gl.GLenum); -- glu.h:109 procedure gluNurbsSurface( nobj : access GLUnurbsObj; sknot_count: Win32.Gl.GLint; sknot : access Win32.Gl.GLfloat; tknot_count: Win32.Gl.GLint; tknot : access Win32.Gl.GLfloat; s_stride : Win32.Gl.GLint; t_stride : Win32.Gl.GLint; ctlarray : access Win32.Gl.GLfloat; sorder : Win32.Gl.GLint; torder : Win32.Gl.GLint; c_type : Win32.Gl.GLenum); -- glu.h:110 procedure gluLoadSamplingMatrices( nobj : access GLUnurbsObj; modelMatrix: GLfloat_Array; projMatrix : GLfloat_Array; viewport : GLint_Array); -- glu.h:111 procedure gluNurbsProperty( nobj : access GLUnurbsObj; property: Win32.Gl.GLenum; value : Win32.Gl.GLfloat); -- glu.h:112 procedure gluGetNurbsProperty( nobj : access GLUnurbsObj; property: Win32.Gl.GLenum; value : access Win32.Gl.GLfloat); -- glu.h:113 procedure gluNurbsCallback( nobj : access GLUnurbsObj; which: Win32.Gl.GLenum; fn : ap_84_fn); -- glu.h:114 private type GLUquadricObj is null record; -- glu.h:73 type GLUtriangulatorObj is null record; -- glu.h:86 type GLUnurbsObj is null record; -- glu.h:98 type PGLUquadricObj is access all GLUquadricObj; -- glu.h:73 type PGLUtriangulatorObj is access all GLUtriangulatorObj; -- glu.h:86 type PGLUnurbsObj is access all GLUnurbsObj; -- glu.h:98 pragma Import(Stdcall, gluErrorString, "gluErrorString"); -- glu.h:58 pragma Import(Stdcall, gluErrorUnicodeStringEXT, "gluErrorUnicodeStringEXT"); -- glu.h:59 pragma Import(Stdcall, gluOrtho2D, "gluOrtho2D"); -- glu.h:61 pragma Import(Stdcall, gluPerspective, "gluPerspective"); -- glu.h:62 pragma Import(Stdcall, gluPickMatrix, "gluPickMatrix"); -- glu.h:63 pragma Import(Stdcall, gluLookAt, "gluLookAt"); -- glu.h:64 pragma Import(Stdcall, gluProject, "gluProject"); -- glu.h:65 pragma Import(Stdcall, gluUnProject, "gluUnProject"); -- glu.h:66 pragma Import(Stdcall, gluScaleImage, "gluScaleImage"); -- glu.h:68 pragma Import(Stdcall, gluBuild1DMipmaps, "gluBuild1DMipmaps"); -- glu.h:70 pragma Import(Stdcall, gluBuild2DMipmaps, "gluBuild2DMipmaps"); -- glu.h:71 pragma Import(Stdcall, gluNewQuadric, "gluNewQuadric"); -- glu.h:74 pragma Import(Stdcall, gluDeleteQuadric, "gluDeleteQuadric"); -- glu.h:75 pragma Import(Stdcall, gluQuadricNormals, "gluQuadricNormals"); -- glu.h:76 pragma Import(Stdcall, gluQuadricTexture, "gluQuadricTexture"); -- glu.h:77 pragma Import(Stdcall, gluQuadricOrientation, "gluQuadricOrientation"); -- glu.h:78 pragma Import(Stdcall, gluQuadricDrawStyle, "gluQuadricDrawStyle"); -- glu.h:79 pragma Import(Stdcall, gluCylinder, "gluCylinder"); -- glu.h:80 pragma Import(Stdcall, gluDisk, "gluDisk"); -- glu.h:81 pragma Import(Stdcall, gluPartialDisk, "gluPartialDisk"); -- glu.h:82 pragma Import(Stdcall, gluSphere, "gluSphere"); -- glu.h:83 pragma Import(Stdcall, gluQuadricCallback, "gluQuadricCallback"); -- glu.h:84 pragma Import(Stdcall, gluNewTess, "gluNewTess"); -- glu.h:87 pragma Import(Stdcall, gluTessCallback, "gluTessCallback"); -- glu.h:88 pragma Import(Stdcall, gluDeleteTess, "gluDeleteTess"); -- glu.h:89 pragma Import(Stdcall, gluBeginPolygon, "gluBeginPolygon"); -- glu.h:90 pragma Import(Stdcall, gluEndPolygon, "gluEndPolygon"); -- glu.h:91 pragma Import(Stdcall, gluNextContour, "gluNextContour"); -- glu.h:92 pragma Import(Stdcall, gluTessVertex, "gluTessVertex"); -- glu.h:93 pragma Import(Stdcall, gluNewNurbsRenderer, "gluNewNurbsRenderer"); -- glu.h:100 pragma Import(Stdcall, gluDeleteNurbsRenderer, "gluDeleteNurbsRenderer"); -- glu.h:101 pragma Import(Stdcall, gluBeginSurface, "gluBeginSurface"); -- glu.h:102 pragma Import(Stdcall, gluBeginCurve, "gluBeginCurve"); -- glu.h:103 pragma Import(Stdcall, gluEndCurve, "gluEndCurve"); -- glu.h:104 pragma Import(Stdcall, gluEndSurface, "gluEndSurface"); -- glu.h:105 pragma Import(Stdcall, gluBeginTrim, "gluBeginTrim"); -- glu.h:106 pragma Import(Stdcall, gluEndTrim, "gluEndTrim"); -- glu.h:107 pragma Import(Stdcall, gluPwlCurve, "gluPwlCurve"); -- glu.h:108 pragma Import(Stdcall, gluNurbsCurve, "gluNurbsCurve"); -- glu.h:109 pragma Import(Stdcall, gluNurbsSurface, "gluNurbsSurface"); -- glu.h:110 pragma Import(Stdcall, gluLoadSamplingMatrices, "gluLoadSamplingMatrices"); -- glu.h:111 pragma Import(Stdcall, gluNurbsProperty, "gluNurbsProperty"); -- glu.h:112 pragma Import(Stdcall, gluGetNurbsProperty, "gluGetNurbsProperty"); -- glu.h:113 pragma Import(Stdcall, gluNurbsCallback, "gluNurbsCallback"); -- glu.h:114 ------------------------------------------------------------------------------- -- -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR -- FITNESS FOR A PARTICULAR PURPOSE. The user assumes the entire risk as to -- the accuracy and the use of this file. This file may be used, copied, -- modified and distributed only by licensees of Microsoft Corporation's -- WIN32 Software Development Kit in accordance with the terms of the -- licensee's End-User License Agreement for Microsoft Software for the -- WIN32 Development Kit. -- -- Copyright (c) Intermetrics, Inc. 1995 -- Portions (c) 1985-1994 Microsoft Corporation with permission. -- Microsoft is a registered trademark and Windows and Windows NT are -- trademarks of Microsoft Corporation. -- ------------------------------------------------------------------------------- end Win32.Glu;