source: trunk/Include/abgl.ab@ 496

Last change on this file since 496 was 300, checked in by dai, 17 years ago

trunkディレクトリを作成。bin、Include、TestCaseをtrunkに移動した。
標準ライブラリのビルドバッチを追加。
File size: 52.4 KB
Line 
1#ifndef _INC_ABGL
2#define _INC_ABGL
3
4#require <GL/gl.sbp>
5#require <GL/glu.sbp>
6
7Enum VertexFormatsf
8 PositionOnly
9 PositionColoered
10End Enum
11
12Enum VertexFormatsd
13 PositionOnly
14 PositionColoered
15End Enum
16
17NameSpace CustomVertexf
18 Type PositionOnly
19 x As GLfloat
20 y As GLfloat
21 z As GLfloat
22 Public
23 End Type
24
25 Type PositionColoered
26 Public
27 x As GLfloat
28 y As GLfloat
29 z As GLfloat
30 r As GLfloat
31 g As GLfloat
32 b As GLfloat
33 a As GLfloat
34 End Type
35End NameSpace
36
37NameSpace CustomVertexd
38 Type PositionOnly
39 Public
40 x As GLdouble
41 y As GLdouble
42 z As GLdouble
43 End Type
44
45 Type PositionColoered
46 Public
47 x As GLdouble
48 y As GLdouble
49 z As GLdouble
50 r As GLdouble
51 g As GLdouble
52 b As GLdouble
53 a As GLdouble
54 End Type
55End NameSpace
56
57Class VertexBuffer
58Public
59 Sub VertexBuffer()
60 End Sub
61 Sub ~VertexBuffer()
62 End Sub
63
64Public
65 Function Size() As GLuint
66 Return 0
67 End Function
68 Function Lock() As VoidPtr
69 Return NULL
70 End Function
71 Sub Unlock()
72 End Sub
73End Class
74
75Type XY_FLOAT
76 x As GLfloat
77 y As GLfloat
78End Type
79
80Type XY_DOUBLE
81 x As GLdouble
82 y As GLdouble
83End Type
84
85Class Vector2f
86Public /* constructor */
87 Sub Vector2f()
88 This.X=0.0 As GLfloat
89 This.Y=0.0 As GLfloat
90 End Sub
91 Sub Vector2f(x As GLfloat, y As GLfloat)
92 This.X=x
93 This.Y=y
94 End Sub
95 Sub Vector2f(Vec As Vector2d)
96 This.X=Vec.X As GLfloat
97 This.Y=Vec.Y As GLfloat
98 End Sub
99
100Public /* destructor */
101 Sub ~Vector2f()
102 End Sub
103
104Public /* property */
105 Function X() As GLfloat
106 Return xy.x
107 End Function
108 Function Y() As GLfloat
109 Return xy.y
110 End Function
111 Sub X(x As GLfloat)
112 xy.x=x
113 End Sub
114 Sub Y(y As GLfloat)
115 xy.y=y
116 End Sub
117
118Public /* operator */
119 Sub Operator = (ByRef SrcVec As Vector2f)
120 This.X=SrcVec.X
121 This.Y=SrcVec.Y
122 End Sub
123 Function Operator + (SrcVec As Vector2f) As Vector2f
124 Return Add(This,SrcVec)
125 End Function
126 Function Operator - (SrcVec As Vector2f) As Vector2f
127 Return Substract(This,SrcVec)
128 End Function
129/* Function Operator * (SrcVec As Vector2f) As GLfloat
130 Return Dot(This,SrcVec)
131 End Function*/
132 Function Operator * (Src As GLint) As Vector2f
133 Dim ret As Vector2f(This.X*Src,This.Y*Src)
134 Return ret
135 End Function
136 Function Operator * (Src As GLfloat) As Vector2f
137 Dim ret As Vector2f(This.X*Src,This.Y*Src)
138 Return ret
139 End Function
140 Function Operator * (Src As GLdouble) As Vector2f
141 Dim ret As Vector2f(This.X*Src As GLfloat,This.Y*Src As GLfloat)
142 Return ret
143 End Function
144 Function Operator / (Src As GLint) As Vector2f
145 Dim ret As Vector2f(This.X/Src,This.Y/Src)
146 Return ret
147 End Function
148 Function Operator / (Src As GLfloat) As Vector2f
149 Dim ret As Vector2f(This.X/Src,This.Y/Src)
150 Return ret
151 End Function
152 Function Operator / (Src As GLdouble) As Vector2f
153 Dim ret As Vector2f(This.X/Src,This.Y/Src)
154 Return ret
155 End Function
156
157 Function Operator == (Vec As Vector2f) As Boolean
158 If This.X=Vec.X and This.Y=Vec.Y Then
159 Return True
160 Else
161 Return False
162 End If
163 End Function
164
165Public /* method */
166 Function Add(SrcVec1 As Vector2f, SrcVec2 As Vector2f) As Vector2f
167 Dim ret As Vector2f(SrcVec1.X+SrcVec2.X,SrcVec1.Y+SrcVec2.Y)
168 Return ret
169 End Function
170 Function Distance(SrcVec1 As Vector2f, SrcVec2 As Vector2f) As GLfloat
171 Dim ret As Vector2f
172 ret=SrcVec1-SrcVec2
173 Return ret.Magnitude
174 End Function
175 Function Dot(SrcVec1 As Vector2f, SrcVec2 As Vector2f) As GLfloat
176 Return (SrcVec1.X*SrcVec2.X)+(SrcVec1.Y*SrcVec2.Y)
177 End Function
178 Function Empty() As Vector2f
179 Return New Vector2f()
180 End Function
181 Function Magnitude() As GLfloat
182 Return Math.Sqrt(This.X^2+This.Y^2) As GLfloat
183 End Function
184 Sub Normalize()
185 Dim ret As Vector2f(This.X/This.Magnitude,This.Y/This.Magnitude)
186 This = ret
187 End Sub
188 Function NormalizedVector() As Vector2f
189 Dim ret As Vector2f(This.X/This.Magnitude,This.Y/This.Magnitude)
190 Return ret
191 End Function
192 Function Substract(SrcVec1 As Vector2f, SrcVec2 As Vector2f) As Vector2f
193 Dim ret As Vector2f(SrcVec1.X-SrcVec2.X,SrcVec1.Y-SrcVec2.Y)
194 Return ret
195 End Function
196 Sub Reverse()
197 Dim ret As Vector2f(-This.X,-This.Y)
198 This = ret
199 End Sub
200 Function ReversedVector() As Vector2f
201 Dim ret As Vector2f(-This.X,-This.Y)
202 Return ret
203 End Function
204
205Public /* Object Class Override */
206 Override Function Equals( object As Object ) As Boolean
207 If This.GetHashCode() = object.GetHashCode() Then
208 Return True
209 Else
210 Return False
211 End If
212 End Function
213 Override Function ToString() As String
214 Return GetType().Name
215 End Function
216
217Protected /* Data */
218 xy As XY_FLOAT
219End Class
220
221Class Vector2d
222Public /* constructor */
223 Sub Vector2d()
224 This.X=0.0 As GLdouble
225 This.Y=0.0 As GLdouble
226 End Sub
227 Sub Vector2d(x As GLdouble, y As GLdouble)
228 xy.x=x
229 xy.y=y
230 End Sub
231 Sub Vector2d(Vec As Vector2f)
232 This.X=Vec.X As GLdouble
233 This.Y=Vec.Y As GLdouble
234 End Sub
235
236Public /* destructor */
237 Sub ~Vector2d()
238 End Sub
239
240Public /* property */
241 Function X() As GLdouble
242 Return xy.x
243 End Function
244 Function Y() As GLdouble
245 Return xy.y
246 End Function
247 Sub X(x As GLdouble)
248 xy.x=x
249 End Sub
250 Sub Y(y As GLdouble)
251 xy.y=y
252 End Sub
253
254Public /* operator */
255 Sub Operator = (ByRef SrcVec As Vector2d)
256 This.X=SrcVec.X
257 This.Y=SrcVec.Y
258 End Sub
259 Function Operator + (SrcVec As Vector2d) As Vector2d
260 Return Add(This,SrcVec)
261 End Function
262 Function Operator - (SrcVec As Vector2d) As Vector2d
263 Return Substract(This,SrcVec)
264 End Function
265/* Function Operator * (SrcVec As Vector2d) As GLdouble
266 Return Dot(This,SrcVec)
267 End Function*/
268 Function Operator * (Src As GLint) As Vector2d
269 Dim ret As Vector2d(This.X*Src,SrcVec.Y*Src)
270 Return ret
271 End Function
272 Function Operator * (Src As GLfloat) As Vector2d
273 Dim ret As Vector2d(This.X*Src,SrcVec.Y*Src)
274 Return ret
275 End Function
276 Function Operator * (Src As GLdouble) As Vector2d
277 Dim ret As Vector2d(This.X*Src,SrcVec.Y*Src)
278 Return ret
279 End Function
280 Function Operator / (Src As GLint) As Vector2d
281 Dim ret As Vector2d(This.X/Src,SrcVec.Y/Src)
282 Return ret
283 End Function
284 Function Operator / (Src As GLfloat) As Vector2d
285 Dim ret As Vector2d(This.X/Src,SrcVec.Y/Src)
286 Return ret
287 End Function
288 Function Operator / (Src As GLdouble) As Vector2d
289 Dim ret As Vector2d(This.X/Src,SrcVec.Y/Src)
290 Return ret
291 End Function
292
293 Function Operator == (Vec As Vector2d) As Boolean
294 If This.X=Vec.X and This.Y=Vec.Y Then
295 Return True
296 Else
297 Return False
298 End If
299 End Function
300
301
302Public /* method */
303 Function Add(SrcVec1 As Vector2d, SrcVec2 As Vector2d) As Vector2d
304 Dim ret As Vector2d(SrcVec1.X+SrcVec2.X,SrcVec1.Y+SrcVec2.Y)
305 Return ret
306 End Function
307 Function Distance(SrcVec1 As Vector2d, SrcVec2 As Vector2d) As GLdouble
308 Dim ret As Vector2d
309 ret=SrcVec1-SrcVec2
310 Return ret.Magnitude
311 End Function
312 Function Dot(SrcVec1 As Vector2d, SrcVec2 As Vector2d) As GLdouble
313 Return SrcVec1.X*SrcVec2.X+SrcVec1.Y*SrcVec2.Y
314 End Function
315 Function Empty() As Vector2d
316 Return New Vector2d()
317 End Function
318 Function Magnitude() As GLdouble
319 Return Math.Sqrt(This.X^2+This.Y^2) As GLdouble
320 End Function
321 Sub Normalize()
322 Dim ret As Vector2d(This.X/This.Magnitude,This.Y/This.Magnitude)
323 This = ret
324 End Sub
325 Function NormalizedVector() As Vector2d
326 Dim ret As Vector2d(This.X/This.Magnitude,This.Y/This.Magnitude)
327 Return ret
328 End Function
329 Function Substract(SrcVec1 As Vector2d, SrcVec2 As Vector2d) As Vector2d
330 Dim ret As Vector2d(SrcVec1.X-SrcVec2.X,SrcVec1.Y-SrcVec2.Y)
331 Return ret
332 End Function
333 Sub Reverse()
334 Dim ret As Vector2d(-This.X,-This.Y)
335 This = ret
336 End Sub
337 Function ReversedVector() As Vector2d
338 Dim ret As Vector2d(-This.X,-This.Y)
339 Return ret
340 End Function
341
342Public /* Object Class Override */
343 Override Function Equals( object As Object ) As Boolean
344 If This.GetHashCode() = object.GetHashCode() Then
345 Return True
346 Else
347 Return False
348 End If
349 End Function
350 Override Function ToString() As String
351 Return GetType().Name
352 End Function
353
354Public /* Data */
355 xz As XY_DOUBLE
356End Class
357
358
359Type XYZ_FLOAT
360 x As GLfloat
361 y As GLfloat
362 z As GLfloat
363End Type
364
365Type XYZ_DOUBLE
366 x As GLdouble
367 y As GLdouble
368 z As GLdouble
369End Type
370
371Class Vector3f
372Public /* constructor */
373 Sub Vector3f()
374 This.X=0.0 As GLfloat
375 This.Y=0.0 As GLfloat
376 This.Z=0.0 As GLfloat
377 End Sub
378 Sub Vector3f(x As GLfloat, y As GLfloat, z As GLfloat)
379 xyz.x=x
380 xyz.y=y
381 xyz.z=z
382 End Sub
383 Sub Vector3f(Vec As Vector3d)
384 This.X=Vec.X As GLfloat
385 This.Y=Vec.Y As GLfloat
386 This.Z=Vec.Z As GLfloat
387 End Sub
388
389Public /* destructor */
390 Sub ~Vector3f()
391 End Sub
392
393Public /* property */
394 Function X() As GLfloat
395 Return xyz.x
396 End Function
397 Function Y() As GLfloat
398 Return xyz.y
399 End Function
400 Function Z() As GLfloat
401 Return xyz.z
402 End Function
403 Sub X(x As GLfloat)
404 xyz.x=x
405 End Sub
406 Sub Y(y As GLfloat)
407 xyz.y=y
408 End Sub
409 Sub Z(z As GLfloat)
410 xyz.z=z
411 End Sub
412
413Public /* operator */
414 Sub Operator = (ByRef SrcVec As Vector3f)
415 This.X=SrcVec.X
416 This.Y=SrcVec.Y
417 End Sub
418 Function Operator + (SrcVec As Vector3f) As Vector3f
419 Return Add(This,SrcVec)
420 End Function
421 Function Operator - (SrcVec As Vector3f) As Vector3f
422 Return Substract(This,SrcVec)
423 End Function
424/* Function Operator * (SrcVec As Vector3f) As GLfloat
425 Return Dot(This,SrcVec)
426 End Function*/
427 Function Operator ^ (SrcVec As Vector3f) As Vector3f
428 Return Cross(This,SrcVec)
429 End Function
430
431 Function Operator * (Src As GLint) As Vector3f
432 Dim ret As Vector3f(This.X*Src,This.Y*Src,This.Z*Src)
433 Return ret
434 End Function
435 Function Operator * (Src As GLfloat) As Vector3f
436 Dim ret As Vector3f(This.X*Src,This.Y*Src,This.Z*Src)
437 Return ret
438 End Function
439 Function Operator * (Src As GLdouble) As Vector3f
440 Dim ret As Vector3f(This.X*Src,This.Y*Src,This.Z*Src)
441 Return ret
442 End Function
443 Function Operator / (Src As GLint) As Vector3f
444 Dim ret As Vector3f(This.X/Src,This.Y/Src,This.Z/Src)
445 Return ret
446 End Function
447 Function Operator / (Src As GLfloat) As Vector3f
448 Dim ret As Vector3f(This.X/Src,This.Y/Src,This.Z/Src)
449 Return ret
450 End Function
451 Function Operator / (Src As GLdouble) As Vector3f
452 Dim ret As Vector3f(This.X/Src,This.Y/Src,This.Z/Src)
453 Return ret
454 End Function
455
456 Function Operator == (Vec As Vector3f) As Boolean
457 If This.X=Vec.X and This.Y=Vec.Y and This.Z=Vec.Z Then
458 Return True
459 Else
460 Return False
461 End If
462 End Function
463
464Public /* method */
465 Function Add(SrcVec1 As Vector3f, SrcVec2 As Vector3f) As Vector3f
466 Dim ret As Vector3f(SrcVec1.X+SrcVec2.X,SrcVec1.Y+SrcVec2.Y,SrcVec1.Z+SrcVec2.Z)
467 Return ret
468 End Function
469 Function Cross(SrcVec1 As Vector3f, SrcVec2 As Vector3f) As Vector3f
470 Dim ret As Vector3f(SrcVec1.Y*SrcVec2.Z-SrcVec1.Z*SrcVec2.Y,SrcVec1.Z*SrcVec2.X-SrcVec1.X*SrcVec2.Z,SrcVec1.X*SrcVec2.Y-SrcVec1.Y*SrcVec2.X)
471 Return ret
472 End Function
473 Function Distance(SrcVec1 As Vector3f, SrcVec2 As Vector3f) As GLfloat
474 Dim ret As Vector3f
475 ret=SrcVec1-SrcVec2
476 Return ret.Magnitude
477 End Function
478 Function Dot(SrcVec1 As Vector3f, SrcVec2 As Vector3f) As GLfloat
479 Return SrcVec1.X*SrcVec2.X+SrcVec1.Y*SrcVec2.Y+SrcVec1.Z*SrcVec2.Z
480 End Function
481 Function Empty() As Vector3f
482 Return New Vector3f()
483 End Function
484 Function Magnitude() As GLfloat
485 Return Math.Sqrt(This.X^2+This.Y^2+This.Z^2) As GLfloat
486 End Function
487 Sub Normalize()
488 Dim ret As Vector3f(This.X/This.Magnitude,This.Y/This.Magnitude,This.Z/This.Magnitude)
489 This = ret
490 End Sub
491 Function NormalizedVector() As Vector3f
492 Dim ret As Vector3f(This.X/This.Magnitude,This.Y/This.Magnitude,This.Z/This.Magnitude)
493 Return ret
494 End Function
495 Function Substract(SrcVec1 As Vector3f, SrcVec2 As Vector3f) As Vector3f
496 Dim ret As Vector3f(SrcVec1.X-SrcVec2.X,SrcVec1.Y-SrcVec2.Y,SrcVec1.Z-SrcVec2.Z)
497 Return ret
498 End Function
499 Sub Reverse()
500 Dim ret As Vector3f(-This.X,-This.Y,-This.Z)
501 This = ret
502 End Sub
503 Function ReversedVector() As Vector3f
504 Dim ret As Vector3f(-This.X,-This.Y,-This.Z)
505 Return ret
506 End Function
507
508Public /* Object Class Override */
509 Override Function Equals( object As Object ) As Boolean
510 If This.GetHashCode() = object.GetHashCode() Then
511 Return True
512 Else
513 Return False
514 End If
515 End Function
516 Override Function ToString() As String
517 Return GetType().Name
518 End Function
519
520Public /* Data */
521 xyz As XYZ_FLOAT
522End Class
523
524Class Vector3d
525Public /* constructor */
526 Sub Vector3d()
527 This.X=0.0 As GLdouble
528 This.Y=0.0 As GLdouble
529 This.Z=0.0 As GLdouble
530 End Sub
531 Sub Vector3d(x As GLdouble, y As GLdouble, z As GLdouble)
532 xyz.x=x
533 xyz.y=y
534 xyz.z=z
535 End Sub
536 Sub Vector3d(Vec As Vector3f)
537 This.X=Vec.X As GLdouble
538 This.Y=Vec.Y As GLdouble
539 This.Z=Vec.Z As GLdouble
540 End Sub
541
542Public /* destructor */
543 Sub ~Vector3d()
544 End Sub
545
546
547Public /* property */
548 Function X() As GLdouble
549 Return xyz.x
550 End Function
551 Function Y() As GLdouble
552 Return xyz.y
553 End Function
554 Function Z() As GLdouble
555 Return xyz.z
556 End Function
557 Sub X(x As GLdouble)
558 xyz.x=x
559 End Sub
560 Sub Y(y As GLdouble)
561 xyz.y=y
562 End Sub
563 Sub Z(z As GLdouble)
564 xyz.z=z
565 End Sub
566
567
568Public /* operator */
569 Sub Operator = (ByRef SrcVec As Vector3d)
570 This.X=SrcVec.X
571 This.Y=SrcVec.Y
572 End Sub
573 Function Operator + (SrcVec As Vector3d) As Vector3d
574 Return Add(This,SrcVec)
575 End Function
576 Function Operator - (SrcVec As Vector3d) As Vector3d
577 Return Substract(This,SrcVec)
578 End Function
579/* Function Operator * (SrcVec As Vector3d) As GLdouble
580 Return Dot(This,SrcVec)
581 End Function*/
582 Function Operator ^ (SrcVec As Vector3d) As Vector3d
583 Return Cross(This,SrcVec)
584 End Function
585
586 Function Operator * (Src As GLint) As Vector3d
587 Dim ret As Vector3d(This.X*Src,This.Y*Src,This.Z*Src)
588 Return ret
589 End Function
590 Function Operator * (Src As GLfloat) As Vector3d
591 Dim ret As Vector3d(This.X*Src,This.Y*Src,This.Z*Src)
592 Return ret
593 End Function
594 Function Operator * (Src As GLdouble) As Vector3d
595 Dim ret As Vector3d(This.X*Src,This.Y*Src,This.Z*Src)
596 Return ret
597 End Function
598 Function Operator / (Src As GLint) As Vector3d
599 Dim ret As Vector3d(This.X/Src,This.Y/Src,This.Z/Src)
600 Return ret
601 End Function
602 Function Operator / (Src As GLfloat) As Vector3d
603 Dim ret As Vector3d(This.X/Src,This.Y/Src,This.Z/Src)
604 Return ret
605 End Function
606 Function Operator / (Src As GLdouble) As Vector3d
607 Dim ret As Vector3d(This.X/Src,This.Y/Src,This.Z/Src)
608 Return ret
609 End Function
610
611 Function Operator == (Vec As Vector3d) As Boolean
612 If This.X=Vec.X and This.Y=Vec.Y and This.Z=Vec.Z Then
613 Return True
614 Else
615 Return False
616 End If
617 End Function
618
619
620Public /* method */
621 Function Add(SrcVec1 As Vector3d, SrcVec2 As Vector3d) As Vector3d
622 Dim ret As Vector3d(SrcVec1.X+SrcVec2.X,SrcVec1.Y+SrcVec2.Y,SrcVec1.Z+SrcVec2.Z)
623 Return ret
624 End Function
625 Function Cross(SrcVec1 As Vector3d, SrcVec2 As Vector3d) As Vector3d
626 Dim ret As Vector3d(SrcVec1.Y*SrcVec2.Z-SrcVec1.Z*SrcVec2.Y,SrcVec1.Z*SrcVec2.X-SrcVec1.X*SrcVec2.Z,SrcVec1.X*SrcVec2.Y-SrcVec1.Y*SrcVec2.X)
627 Return ret
628 End Function
629 Function Distance(SrcVec1 As Vector3d, SrcVec2 As Vector3d) As GLdouble
630 Dim ret As Vector3d
631 ret=SrcVec1-SrcVec2
632 Return ret.Magnitude
633 End Function
634 Function Dot(SrcVec1 As Vector3d, SrcVec2 As Vector3d) As GLdouble
635 Return SrcVec1.X*SrcVec2.X+SrcVec1.Y*SrcVec2.Y+SrcVec1.Z*SrcVec2.Z
636 End Function
637 Function Empty() As Vector3d
638 Dim ret As Vector3d()
639 Return ret
640 End Function
641 Function Magnitude() As GLdouble
642 Return Math.Sqrt(This.X^2+This.Y^2+This.Z^2) As GLdouble
643 End Function
644 Sub Normalize()
645 Dim ret As Vector3d(This.X/This.Magnitude,This.Y/This.Magnitude,This.Z/This.Magnitude)
646 This = ret
647 End Sub
648 Function NormalizedVector() As Vector3d
649 Dim ret As Vector3d(This.X/This.Magnitude,This.Y/This.Magnitude,This.Z/This.Magnitude)
650 Return ret
651 End Function
652 Function Substract(SrcVec1 As Vector3d, SrcVec2 As Vector3d) As Vector3d
653 Dim ret As Vector3d(SrcVec1.X-SrcVec2.X,SrcVec1.Y-SrcVec2.Y,SrcVec1.Z-SrcVec2.Z)
654 Return ret
655 End Function
656 Sub Reverse()
657 Dim ret As Vector3d(-This.X,-This.Y,-This.Z)
658 This = ret
659 End Sub
660 Function ReversedVector() As Vector3d
661 Dim ret As Vector3d(-This.X,-This.Y,-This.Z)
662 Return ret
663 End Function
664
665Public /* Object Class Override */
666 Override Function Equals( object As Object ) As Boolean
667 If This.GetHashCode() = object.GetHashCode() Then
668 Return True
669 Else
670 Return False
671 End If
672 End Function
673 Override Function ToString() As String
674 Return GetType().Name
675 End Function
676
677Public /* Data */
678 xyz As XYZ_DOUBLE
679End Class
680
681NameSpace Matrix
682 Class Matrix3x3f
683 End Class
684
685 Class Matrix3x3d
686 End Class
687
688 Class Matrix4x4f
689 End Class
690
691 Class Matrix4x4d
692 End Class
693End NameSpace
694
695Type RGB_FLOAT
696 r As GLfloat
697 g As GLfloat
698 b As GLfloat
699End Type
700
701Type RGB_DOUBLE
702 r As GLdouble
703 g As GLdouble
704 b As GLdouble
705End Type
706
707Class Color3f
708Public /* constructor */
709 Sub Color3f(r As GLfloat, g As GLfloat, b As GLfloat)
710 rgb.r = r
711 rgb.g = g
712 rgb.b = b
713 End Sub
714 Sub Color3f(color As Color3d)
715 rgba.r = color.R As GLfloat
716 rgba.g = color.G As GLfloat
717 rgba.b = color.B As GLfloat
718 End Sub
719
720Public /* destructor */
721 Sub ~Color3f()
722 End Sub
723
724Public /* property */
725 Function R() As GLfloat
726 Return rgb.r
727 End Function
728 Function G() As GLfloat
729 Return rgb.g
730 End Function
731 Function B() As GLfloat
732 Return rgb.b
733 End Function
734 Sub R(r As GLfloat)
735 rgb.r = r
736 End Sub
737 Sub G(g As GLfloat)
738 rgb.g = g
739 End Sub
740 Sub B(b As GLfloat)
741 rgb.b = b
742 End Sub
743
744Public /* operator */
745 Sub operator = (c As Color3f)
746 This.R=c.R
747 This.G=c.G
748 This.B=c.B
749 End Sub
750
751Public /* method */
752 ' HSBを求める式はhttp://ofo.jp/osakana/cgtips/hsb.phtmlを参考にした
753 ' Drawwing\Color.abをさらに参考にしました。
754 Function GetHue() As GLfloat
755 Dim max As GLfloat, min As GLfloat, d As GLfloat
756 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
757 min = Math.Min(Math.Min(rgb.r, rgb.g), rgb.b)
758 d = max - min
759 If rgb.g = max Then
760 Return ((rgb.b - rgb.r) As Double / d * 60.0 + 120.0) As GLfloat
761 ElseIf rgb.b = max Then
762 Return ((rgb.r - rgb.g) As Double / d * 60.0 + 240.0) As GLfloat
763 ElseIf rgb.g < rgb.b Then
764 Return ((rgb.g - rgb.b) As Double / d * 60.0 + 360.0) As GLfloat
765 Else
766 Return ((rgb.g - rgb.b) As Double / d * 60.0) As GLfloat
767 EndIf
768 End Function
769
770 Function GetSaturation() As GLfloat
771 Dim max As GLfloat, min As GLfloat
772 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
773 min = Math.Min(Math.Min(rgb.r, rgb.g), rgb.b)
774 Return (max - min) / max
775 End Function
776
777 Function GetVolue() As GLfloat
778 Dim max As GLfloat
779 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
780 Return max
781 End Function
782
783Public /* static method */
784 Static Function FromRGB(r As GLubyte, g As GLubyte, b As GLubyte) As Color3f
785 Dim ret As Color3f((r As GLfloat)/255.0 As GLfloat,(g As GLfloat)/255.0 As GLfloat,(b As GLfloat)/255.0 As GLfloat)
786 Return ret
787 End Function
788 Static Function FromCOLORREF(c As COLORREF) As Color3f
789 Dim ret As Color3f((c and &hff) As GLfloat/255,(c>>8 and &hff) As GLfloat/255,(c>>16 and &hff) As GLfloat/255)
790 Return ret
791 End Function
792 Static Function FromHSV(h As GLfloat, s As GLfloat, v As GLfloat) As Color3f
793 Dim r As GLfloat
794 Dim g As GLfloat
795 Dim b As GLfloat
796 If h<0 Then h+=360.0
797 If h>360.0 Then h-=360.0
798 Select Case (h/60) As Long
799 Case 0
800 r=v
801 g=v*(1-s*(1-(h/60-(h/60) As Long)))
802 b=v*(1-s)
803 Case 1
804 r=v*(1-s*(h/60-(h/60) As Long))
805 g=v
806 b=v*(1-s)
807 Case 2
808 r=v*(1-s)
809 g=v
810 b=v*(1-s*(1-(h/60-(h/60) As Long)))
811 Case 3
812 r=v*(1-s)
813 g=v*(1-s*(h/60-(h/60) As Long))
814 b=v
815 Case 4
816 r=v*(1-s*(1-(h/60-(h/60) As Long)))
817 g=v*(1-s)
818 b=v
819 Case 5
820 r=v
821 g=v*(1-s)
822 b=v*(1-s*(h/60-(h/60) As Long))
823 Case 6
824 r=v
825 g=v*(1-s*(1-(h/60-(h/60) As Long)))
826 b=v*(1-s)
827 End Select
828
829 Dim ret As Color3f(r,g,b)
830 Return ret
831 End Function
832
833Public
834 rgb As RGB_FLOAT
835End Class
836
837Class Color3d
838Public /* constructor */
839 Sub Color3d(r As GLdouble, g As GLdouble, b As GLdouble)
840 rgb.r = r
841 rgb.g = g
842 rgb.b = b
843 End Sub
844 Sub Color3d(color As Color3f)
845 rgba.r = color.R As GLdouble
846 rgba.g = color.G As GLdouble
847 rgba.b = color.B As GLdouble
848 End Sub
849
850Public /* destructor */
851 Sub ~Color3d()
852 End Sub
853
854Public /* property */
855 Function R() As GLdouble
856 Return rgb.r
857 End Function
858 Function G() As GLdouble
859 Return rgb.g
860 End Function
861 Function B() As GLdouble
862 Return rgb.b
863 End Function
864 Sub R(r As GLdouble)
865 rgb.r = r
866 End Sub
867 Sub G(g As GLdouble)
868 rgb.g = g
869 End Sub
870 Sub B(b As GLdouble)
871 rgb.b = b
872 End Sub
873
874Public /* method */
875 ' HSBを求める式はhttp://ofo.jp/osakana/cgtips/hsb.phtmlを参考にした
876 ' Drawwing\Color.abをさらに参考にしました。
877 Function GetHue() As GLdouble
878 Dim max As GLdouble, min As GLdouble, d As GLdouble
879 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
880 min = Math.Min(Math.Min(rgb.r, rgb.g), rgb.b)
881 d = max - min
882 If rgb.g = max Then
883 Return ((rgb.b - rgb.r) As Double / d * 60.0 + 120.0) As GLfloat
884 ElseIf rgb.b = max Then
885 Return ((rgb.r - rgb.g) As Double / d * 60.0 + 240.0) As GLfloat
886 ElseIf rgb.g < rgb.b Then
887 Return ((rgb.g - rgb.b) As Double / d * 60.0 + 360.0) As GLfloat
888 Else
889 Return ((rgb.g - rgb.b) As Double / d * 60.0) As GLfloat
890 EndIf
891 End Function
892
893 Function GetSaturation() As GLdouble
894 Dim max As GLdouble, min As GLdouble
895 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
896 min = Math.Min(Math.Min(rgb.r, rgb.g), rgb.b)
897 Return (max - min) / max
898 End Function
899
900 Function GetVolue() As GLdouble
901 Dim max As GLdouble
902 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
903 Return max
904 End Function
905
906Public /* static method */
907 Static Function FromRGB(r As GLubyte, g As GLubyte, b As GLubyte) As Color3d
908 Dim ret As Color3d(r/255,g/255,b/255)
909 Return ret
910 End Function
911 Static Function FromCOLORREF(c As COLORREF) As Color3d
912 Dim ret As Color3d((c and &hff)/255,(c>>8 and &hff)/255,(c>>16 and &hff)/255)
913 Return ret
914 End Function
915 Static Function FromHSV(h As GLdouble, s As GLdouble, v As GLdouble) As Color3d
916 Dim r As GLdouble
917 Dim g As GLdouble
918 Dim b As GLfloat
919 If h<0 Then h+=360.0
920 If h>360.0 Then h-=360.0
921 Select Case (h/60) As Long
922 Case 0
923 r=v
924 g=v*(1-s*(1-(h/60-(h/60) As Long)))
925 b=v*(1-s)
926 Case 1
927 r=v*(1-s*(h/60-(h/60) As Long))
928 g=v
929 b=v*(1-s)
930 Case 2
931 r=v*(1-s)
932 g=v
933 b=v*(1-s*(1-(h/60-(h/60) As Long)))
934 Case 3
935 r=v*(1-s)
936 g=v*(1-s*(h/60-(h/60) As Long))
937 b=v
938 Case 4
939 r=v*(1-s*(1-(h/60-(h/60) As Long)))
940 g=v*(1-s)
941 b=v
942 Case 5
943 r=v
944 g=v*(1-s)
945 b=v*(1-s*(h/60-(h/60) As Long))
946 Case 6
947 r=v
948 g=v*(1-s*(1-(h/60-(h/60) As Long)))
949 b=v*(1-s)
950 End Select
951
952 Dim ret As Color3d(r,g,b)
953 Return ret
954 End Function
955Public
956 rgb As RGB_DOUBLE
957End Class
958
959Type RGBA_FLOAT
960 r As GLfloat
961 g As GLfloat
962 b As GLfloat
963 a As GLfloat
964End Type
965
966Type RGBA_DOUBLE
967 r As GLdouble
968 g As GLdouble
969 b As GLdouble
970 a As GLdouble
971End Type
972
973Class Color4f
974Public /* constructor */
975 Sub Color4f(r As GLfloat, g As GLfloat, b As GLfloat, a As GLfloat)
976 rgba.r = r
977 rgba.g = g
978 rgba.b = b
979 rgba.a = a
980 End Sub
981 Sub Color4f(color As Color4d)
982 rgba.r = color.R As GLfloat
983 rgba.g = color.G As GLfloat
984 rgba.b = color.B As GLfloat
985 rgba.a = color.A As GLfloat
986 End Sub
987
988Public /* destructor */
989 Sub ~Color4f()
990 End Sub
991
992Public /* property */
993 Function R() As GLfloat
994 Return rgba.r
995 End Function
996 Function G() As GLfloat
997 Return rgba.g
998 End Function
999 Function B() As GLfloat
1000 Return rgba.b
1001 End Function
1002 Function A() As GLfloat
1003 Return rgba.a
1004 End Function
1005 Sub R(r As GLfloat)
1006 rgba.r = r
1007 End Sub
1008 Sub G(g As GLfloat)
1009 rgba.g = g
1010 End Sub
1011 Sub B(b As GLfloat)
1012 rgba.b = b
1013 End Sub
1014 Sub A(a As GLfloat)
1015 rgba.a = a
1016 End Sub
1017
1018Public /* operator */
1019 Sub operator = (ByRef c As Color4f)
1020 This.R=c.R
1021 This.G=c.G
1022 This.B=c.B
1023 This.A=c.A
1024 End Sub
1025
1026Public /* method */
1027 ' HSBを求める式はhttp://ofo.jp/osakana/cgtips/hsb.phtmlを参考にした
1028 ' Drawwing\Color.abをさらに参考にしました。
1029 Function GetHue() As GLfloat
1030 Dim max As GLfloat, min As GLfloat, d As GLfloat
1031 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
1032 min = Math.Min(Math.Min(rgb.r, rgb.g), rgb.b)
1033 d = max - min
1034 If rgb.g = max Then
1035 Return ((rgb.b - rgb.r) As Double / d * 60.0 + 120.0) As GLfloat
1036 ElseIf rgb.b = max Then
1037 Return ((rgb.r - rgb.g) As Double / d * 60.0 + 240.0) As GLfloat
1038 ElseIf rgb.g < rgb.b Then
1039 Return ((rgb.g - rgb.b) As Double / d * 60.0 + 360.0) As GLfloat
1040 Else
1041 Return ((rgb.g - rgb.b) As Double / d * 60.0) As GLfloat
1042 EndIf
1043 End Function
1044
1045 Function GetSaturation() As GLfloat
1046 Dim max As GLfloat, min As GLfloat
1047 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
1048 min = Math.Min(Math.Min(rgb.r, rgb.g), rgb.b)
1049 Return (max - min) / max
1050 End Function
1051
1052 Function GetVolue() As GLfloat
1053 Dim max As GLfloat
1054 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
1055 Return max
1056 End Function
1057
1058Public /* static method */
1059 Static Function FromRGB(r As GLubyte, g As GLubyte, b As GLubyte) As Color4f
1060 Dim ret As Color4f(r/255,g/255,b/255,1.0)
1061 Return ret
1062 End Function
1063 Static Function FromArgb(a As GLubyte, r As GLubyte, g As GLubyte, b As GLubyte) As Color4f
1064 Dim ret As Color4f(r/255,g/255,b/255,a/255)
1065 Return ret
1066 End Function
1067 Static Function FromCOLORREF(c As COLORREF) As Color4f
1068 Dim ret As Color4f((c and &hff)/255,(c>>8 and &hff)/255,(c>>16 and &hff)/255,1.0)
1069 Return ret
1070 End Function
1071 Static Function FromHSV(h As GLfloat, s As GLfloat, v As GLfloat, a As GLfloat) As Color4f
1072 Dim r As GLfloat
1073 Dim g As GLfloat
1074 Dim b As GLfloat
1075 If h<0 Then h+=360.0
1076 If h>360.0 Then h-=360.0
1077 Select Case (h/60) As Long
1078 Case 0
1079 r=v
1080 g=v*(1-s*(1-(h/60-(h/60) As Long)))
1081 b=v*(1-s)
1082 Case 1
1083 r=v*(1-s*(h/60-(h/60) As Long))
1084 g=v
1085 b=v*(1-s)
1086 Case 2
1087 r=v*(1-s)
1088 g=v
1089 b=v*(1-s*(1-(h/60-(h/60) As Long)))
1090 Case 3
1091 r=v*(1-s)
1092 g=v*(1-s*(h/60-(h/60) As Long))
1093 b=v
1094 Case 4
1095 r=v*(1-s*(1-(h/60-(h/60) As Long)))
1096 g=v*(1-s)
1097 b=v
1098 Case 5
1099 r=v
1100 g=v*(1-s)
1101 b=v*(1-s*(h/60-(h/60) As Long))
1102 Case 6
1103 r=v
1104 g=v*(1-s*(1-(h/60-(h/60) As Long)))
1105 b=v*(1-s)
1106 End Select
1107
1108 Dim ret As Color4f(r,g,b,a)
1109 Return ret
1110 End Function
1111
1112Public
1113 rgba As RGBA_FLOAT
1114End Class
1115
1116Class Color4d
1117
1118Public /* constructor */
1119 Sub Color4d(r As GLdouble, g As GLdouble, b As GLdouble, a As GLdouble)
1120 rgba.r = r
1121 rgba.g = g
1122 rgba.b = b
1123 rgba.a = a
1124 End Sub
1125 Sub Color4d(color As Color4f)
1126 rgba.r = color.R As GLdouble
1127 rgba.g = color.G As GLdouble
1128 rgba.b = color.B As GLdouble
1129 rgba.a = color.A As GLdouble
1130 End Sub
1131
1132Public /* destructor */
1133 Sub ~Color4d()
1134 End Sub
1135
1136Public /* property */
1137 Function R() As GLdouble
1138 Return rgba.r
1139 End Function
1140 Function G() As GLdouble
1141 Return rgba.g
1142 End Function
1143 Function B() As GLdouble
1144 Return rgba.b
1145 End Function
1146 Function A() As GLdouble
1147 Return rgba.a
1148 End Function
1149 Sub R(r As GLdouble)
1150 rgba.r = r
1151 End Sub
1152 Sub G(g As GLdouble)
1153 rgba.g = g
1154 End Sub
1155 Sub B(b As GLdouble)
1156 rgba.b = b
1157 End Sub
1158 Sub A(a As GLdouble)
1159 rgba.a = a
1160 End Sub
1161
1162Public /* operator */
1163 Sub operator = (ByRef c As Color4d)
1164 This.R=c.R
1165 This.G=c.G
1166 This.B=c.B
1167 This.A=c.A
1168 End Sub
1169
1170Public /* method */
1171 ' HSBを求める式はhttp://ofo.jp/osakana/cgtips/hsb.phtmlを参考にした
1172 ' Drawwing\Color.abをさらに参考にしました。
1173 Function GetHue() As GLfloat
1174 Dim max As GLfloat, min As GLfloat, d As GLfloat
1175 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
1176 min = Math.Min(Math.Min(rgb.r, rgb.g), rgb.b)
1177 d = max - min
1178 If rgb.g = max Then
1179 Return ((rgb.b - rgb.r) As Double / d * 60.0 + 120.0) As GLdouble
1180 ElseIf rgb.b = max Then
1181 Return ((rgb.r - rgb.g) As Double / d * 60.0 + 240.0) As GLdouble
1182 ElseIf rgb.g < rgb.b Then
1183 Return ((rgb.g - rgb.b) As Double / d * 60.0 + 360.0) As GLdouble
1184 Else
1185 Return ((rgb.g - rgb.b) As Double / d * 60.0) As GLdouble
1186 EndIf
1187 End Function
1188
1189 Function GetSaturation() As GLdouble
1190 Dim max As GLdouble, min As GLdouble
1191 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
1192 min = Math.Min(Math.Min(rgb.r, rgb.g), rgb.b)
1193 Return (max - min) / max
1194 End Function
1195
1196 Function GetVolue() As GLdouble
1197 Dim max As GLdouble
1198 max = Math.Max(Math.Max(rgb.r, rgb.g), rgb.b)
1199 Return max
1200 End Function
1201
1202Public /* static method */
1203 Static Function FromRGB(r As GLubyte, g As GLubyte, b As GLubyte) As Color4d
1204 Dim ret As Color4d(r/255,g/255,b/255,1.0)
1205 Return ret
1206 End Function
1207 Static Function FromArgb(a As GLubyte, r As GLubyte, g As GLubyte, b As GLubyte) As Color4d
1208 Dim ret As Color4d(r/255,g/255,b/255,a/255)
1209 Return ret
1210 End Function
1211 Static Function FromCOLORREF(c As COLORREF) As Color4d
1212 Dim ret As Color4d((c and &hff)/255,(c>>8 and &hff)/255,(c>>16 and &hff)/255,1.0)
1213 Return ret
1214 End Function
1215 Static Function FromHSV(h As GLdouble, s As GLdouble, v As GLdouble, a As GLdouble) As Color4d
1216 Dim r As GLdouble
1217 Dim g As GLdouble
1218 Dim b As GLdouble
1219 Dim a As GLdouble
1220 If h<0 Then h+=360.0
1221 If h>360.0 Then h-=360.0
1222 Select Case (h/60) As Long
1223 Case 0
1224 r=v
1225 g=v*(1-s*(1-(h/60-(h/60) As Long)))
1226 b=v*(1-s)
1227 Case 1
1228 r=v*(1-s*(h/60-(h/60) As Long))
1229 g=v
1230 b=v*(1-s)
1231 Case 2
1232 r=v*(1-s)
1233 g=v
1234 b=v*(1-s*(1-(h/60-(h/60) As Long)))
1235 Case 3
1236 r=v*(1-s)
1237 g=v*(1-s*(h/60-(h/60) As Long))
1238 b=v
1239 Case 4
1240 r=v*(1-s*(1-(h/60-(h/60) As Long)))
1241 g=v*(1-s)
1242 b=v
1243 Case 5
1244 r=v
1245 g=v*(1-s)
1246 b=v*(1-s*(h/60-(h/60) As Long))
1247 Case 6
1248 r=v
1249 g=v*(1-s*(1-(h/60-(h/60) As Long)))
1250 b=v*(1-s)
1251 End Select
1252
1253 Dim ret As Color4f(r,g,b,a)
1254 Return ret
1255 End Function
1256
1257Public
1258 rgba As RGBA_DOUBLE
1259End Class
1260
1261
1262Class Light
1263Private
1264 Const Number As GLenum
1265
1266Public
1267 Sub Enabled(enabled As GLboolean)
1268 If enabled Then
1269 glEnable(Number)
1270 Else
1271 glDisable(Number)
1272 End If
1273 End Sub
1274 Function Enabled() As GLboolean
1275 Dim lighting As GLboolean
1276 glGetBooleanv(Number,VarPtr(lighting))
1277 Return lighting
1278 End Function
1279
1280Public /* constructor */
1281 Sub Light(num As GLenum)
1282 Number=num
1283 End Sub
1284
1285Public
1286 Sub SetAmbient(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
1287 Dim amb[3] As GLfloat
1288 amb[0]=red
1289 amb[1]=green
1290 amb[2]=blue
1291 amb[3]=alpha
1292 glLightfv(Number,GL_AMBIENT,amb)
1293 End Sub
1294 Sub SetAmbient(ByRef color As Color4f)
1295 Dim amb[3] As GLfloat
1296 amb[0]=color.R
1297 amb[1]=color.G
1298 amb[2]=color.B
1299 amb[3]=color.A
1300 glLightfv(Number,GL_AMBIENT,amb)
1301 End Sub
1302 Sub SetAmbient(amb As *GLfloat)
1303 glLightfv(Number,GL_AMBIENT,amb)
1304 End Sub
1305
1306 Sub SetDiffuse(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
1307 Dim dif[3] As GLfloat
1308 dif[0]=red
1309 dif[1]=green
1310 dif[2]=blue
1311 dif[3]=alpha
1312 glLightfv(Number,GL_DIFFUSE,dif)
1313 End Sub
1314 Sub SetDiffuse(ByRef color As Color4f)
1315 Dim dif[3] As GLfloat
1316 amb[0]=color.R
1317 amb[1]=color.G
1318 amb[2]=color.B
1319 amb[3]=color.A
1320 glLightfv(Number,GL_DIFFUSE,dif)
1321 End Sub
1322 Sub SetDiffuse(dif As *GLfloat)
1323 glLightfv(Number,GL_DIFFUSE,dif)
1324 End Sub
1325
1326 Sub SetSpecular(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
1327 Dim spc[3] As GLfloat
1328 spc[0]=red
1329 spc[1]=green
1330 spc[2]=blue
1331 spc[3]=alpha
1332 glLightfv(Number,GL_SPECULAR,spc)
1333 End Sub
1334 Sub SetSpecular(ByRef color As Color4f)
1335 Dim spc[3] As GLfloat
1336 amb[0]=color.R
1337 amb[1]=color.G
1338 amb[2]=color.B
1339 amb[3]=color.A
1340 glLightfv(Number,GL_SPECULAR,spc)
1341 End Sub
1342 Sub SetSpecular(spc As *GLfloat)
1343 glLightfv(Number,GL_SPECULAR,spc)
1344 End Sub
1345
1346 Sub SetPosition(pos As *GLfloat)
1347 glLightfv(Number,GL_POSITION,pos)
1348 End Sub
1349End Class
1350
1351Class LightsCollection
1352Public
1353 Function Item() As Light
1354 Return
1355 End Function
1356End Class
1357
1358Class MaterialManager
1359Public
1360 Sub Ambient(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
1361 Dim face As GLenum
1362 glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
1363 Dim amb[3] As GLfloat
1364 amb[0]=red
1365 amb[1]=green
1366 amb[2]=blue
1367 amb[3]=alpha
1368 glMaterialfv(face,GL_AMBIENT,amb)
1369 End Sub
1370 Sub Ambient(ByRef color As Color4f)
1371 Dim face As GLenum
1372 glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
1373 Dim amb[3] As GLfloat
1374 amb[0]=color.R
1375 amb[1]=color.G
1376 amb[2]=color.B
1377 amb[3]=color.A
1378 glMaterialfv(face,GL_AMBIENT,amb)
1379 End Sub
1380 Sub Ambient(amb As *GLfloat)
1381 glMaterialfv(face,GL_AMBIENT,amb)
1382 End Sub
1383
1384 Sub Diffuse(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
1385 Dim face As GLenum
1386 glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
1387 Dim dif[3] As GLfloat
1388 dif[0]=red
1389 dif[1]=green
1390 dif[2]=blue
1391 dif[3]=alpha
1392 glMaterialfv(face,GL_DIFFUSE,dif)
1393 End Sub
1394 Sub Diffuse(ByRef color As Color4f)
1395 Dim face As GLenum
1396 glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
1397 Dim dif[3] As GLfloat
1398 dif[0]=color.R
1399 dif[1]=color.G
1400 dif[2]=color.B
1401 dif[3]=color.A
1402 glMaterialfv(face,GL_DIFFUSE,dif)
1403 End Sub
1404 Sub Diffuse(dif As *GLfloat)
1405 glMaterialfv(face,GL_DIFFUSE,dif)
1406 End Sub
1407
1408 Sub Specular(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
1409 Dim face As GLenum
1410 glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
1411 Dim spc[3] As GLfloat
1412 spc[0]=red
1413 spc[1]=green
1414 spc[2]=blue
1415 spc[3]=alpha
1416 glMaterialfv(face,GL_SPECULAR,spc)
1417 End Sub
1418 Sub Specular(ByRef color As Color4f)
1419 Dim face As GLenum
1420 glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
1421 Dim spc[3] As GLfloat
1422 spc[0]=color.R
1423 spc[1]=color.G
1424 spc[2]=color.B
1425 spc[3]=color.A
1426 glMaterialfv(face,GL_SPECULAR,spc)
1427 End Sub
1428 Sub Specular(spc As *GLfloat)
1429 glMaterialfv(face,GL_SPECULAR,spc)
1430 End Sub
1431
1432 Sub Shininess(shin As GLfloat)
1433 Dim face As GLenum
1434 glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
1435 glMaterialf(face,GL_SHININESS,shin)
1436 End Sub
1437
1438 Sub Emission(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
1439 Dim face As GLenum
1440 glGetIntegerv(GL_COLOR_MATERIAL_FACE,VarPtr(face))
1441 Dim ems[3] As GLfloat
1442 ems[0]=red
1443 ems[1]=green
1444 ems[2]=blue
1445 ems[3]=alpha
1446 glMaterialfv(face,GL_EMISSION,ems)
1447 End Sub
1448End Class
1449
1450Class ModelViewMatrix
1451Public
1452 Sub LoadIdentity()
1453 Dim mode As GLenum
1454 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode) As *Long)
1455 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1456 glLoadIdentity()
1457 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1458 End Sub
1459 Sub LookAt(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)
1460 Dim mode As GLenum
1461 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode))
1462 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1463 gluLookAt(eyex, eyey, eyez, centerx, centery, centerz, upx, upy, upz)
1464 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1465 End Sub
1466 Sub RotateX(angle As GLdouble)
1467 Dim mode As GLenum
1468 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode) As *Long)
1469 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1470 glRotated(angle, 1.0 As GLdouble, 0.0 As GLdouble, 0.0 As GLdouble)
1471 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1472 End Sub
1473 Sub RotateX(angle As GLfloat)
1474 Dim mode As GLenum
1475 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode))
1476 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1477 glRotatef(angle, 1.0 As GLfloat, 0.0 As GLfloat, 0.0 As GLfloat)
1478 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1479 End Sub
1480 Sub RotateY(angle As GLdouble)
1481 Dim mode As GLenum
1482 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode) As *Long)
1483 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1484 glRotated(angle, 0.0 As GLdouble, 1.0 As GLdouble, 0.0 As GLdouble)
1485 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1486 End Sub
1487 Sub RotateY(angle As GLfloat)
1488 Dim mode As GLenum
1489 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode))
1490 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1491 glRotatef(angle, 0.0 As GLfloat, 1.0 As GLfloat, 0.0 As GLfloat)
1492 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1493 End Sub
1494 Sub RotateZ(angle As GLdouble)
1495 Dim mode As GLenum
1496 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode))
1497 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1498 glRotated(angle, 0.0 As GLdouble, 0.0 As GLdouble, 1.0 As GLdouble)
1499 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1500 End Sub
1501 Sub RotateZ(angle As GLfloat)
1502 Dim mode As GLenum
1503 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode))
1504 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1505 glRotatef(angle, 0.0 As GLfloat, 0.0 As GLfloat, 1.0 As GLfloat)
1506 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1507 End Sub
1508 Sub Scale(x As GLdouble, y As GLdouble, z As GLdouble)
1509 Dim mode As GLenum
1510 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode))
1511 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1512 glScaled(x, y, z)
1513 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1514 End Sub
1515 Sub Scale(x As GLfloat, y As GLfloat, z As GLfloat)
1516 Dim mode As GLenum
1517 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode))
1518 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1519 glScalef(x, y, z)
1520 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1521 End Sub
1522 Sub Translate(x As GLdouble, y As GLdouble, z As GLdouble)
1523 Dim mode As GLenum
1524 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode) As *GLint)
1525 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1526 glTranslated(x, y, z)
1527 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1528 End Sub
1529 Sub Translate(x As GLfloat, y As GLfloat, z As GLfloat)
1530 Dim mode As GLenum
1531 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode) As *Long)
1532 If mode<>GL_MODELVIEW Then glMatrixMode(GL_MODELVIEW)
1533 glTranslatef(x, y, z)
1534 If mode<>GL_MODELVIEW Then glMatrixMode(mode)
1535 End Sub
1536End Class
1537
1538Class ProjectionMatrix
1539Public
1540 Sub LoadIdentity()
1541 Dim mode As GLenum
1542 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode) As *Long)
1543 If mode<>GL_PROJECTION Then glMatrixMode(GL_PROJECTION)
1544 glLoadIdentity()
1545 If mode<>GL_PROJECTION Then glMatrixMode(mode)
1546 End Sub
1547 Sub Ortho2D(left As GLdouble, right As GLdouble, bottom As GLdouble, top As GLdouble)
1548 Dim mode As GLenum
1549 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode) As *Long)
1550 If mode<>GL_PROJECTION Then glMatrixMode(GL_PROJECTION)
1551 gluOrtho2D(left, right, bottom, top)
1552 If mode<>GL_PROJECTION Then glMatrixMode(mode)
1553 End Sub
1554 Sub Ortho3D(left As GLdouble, right As GLdouble, bottom As GLdouble, top As GLdouble, zNear As GLdouble, zFar As GLdouble)
1555 Dim mode As GLenum
1556 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode))
1557 If mode<>GL_PROJECTION Then glMatrixMode(GL_PROJECTION)
1558 glOrtho(left, right, bottom, top, zNear, zFar)
1559 If mode<>GL_PROJECTION Then glMatrixMode(mode)
1560 End Sub
1561 Sub Frustum(left As GLdouble, right As GLdouble, bottom As GLdouble, top As GLdouble, zNear As GLdouble, zFar As GLdouble)
1562 Dim mode As GLenum
1563 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode))
1564 If mode<>GL_PROJECTION Then glMatrixMode(GL_PROJECTION)
1565 glFrustum(left, right, bottom, top, zNear, zFar)
1566 If mode<>GL_PROJECTION Then glMatrixMode(mode)
1567 End Sub
1568 Sub Perspective(fovy As GLdouble, aspect As GLdouble, zNear As GLdouble, zFar As GLdouble)
1569 Dim mode As GLenum
1570 glGetIntegerv(GL_MATRIX_MODE,VarPtr(mode) As *Long)
1571 If mode<>GL_PROJECTION Then glMatrixMode(GL_PROJECTION)
1572 gluPerspective(fovy, aspect, zNear, zFar)
1573 If mode<>GL_PROJECTION Then glMatrixMode(mode)
1574 End Sub
1575End Class
1576
1577Class TransformMatrix
1578Public
1579 Projection As ProjectionMatrix
1580 ModelView As ModelViewMatrix
1581
1582Public
1583 Sub Transform()
1584 Projection=New ProjectionMatrix
1585 ModelView=New ModelViewMatrix
1586 End Sub
1587End Class
1588
1589Class LightModelManager
1590Public
1591 Function Ambient () As Color4f
1592 Dim amb As Color4f
1593 glGetFloatv(GL_LIGHT_MODEL_AMBIENT,VarPtr(amb.rgba))
1594 Return amb
1595 End Function
1596 Sub Ambient(amb As Color4f)
1597 glLightModelfv(GL_LIGHT_MODEL_AMBIENT,VarPtr(amb.rgba))
1598 End Sub
1599
1600 Function LocalView() As GLboolean
1601 Dim local As GLboolean
1602 glGetBooleanv(GL_LIGHT_MODEL_LOCAL_VIEW,VarPtr(local))
1603 Return local
1604 End Function
1605 Sub LocalView(enable As GLboolean)
1606 If enable Then
1607 glLightModeli(GL_LIGHT_MODEL_LOCAL_VIEW,GL_TRUE)
1608 Else
1609 glLightModeli(GL_LIGHT_MODEL_LOCAL_VIEW,GL_FALSE)
1610 End If
1611 End Sub
1612
1613 Function TwoSide() As GLboolean
1614 Dim local As GLboolean
1615 glGetBooleanv(GL_LIGHT_MODEL_TWO_SIDE,VarPtr(local))
1616 Return local
1617 End Function
1618 Sub TwoSide(enable As GLboolean)
1619 If enable Then
1620 glLightModeli(GL_LIGHT_MODEL_TWO_SIDE,GL_TRUE)
1621 Else
1622 glLightModeli(GL_LIGHT_MODEL_TWO_SIDE,GL_FALSE)
1623 End If
1624 End Sub
1625End Class
1626
1627Class RenderStateManager
1628Public /* Composiotion */
1629 LightModel As LightModelManager
1630
1631Public
1632 Sub RenderStateManager()
1633 LightModel = New LightModelManager()
1634 End Sub
1635 Function AlphaTestEnable() As GLboolean
1636 Dim alpha As GLboolean
1637 glGetBooleanv(GL_ALPHA_TEST,VarPtr(alpha))
1638 Return alpha
1639 End Function
1640 Sub AlphaTestEnable(enable As GLboolean)
1641 If enable Then
1642 glEnable(GL_ALPHA_TEST)
1643 Else
1644 glDisable(GL_ALPHA_TEST)
1645 End If
1646 End Sub
1647
1648 Function AlphaFunction() As GLenum
1649 Dim func As GLenum
1650 glGetIntegerv(GL_ALPHA_TEST_FUNC,VarPtr(func))
1651 Return func
1652 End Function
1653 Sub AlphaFunction(func As GLenum)
1654 Dim ref As GLclampf
1655 glGetFloatv(GL_ALPHA_TEST_REF,VarPtr(ref))
1656 glAlphaFunc(func,ref)
1657 End Sub
1658
1659 Function BlendEnable() As GLboolean
1660 Dim blend As GLboolean
1661 glGetBooleanv(GL_BLEND,VarPtr(blend))
1662 Return blend
1663 End Function
1664 Sub BlendEnable(enable As GLboolean)
1665 If enable Then
1666 glEnable(GL_BLEND)
1667 Else
1668 glDisable(GL_BLEND)
1669 End If
1670 End Sub
1671
1672 Function BlendDestinationFactor() As GLenum
1673 Dim dfactor As GLenum
1674 glGetIntegerv(GL_BLEND_DST,VarPtr(dfactor))
1675 Return dfactor
1676 End Function
1677 Sub BlendDestinationFactor(dfactor As GLenum)
1678 Dim sfactor As GLenum
1679 glGetIntegerv(GL_BLEND_SRC,VarPtr(sfactor))
1680 glBlendFunc(sfactor,dfactor)
1681 End Sub
1682
1683 Function BlendSourceFactor() As GLenum
1684 Dim sfactor As GLenum
1685 glGetIntegerv(GL_BLEND_SRC,VarPtr(sfactor))
1686 Return sfactor
1687 End Function
1688 Sub BlendSourceFactor(sfactor As GLenum)
1689 Dim dfactor As GLenum
1690 glGetIntegerv(GL_BLEND_DST,VarPtr(dfactor))
1691 glBlendFunc(sfactor,dfactor)
1692 End Sub
1693
1694 Function CullFaceEnable() As GLboolean
1695 Dim cull As GLboolean
1696 glGetBooleanv(GL_CULL_FACE,VarPtr(cull))
1697 Return cull
1698 End Function
1699 Sub CullFaceEnable(enable As GLboolean)
1700 If enable Then
1701 glEnable(GL_CULL_FACE)
1702 Else
1703 glDisable(GL_CULL_FACE)
1704 End If
1705 End Sub
1706
1707 Function CullFaceMode () As GLenum
1708 Dim mode As GLenum
1709 glGetIntegerv(GL_CULL_FACE_MODE,VarPtr(mode))
1710 Return mode
1711 End Function
1712 Sub CullFaceMode(mode As GLenum)
1713 glCullFace(mode)
1714 End Sub
1715
1716 Function DepthTestEnable () As GLboolean
1717 Dim depth As GLboolean
1718 glGetBooleanv(GL_DEPTH_TEST,VarPtr(depth))
1719 Return depth
1720 End Function
1721 Sub DepthTestEnable(enable As GLboolean)
1722 If enable Then
1723 glEnable(GL_DEPTH_TEST)
1724 Else
1725 glDisable(GL_DEPTH_TEST)
1726 End If
1727 End Sub
1728
1729 Function DepthFunction () As GLenum
1730 Dim func As GLenum
1731 glGetIntegerv(GL_DEPTH_FUNC,VarPtr(func))
1732 Return func
1733 End Function
1734 Sub DepthFunction(func As GLenum)
1735 glDepthFunc(func)
1736 End Sub
1737
1738 Function DepthBufferWritable() As GLboolean
1739 Dim writable As GLboolean
1740 glGetBooleanv(GL_DEPTH_WRITEMASK,VarPtr(writable))
1741 Return writable
1742 End Function
1743 Sub DepthBufferWritable(enable As GLboolean)
1744 If enable Then
1745 glDepthMask(GL_DEPTH_WRITEMASK)
1746 Else
1747 glDepthMask(GL_DEPTH_WRITEMASK)
1748 End If
1749 End Sub
1750
1751 Function DitherEnable() As GLboolean
1752 Dim dither As GLboolean
1753 glGetBooleanv(GL_DITHER,VarPtr(dither))
1754 Return dither
1755 End Function
1756 Sub DitherEnable(enable As GLboolean)
1757 If enable Then
1758 glEnable(GL_DITHER)
1759 Else
1760 glDisable(GL_DITHER)
1761 End If
1762 End Sub
1763
1764 Function FogEnable () As GLboolean
1765 Dim fog As GLboolean
1766 glGetBooleanv(GL_FOG,VarPtr(fog))
1767 Return fog
1768 End Function
1769 Sub FogEnable(enable As GLboolean)
1770 If enable Then
1771 glEnable(GL_FOG)
1772 Else
1773 glDisable(GL_FOG)
1774 End If
1775 End Sub
1776
1777 Function FogMode() As GLenum
1778 Dim mode As GLenum
1779 glGetIntegerv(GL_FOG_MODE,VarPtr(mode))
1780 Return mode
1781 End Function
1782 Sub FogMode(mode As GLenum)
1783 glFogi(GL_FOG_MODE,mode)
1784 End Sub
1785
1786 Function FogColor() As Color4f
1787 Dim ret As Color4f
1788 glGetFloatv(GL_FOG_COLOR,VarPtr(ret.rgba))
1789 Return ret
1790 End Function
1791 Sub FogColor(fcolor As Color4f)
1792 glFogfv(GL_FOG_COLOR,VarPtr(fcolor.rgba))
1793 End Sub
1794
1795 Function FogDensity() As GLfloat
1796 Dim density As GLfloat
1797 glGetFloatv(GL_FOG_DENSITY,density)
1798 Return density
1799 End Function
1800 Sub FogDensity(density As GLfloat)
1801 glFogf(GL_FOG_DENSITY,density)
1802 End Sub
1803
1804 Function FogStart() As GLfloat
1805 Dim fstrat As GLfloat
1806 glGetFloatv(GL_FOG_START,fstrat)
1807 Return fstrat
1808 End Function
1809 Sub FogStart(fstrat As GLfloat)
1810 glFogf(GL_FOG_START,fstrat)
1811 End Sub
1812
1813 Function FogEnd() As GLfloat
1814 Dim fend As GLfloat
1815 glGetFloatv(GL_FOG_END,fend)
1816 Return fend
1817 End Function
1818 Sub FogEnd(fend As GLfloat)
1819 glFogf(GL_FOG_END,fend)
1820 End Sub
1821
1822 Function Lighting() As GLboolean
1823 Dim lighting As GLboolean
1824 glGetBooleanv(GL_LIGHTING,VarPtr(lighting))
1825 Return lighting
1826 End Function
1827 Sub Lighting(enable As GLboolean)
1828 If enable Then
1829 glEnable(GL_LIGHTING)
1830 Else
1831 glDisable(GL_LIGHTING)
1832 End If
1833 End Sub
1834
1835 Function LineSmoothEnable() As GLboolean
1836 Dim smooth As GLboolean
1837 glGetBooleanv(GL_LINE_SMOOTH,VarPtr(smooth))
1838 Return smooth
1839 End Function
1840 Sub LineSmoothEnable(enable As GLboolean)
1841 If enable Then
1842 glEnable(GL_LINE_SMOOTH)
1843 Else
1844 glDisable(GL_LINE_SMOOTH)
1845 End If
1846 End Sub
1847
1848 Function LogicOpEnable() As GLboolean
1849 Dim logic As GLboolean
1850 glGetBooleanv(GL_COLOR_LOGIC_OP,VarPtr(logic))
1851 Return logic
1852 End Function
1853 Sub LogicOpEnable(enable As GLboolean)
1854 If enable Then
1855 glEnable(GL_COLOR_LOGIC_OP)
1856 Else
1857 glDisable(GL_COLOR_LOGIC_OP)
1858 End If
1859 End Sub
1860
1861 Function LogicOpCode() As GLenum
1862 Dim code As GLenum
1863 glGetFloatv(GL_COLOR_LOGIC_OP_MODE,code)
1864 Return code
1865 End Function
1866 Sub LogicOpCode(code As GLenum)
1867 glLogicOp(code)
1868 End Sub
1869
1870 Function PointSmoothEnable() As GLboolean
1871 Dim smooth As GLboolean
1872 glGetBooleanv(GL_POINT_SMOOTH,VarPtr(smooth))
1873 Return smooth
1874 End Function
1875 Sub PointSmoothEnable(enable As GLboolean)
1876 If enable Then
1877 glEnable(GL_POINT_SMOOTH)
1878 Else
1879 glDisable(GL_POINT_SMOOTH)
1880 End If
1881 End Sub
1882
1883 Function PolygonSmoothEnable() As GLboolean
1884 Dim smooth As GLboolean
1885 glGetBooleanv(GL_POLYGON_SMOOTH,VarPtr(smooth))
1886 Return smooth
1887 End Function
1888 Sub PolygonSmoothEnable(enable As GLboolean)
1889 If enable Then
1890 glEnable(GL_POLYGON_SMOOTH)
1891 Else
1892 glDisable(GL_POLYGON_SMOOTH)
1893 End If
1894 End Sub
1895
1896 Function ReferenceAlpha() As GLclampf
1897 Dim ref As GLclampf
1898 glGetFloatv(GL_ALPHA_TEST_REF,VarPtr(ref))
1899 Return ref
1900 End Function
1901 Sub ReferenceAlpha(ref As GLclampf)
1902 Dim func As GLenum
1903 glGetIntegerv(GL_ALPHA_TEST_FUNC,VarPtr(func))
1904 glAlphaFunc(func,ref)
1905 End Sub
1906
1907 Function ShadeModel() As GLenum
1908 Dim mode As GLenum
1909 glGetIntegerv(GL_SHADE_MODEL,VarPtr(mode))
1910 Return mode
1911 End Function
1912 Sub ShadeModel(mode As GLenum)
1913 glShadeModel(mode)
1914 End Sub
1915End Class
1916
1917
1918Enum ColorType
1919 RgbColor=0
1920 RgbaColor=0
1921 IndexColor
1922End Enum
1923
1924Enum BufferType
1925 SingleBuffer=0
1926 DoubleBuffer
1927End Enum
1928
1929Enum ClearBuffer
1930 DepthBufferBit = &H00000100
1931 AccumBufferBit = &H00000200
1932 StencilBufferBit = &H00000400
1933 ColorBufferBit = &H00004000
1934End Enum
1935
1936Enum PrimitiveMode
1937 Points = &H0000
1938 Lines = &H0001
1939 LineLoop = &H0002
1940 LineStrip = &H0003
1941 Triangles = &H0004
1942 TriangleStrip = &H0005
1943 TriangleFan = &H0006
1944 Quads = &H0007
1945 QuadStrip = &H0008
1946 Polygon = &H0009
1947End Enum
1948
1949Class RenderingContext
1950Public /* Composiotion */
1951 Material As MaterialManager
1952 RenderState As RenderStateManager
1953 Transform As TransformMatrix
1954 Lights As LightsCollection
1955
1956Public /* Constructor */
1957 Sub RenderingContext()
1958 Dim hrc As HGLRC
1959 hrc=wglGetCurrentContext()
1960 If hrc Then
1961 wglMakeCurrent(NULL,NULL)
1962 wglDeleteContext(hrc)
1963 End If
1964
1965 Material = New MaterialManager()
1966 RenderState = New RenderStateManager()
1967 Transform = New TransformMatrix()
1968 Lights = New LightsCollection()
1969 End Sub
1970 Sub RenderingContext(hdc As HDC, ByRef pfd As PIXELFORMATDESCRIPTOR)
1971 RenderingContext()
1972
1973 Dim pf As Long
1974 pf=ChoosePixelFormat(hdc,pfd)
1975 If pf=0 Then
1976 MessageBox(NULL,"Choose Pixel Format failed","error",MB_OK)
1977 Exit Sub
1978 End If
1979 If SetPixelFormat(hdc,pf,pfd)=FALSE Then
1980 MessageBox(NULL,"Set Pixel Format failed","error",MB_OK)
1981 Exit Sub
1982 End If
1983
1984 Dim hrc As HGLRC
1985 hrc=wglCreateContext(hdc)
1986 wglMakeCurrent(hdc,hrc)
1987 End Sub
1988 Sub RenderingContext(hdc As HDC, ctype As ColorType, btype As BufferType)
1989 RenderingContext()
1990
1991 Dim pfd As PIXELFORMATDESCRIPTOR
1992 pfd.nSize=SizeOf(PIXELFORMATDESCRIPTOR) As Word
1993 pfd.nVersion=GL_VERSION_1_1
1994 If btype=BufferType.DoubleBuffer Then
1995 pfd.dwFlags or=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER
1996 Else
1997 pfd.dwFlags or=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL
1998 End If
1999 If ctype=ColorType.RgbColor Then
2000 pfd.iPixelType=PFD_TYPE_RGBA
2001 Else
2002 pfd.iPixelType=PFD_TYPE_COLORINDEX
2003 End If
2004 pfd.cColorBits=24
2005 pfd.cRedBits=0
2006 pfd.cRedShift=0
2007 pfd.cGreenBits=0
2008 pfd.cGreenShift=0
2009 pfd.cBlueBits=0
2010 pfd.cBlueShift=0
2011 pfd.cAlphaBits=0
2012 pfd.cAlphaShift=0
2013 pfd.cAccumBits=0
2014 pfd.cAccumRedBits=0
2015 pfd.cAccumGreenBits=0
2016 pfd.cAccumBlueBits=0
2017 pfd.cAccumAlphaBits=0
2018 pfd.cDepthBits=32
2019 pfd.cStencilBits=0
2020 pfd.cAuxBuffers=0
2021 pfd.iLayerType=PFD_MAIN_PLANE
2022 pfd.bReserved=0
2023 pfd.dwLayerMask=0
2024 pfd.dwVisibleMask=0
2025 pfd.dwDamageMask=0
2026 RenderingContext(hdc,pfd)
2027 End Sub
2028 Sub RenderingContext(hdc As HDC)
2029 RenderingContext(hdc As HDC, ColorType.RgbColor, BufferType.DoubleBuffer)
2030 End Sub
2031
2032Public /* Destructor */
2033 Sub ~RenderingContext()
2034 Dim hrc As HGLRC
2035 hrc=wglGetCurrentContext()
2036 wglMakeCurrent(NULL,NULL)
2037 wglDeleteContext(hrc)
2038 End Sub
2039
2040Public /* Method */
2041 Sub Begin(mode As GLenum)
2042 glBegin(mode)
2043 End Sub
2044 Sub Begin(mode As PrimitiveMode)
2045 glBegin(mode)
2046 End Sub
2047 Sub Clear(mask As GLbitfield)
2048 glClear(mask)
2049 End Sub
2050 Sub Clear(mask As ClearBuffer)
2051 glClear(mask)
2052 End Sub
2053
2054 Sub ClearAccum(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
2055 glClearAccum(red, green, blue, alpha)
2056 End Sub
2057 Sub ClearAccum(color As Color4f)
2058 glClearAccum(color.R, color.G, color.B, color.A)
2059 End Sub
2060 Sub ClearColor(red As GLclampf, green As GLclampf, blue As GLclampf, alpha As GLclampf)
2061 glClearColor(red, green, blue, alpha)
2062 End Sub
2063 Sub ClearColor(color As Color4f)
2064 glClearColor(color.R, color.G, color.B, color.A)
2065 End Sub
2066 Sub ClearDepth(depth As GLclampd)
2067 glClearDepth(depth)
2068 End Sub
2069 Sub ClearIndex(c As GLfloat)
2070 glClearIndex(c)
2071 End Sub
2072 Sub ClearStencil(s As GLint)
2073 glClearStencil(s)
2074 End Sub
2075
2076 Sub Color(red As GLdouble, green As GLdouble, blue As GLdouble)
2077 glColor3d(red,green,blue)
2078 End Sub
2079 Sub Color(red As GLdouble, green As GLdouble, blue As GLdouble, alpha As GLdouble)
2080 glColor4d(red,green,blue,alpha)
2081 End Sub
2082 Sub Color(red As GLfloat, green As GLfloat, blue As GLfloat)
2083 glColor3f(red,green,blue)
2084 End Sub
2085 Sub Color(red As GLfloat, green As GLfloat, blue As GLfloat, alpha As GLfloat)
2086 glColor4f(red,green,blue,alpha)
2087 End Sub
2088 Sub Color(c As Color3f)
2089 glColor3fv(VarPtr(c.rgb) As *Single)
2090 End Sub
2091 Sub Color(c As Color4f)
2092 glColor4fv(VarPtr(c.rgba) As *Single)
2093 End Sub
2094 Sub Color(c As Color3d)
2095 glColor3dv(VarPtr(c.rgb) As *Double)
2096 End Sub
2097 Sub Color(c As Color4d)
2098 glColor4dv(VarPtr(c.rgba) As *Double)
2099 End Sub
2100
2101 Sub DrawPrimiteve()
2102 End Sub
2103
2104 Sub End()
2105 glEnd()
2106 End Sub
2107
2108 Sub Finish()
2109 glFinish()
2110 End Sub
2111 Sub Flush()
2112 glFlush()
2113 End Sub
2114
2115 Function GenerateTexures() As GLint
2116 glGenTextures()
2117 End Function
2118
2119 Sub MatrixMode(mode As GLenum)
2120 glMatrixMode(mode)
2121 End Sub
2122
2123 Sub Present()
2124 SwapBuffers(wglGetCurrentDC())
2125 End Sub
2126 Sub Present(hdc As HDC)
2127 SwapBuffers(hdc)
2128 End Sub
2129
2130 Sub PopMatrix()
2131 glPopMatrix()
2132 End Sub
2133
2134 Sub PushMatrix()
2135 glPushMatrix()
2136 End Sub
2137
2138 Sub Vertex(x As GLdouble, y As GLdouble)
2139 glVertex2d(x,y)
2140 End Sub
2141 Sub Vertex(x As GLdouble, y As GLdouble, z As GLdouble)
2142 glVertex3d(x,y,z)
2143 End Sub
2144 Sub Vertex(x As GLdouble, y As GLdouble, z As GLdouble, w As GLdouble)
2145 glVertex4d(x,y,z,w)
2146 End Sub
2147 Sub Vertex(x As GLfloat, y As GLfloat)
2148 glVertex2f(x,y)
2149 End Sub
2150 Sub Vertex(x As GLfloat, y As GLfloat, z As GLfloat)
2151 glVertex3f(x,y,z)
2152 End Sub
2153 Sub Vertex(x As GLfloat, y As GLfloat, z As GLfloat, w As GLfloat)
2154 glVertex4f(x,y,z,w)
2155 End Sub
2156
2157 Sub Viewport(x As GLint, y As GLint, width As GLsizei, height As GLsizei)
2158 glViewport(x, y, width, height)
2159 End Sub
2160End Class
2161
2162#endif
Note: See TracBrowser for help on using the repository browser.