source: branch/egtra-stream-without-en_dec/gl/glu.sbp@ 673

Last change on this file since 673 was 535, checked in by NoWest, 16 years ago

Unicodeに対応

File size: 10.9 KB
Line 
1Function gluErrorStringWIN(errCode As GLenum) As PTSTR
2#ifndef UNICODE
3 gluErrorStringWIN = gluErrorString(errCode) As PTSTR
4#else
5 gluErrorStringWIN = gluErrorUnicodeStringEXT(errCode) As PTSTR
6#endif
7End Function
8
9Declare Function gluErrorString Lib "glu32" (errCode As GLenum) As *GLubyte
10Declare Function gluErrorUnicodeStringEXT Lib "glu32" (errCode As GLenum) As PWSTR
11Declare Function gluGetString Lib "glu32" (name As GLenum) As *GLubyte
12
13Declare Sub gluOrtho2D Lib "glu32" (left As GLdouble, right As GLdouble, bottom As GLdouble, top As GLdouble)
14Declare Sub gluPerspective Lib "glu32" (fovy As GLdouble, aspect As GLdouble, zNear As GLdouble, zFar As GLdouble)
15Declare Sub gluPickMatrix Lib "glu32" (x As GLdouble, y As GLdouble, width As GLdouble, height As GLdouble, viewport As *GLint)
16Declare Sub gluLookAt Lib "glu32" (eyex As GLdouble, eyey As GLdouble, eyez As GLdouble, centerx As GLdouble, centery As GLdouble, centerz As GLdouble, upx As GLdouble, upy As GLdouble, upz As GLdouble)
17Declare Function gluProject Lib "glu32" (objx As GLdouble, objy As GLdouble, objz As GLdouble, modelMatrix As *GLdouble, projMatrix As *GLdouble, viewport As *GLint, winx As *GLdouble, winy As *GLdouble, winz As *GLdouble) As Long
18Declare Function gluUnProject Lib "glu32" (winx As GLdouble, winy As GLdouble, winz As GLdouble, modelMatrix As *GLdouble, projMatrix As *GLdouble, viewport As *GLint, objx As *GLdouble, objy As *GLdouble, objz As *GLdouble) As Long
19Declare Function gluScaleImage Lib "glu32" (format As GLenum, widthin As GLint, heightin As GLint, typein As GLenum, datain As VoidPtr, widthout As GLint, heightout As GLint, typeout As GLenum, dataout As VoidPtr) As Long
20Declare Function gluBuild1DMipmaps Lib "glu32" (target As GLenum, components As GLint, width As GLint, format As GLenum, type_ As GLenum, data As VoidPtr) As Long
21Declare Function gluBuild2DMipmaps Lib "glu32" (target As GLenum, components As GLint, width As GLint, height As GLint, format As GLenum, type_ As GLenum, data As VoidPtr) As Long
22
23TypeDef GLUnurbs = VoidPtr
24TypeDef GLUquadric = VoidPtr
25TypeDef GLUtesselator = VoidPtr
26
27TypeDef GLUnurbsObj = GLUnurbs
28TypeDef GLUquadricObj = GLUquadric
29TypeDef GLUtesselatorObj = GLUtesselator
30TypeDef GLUtriangulatorObj = GLUtesselator
31
32Declare Function gluNewQuadric Lib "glu32" () As *GLUquadric
33Declare Sub gluDeleteQuadric Lib "glu32" (state As *GLUquadric)
34Declare Sub gluQuadricNormals Lib "glu32" (quadObject As *GLUquadric, normals As GLenum)
35Declare Sub gluQuadricTexture Lib "glu32" (quadObject As *GLUquadric, textureCoords As GLboolean)
36Declare Sub gluQuadricOrientation Lib "glu32" (quadObject As *GLUquadric, orientation As GLenum)
37Declare Sub gluQuadricDrawStyle Lib "glu32" (quadObject As *GLUquadric, drawStyle As GLenum)
38Declare Sub gluCylinder Lib "glu32" (qobj As *GLUquadric, baseRadius As GLdouble, topRadius As GLdouble, height As GLdouble, slices As GLint, stacks As GLint)
39Declare Sub gluDisk Lib "glu32" (qobj As *GLUquadric, innerRadius As GLdouble, outerRadius As GLdouble, slices As GLint, loops As GLint)
40Declare Sub gluPartialDisk Lib "glu32" (qobj As *GLUquadric, innerRadius As GLdouble, outerRadius As GLdouble, slices As GLint, loops As GLint, startAngle As GLdouble, sweepAngle As GLdouble)
41Declare Sub gluSphere Lib "glu32" (qobj As *GLUquadric, radius As GLdouble, slices As GLint, stacks As GLint)
42TypeDef PFN_QUADRICCALLBACK = *Sub()
43Declare Sub gluQuadricCallback Lib "glu32" (qobj As *GLUquadric, which As GLenum, fn As PFN_QUADRICCALLBACK)
44Declare Function gluNewTess Lib "glu32" () As *GLUtesselator
45Declare Sub gluDeleteTess Lib "glu32" (tess As *GLUtesselator)
46Declare Sub gluTessBeginPolygon Lib "glu32" (tess As *GLUtesselator, polygon_data As VoidPtr)
47Declare Sub gluTessBeginContour Lib "glu32" (tess As *GLUtesselator)
48Declare Sub gluTessVertex Lib "glu32" (tess As *GLUtesselator, coords As *GLdouble, data As VoidPtr)
49Declare Sub gluTessEndContour Lib "glu32" (tess As *GLUtesselator)
50Declare Sub gluTessEndPolygon Lib "glu32" (tess As *GLUtesselator)
51Declare Sub gluTessProperty Lib "glu32" (tess As *GLUtesselator, which As GLenum, value As GLdouble)
52Declare Sub gluTessNormal Lib "glu32" (tess As *GLUtesselator, x As GLdouble, y As GLdouble, z As GLdouble)
53TypeDef PFN_TESSCALLBACK = *Sub()
54Declare Sub gluTessCallback Lib "glu32" (tess As *GLUtesselator, which As GLenum, fn As PFN_TESSCALLBACK)
55Declare Sub gluGetTessProperty Lib "glu32" (tess As *GLUtesselator, which As GLenum, value As *GLdouble)
56Declare Function gluNewNurbsRenderer Lib "glu32" () As *GLUnurbs
57Declare Sub gluDeleteNurbsRenderer Lib "glu32" (nobj As *GLUnurbs)
58Declare Sub gluBeginSurface Lib "glu32" (nobj As *GLUnurbs)
59Declare Sub gluBeginCurve Lib "glu32" (nobj As *GLUnurbs)
60Declare Sub gluEndCurve Lib "glu32" (nobj As *GLUnurbs)
61Declare Sub gluEndSurface Lib "glu32" (nobj As *GLUnurbs)
62Declare Sub gluBeginTrim Lib "glu32" (nobj As *GLUnurbs)
63Declare Sub gluEndTrim Lib "glu32" (nobj As *GLUnurbs)
64Declare Sub gluPwlCurve Lib "glu32" (nobj As *GLUnurbs, count As GLint, array As *GLfloat, stride As GLint, type_ As GLenum)
65Declare Sub gluNurbsCurve Lib "glu32" (nobj As *GLUnurbs, nknots As GLint, knot As *GLfloat, stride As GLint, ctlarray As *GLfloat, order As GLint, type_ As GLenum)
66Declare Sub gluNurbsSurface Lib "glu32" (nobj As *GLUnurbs, sknot_count As GLint, sknot As *Single, tknot_count As GLint, tknot As *GLfloat, s_stride As GLint, t_stride As GLint, ctlarray As *GLfloat, sorder As GLint, torder As GLint, type_ As GLenum)
67Declare Sub gluLoadSamplingMatrices Lib "glu32" (nobj As *GLUnurbs, modelMatrix As *GLfloat, projMatrix As *GLfloat, viewport As *GLint)
68Declare Sub gluNurbsProperty Lib "glu32" (nobj As *GLUnurbs, property As GLenum, value As GLfloat)
69Declare Sub gluGetNurbsProperty Lib "glu32" (nobj As *GLUnurbs, property As GLenum, value As *GLfloat)
70TypeDef PFN_NURBSCALLBACK = *Sub()
71Declare Sub gluNurbsCallback Lib "glu32" (nobj As *GLUnurbs, which As GLenum, fn As PFN_NURBSCALLBACK)
72
73TypeDef GLUquadricErrorProc= *Sub(e As GLenum)
74TypeDef GLUtessBeginProc= *Sub(e As GLenum)
75TypeDef GLUtessEdgeFlagProc= *Sub(b As GLboolean)
76TypeDef GLUtessVertexProc= *Sub(pv As VoidPtr)
77TypeDef GLUtessEndProc= *Sub()
78TypeDef GLUtessErrorProc= *Sub(e As GLenum)
79TypeDef GLUtessCombineProc= *Sub(dbl As *GLdouble, v As *VoidPtr, f As *GLfloat, ppv As VoidPtr)
80TypeDef GLUtessBeginDataProc= *Sub(e As GLenum, pv As VoidPtr)
81TypeDef GLUtessEdgeFlagDataProc= *Sub(b As GLboolean, pv As VoidPtr)
82TypeDef GLUtessVertexDataProc= *Sub(pv As VoidPtr, pv As VoidPtr)
83TypeDef GLUtessEndDataProc= *Sub(pv As VoidPtr)
84TypeDef GLUtessErrorDataProc= *Sub(e As GLenum, pv As VoidPtr)
85TypeDef GLUtessCombineDataProc= *Sub(dbl As GLdouble, v As VoidPtr, f As *GLfloat, ppv As *VoidPtr, ppv As *VoidPtr)
86TypeDef GLUnurbsErrorProc= *Sub(e As GLenum)
87
88Const GLU_VERSION_1_1 = 1
89Const GLU_VERSION_1_2 = 1
90
91Const GLU_INVALID_ENUM = 100900
92Const GLU_INVALID_VALUE = 100901
93Const GLU_OUT_OF_MEMORY = 100902
94Const GLU_INCOMPATIBLE_GL_VERSION = 100903
95
96Const GLU_VERSION = 100800
97Const GLU_EXTENSIONS = 100801
98
99'Const GLU_TRUE = GL_TRUE
100'Const GLU_FALSE = GL_FALSE
101
102Const GLU_SMOOTH = 100000
103Const GLU_FLAT = 100001
104Const GLU_NONE = 100002
105
106Const GLU_POINT = 100010
107Const GLU_LINE = 100011
108Const GLU_FILL = 100012
109Const GLU_SILHOUETTE = 100013
110
111Const GLU_OUTSIDE = 100020
112Const GLU_INSIDE = 100021
113
114Const GLU_TESS_MAX_COORD = 1.0e150
115
116Const GLU_TESS_WINDING_RULE = 100140
117Const GLU_TESS_BOUNDARY_ONLY = 100141
118Const GLU_TESS_TOLERANCE = 100142
119
120Const GLU_TESS_WINDING_ODD = 100130
121Const GLU_TESS_WINDING_NONZERO = 100131
122Const GLU_TESS_WINDING_POSITIVE = 100132
123Const GLU_TESS_WINDING_NEGATIVE = 100133
124Const GLU_TESS_WINDING_ABS_GEQ_TWO = 100134
125
126Const GLU_TESS_BEGIN = 100100
127Const GLU_TESS_VERTEX = 100101
128Const GLU_TESS_END = 100102
129Const GLU_TESS_ERROR = 100103
130Const GLU_TESS_EDGE_FLAG = 100104
131Const GLU_TESS_COMBINE = 100105
132Const GLU_TESS_BEGIN_DATA = 100106
133Const GLU_TESS_VERTEX_DATA = 100107
134Const GLU_TESS_END_DATA = 100108
135Const GLU_TESS_ERROR_DATA = 100109
136Const GLU_TESS_EDGE_FLAG_DATA = 100110
137Const GLU_TESS_COMBINE_DATA = 100111
138
139Const GLU_TESS_ERROR1 = 100151
140Const GLU_TESS_ERROR2 = 100152
141Const GLU_TESS_ERROR3 = 100153
142Const GLU_TESS_ERROR4 = 100154
143Const GLU_TESS_ERROR5 = 100155
144Const GLU_TESS_ERROR6 = 100156
145Const GLU_TESS_ERROR7 = 100157
146Const GLU_TESS_ERROR8 = 100158
147
148Const GLU_TESS_MISSING_BEGIN_POLYGON = GLU_TESS_ERROR1
149Const GLU_TESS_MISSING_BEGIN_CONTOUR = GLU_TESS_ERROR2
150Const GLU_TESS_MISSING_END_POLYGON = GLU_TESS_ERROR3
151Const GLU_TESS_MISSING_END_CONTOUR = GLU_TESS_ERROR4
152Const GLU_TESS_COORD_TOO_LARGE = GLU_TESS_ERROR5
153Const GLU_TESS_NEED_COMBINE_CALLBACK = GLU_TESS_ERROR6
154
155Const GLU_AUTO_LOAD_MATRIX = 100200
156Const GLU_CULLING = 100201
157Const GLU_SAMPLING_TOLERANCE = 100203
158Const GLU_DISPLAY_MODE = 100204
159Const GLU_PARAMETRIC_TOLERANCE = 100202
160Const GLU_SAMPLING_METHOD = 100205
161Const GLU_U_STEP = 100206
162Const GLU_V_STEP = 100207
163
164Const GLU_PATH_LENGTH = 100215
165Const GLU_PARAMETRIC_ERROR = 100216
166Const GLU_DOMAIN_DISTANCE = 100217
167
168Const GLU_MAP1_TRIM_2 = 100210
169Const GLU_MAP1_TRIM_3 = 100211
170
171Const GLU_OUTLINE_POLYGON = 100240
172Const GLU_OUTLINE_PATCH = 100241
173
174Const GLU_NURBS_ERROR1 = 100251
175Const GLU_NURBS_ERROR2 = 100252
176Const GLU_NURBS_ERROR3 = 100253
177Const GLU_NURBS_ERROR4 = 100254
178Const GLU_NURBS_ERROR5 = 100255
179Const GLU_NURBS_ERROR6 = 100256
180Const GLU_NURBS_ERROR7 = 100257
181Const GLU_NURBS_ERROR8 = 100258
182Const GLU_NURBS_ERROR9 = 100259
183Const GLU_NURBS_ERROR10 = 100260
184Const GLU_NURBS_ERROR11 = 100261
185Const GLU_NURBS_ERROR12 = 100262
186Const GLU_NURBS_ERROR13 = 100263
187Const GLU_NURBS_ERROR14 = 100264
188Const GLU_NURBS_ERROR15 = 100265
189Const GLU_NURBS_ERROR16 = 100266
190Const GLU_NURBS_ERROR17 = 100267
191Const GLU_NURBS_ERROR18 = 100268
192Const GLU_NURBS_ERROR19 = 100269
193Const GLU_NURBS_ERROR20 = 100270
194Const GLU_NURBS_ERROR21 = 100271
195Const GLU_NURBS_ERROR22 = 100272
196Const GLU_NURBS_ERROR23 = 100273
197Const GLU_NURBS_ERROR24 = 100274
198Const GLU_NURBS_ERROR25 = 100275
199Const GLU_NURBS_ERROR26 = 100276
200Const GLU_NURBS_ERROR27 = 100277
201Const GLU_NURBS_ERROR28 = 100278
202Const GLU_NURBS_ERROR29 = 100279
203Const GLU_NURBS_ERROR30 = 100280
204Const GLU_NURBS_ERROR31 = 100281
205Const GLU_NURBS_ERROR32 = 100282
206Const GLU_NURBS_ERROR33 = 100283
207Const GLU_NURBS_ERROR34 = 100284
208Const GLU_NURBS_ERROR35 = 100285
209Const GLU_NURBS_ERROR36 = 100286
210Const GLU_NURBS_ERROR37 = 100287
211
212Declare Sub gluBeginPolygon Lib "glu32" (tess As *GLUtesselator)
213Declare Sub gluNextContour Lib "glu32" (tess As *GLUtesselator, type_ As GLenum)
214Declare Sub gluEndPolygon Lib "glu32" (tess As *GLUtesselator)
215
216Const GLU_CW = 100120
217Const GLU_CCW = 100121
218Const GLU_INTERIOR = 100122
219Const GLU_EXTERIOR = 100123
220Const GLU_UNKNOWN = 100124
221
222Const GLU_BEGIN = GLU_TESS_BEGIN
223Const GLU_VERTEX = GLU_TESS_VERTEX
224Const GLU_END = GLU_TESS_END
225Const GLU_ERROR = GLU_TESS_ERROR
226Const GLU_EDGE_FLAG = GLU_TESS_EDGE_FLAG
Note: See TracBrowser for help on using the repository browser.