OpenGl Lights & Material

[bplus]

This one is from Ashish I (bplus) probably picked up from [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] (my date is 2017-07-30)

Code: QB64: [Select]

1. 'OpenGL Lights & Material By Ashish update 2017-07-30
2.  
3. _TITLE "OpenGL Lights & Material"
4.  
5. SCREEN _NEWIMAGE(800, 600, 32)
6.  
7. DIM SHARED glAllow AS _BYTE
8. DECLARE LIBRARY
9.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
10.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
11. END DECLARE
12.  
13. 'Used by GLH RGB/etc helper functions
14. DIM SHARED DONT_USE_GLH_COL_RGBA(1 TO 4) AS SINGLE
15.  
16. 'Used to manage textures
17. TYPE DONT_USE_GLH_Handle_TYPE
18.     in_use AS _BYTE
19.     handle AS LONG
20. END TYPE
21.  
22. TYPE vec3
23.     x AS SINGLE
24.     y AS SINGLE
25.     z AS SINGLE
26. END TYPE
27.  
28.  
29. 'Used by GLH RGB/etc helper functions
30. REDIM SHARED DONT_USE_GLH_Handle(1000) AS DONT_USE_GLH_Handle_TYPE
31.  
32. DIM SHARED redLight AS vec3
33. DIM SHARED greenLight AS vec3
34. DIM SHARED blueLight AS vec3
35.  
36.  
37.  
38. glAllow = -1
39. DO
40.     _LIMIT 40
41. LOOP UNTIL k& = ASC(CHR$(27))
42.  
43.  
44. SUB _GL () STATIC
45.     IF NOT glAllow THEN EXIT SUB
46.  
47.     _glEnable _GL_DEPTH_TEST
48.     _glEnable _GL_LIGHTING
49.  
50.     _glEnable _GL_LIGHT0 'we need three lights, each for red, green & blue.
51.     _glEnable _GL_LIGHT1
52.     _glEnable _GL_LIGHT2
53.  
54.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, GLH_RGB(0, 0, 0)
55.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, GLH_RGB(.5, 0, 0)
56.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, GLH_RGB(1, 0, 0)
57.     _glLightfv _GL_LIGHT0, _GL_POSITION, GLH_RGBA(redLight.x, redLight.y, redLight.z, 0)
58.  
59.     _glLightfv _GL_LIGHT1, _GL_AMBIENT, GLH_RGB(0, 0, 0)
60.     _glLightfv _GL_LIGHT1, _GL_DIFFUSE, GLH_RGB(0, .5, 0)
61.     _glLightfv _GL_LIGHT1, _GL_SPECULAR, GLH_RGB(0, 1, 0)
62.     _glLightfv _GL_LIGHT1, _GL_POSITION, GLH_RGBA(greenLight.x, greenLight.y, greenLight.z, 0)
63.  
64.     _glLightfv _GL_LIGHT2, _GL_AMBIENT, GLH_RGB(0, 0, 0)
65.     _glLightfv _GL_LIGHT2, _GL_DIFFUSE, GLH_RGB(0, 0, .5)
66.     _glLightfv _GL_LIGHT2, _GL_SPECULAR, GLH_RGB(0, 0, 1)
67.     _glLightfv _GL_LIGHT2, _GL_POSITION, GLH_RGBA(blueLight.x, blueLight.y, blueLight.z, 0)
68.  
69.     _glMatrixMode _GL_PROJECTION
70.     _glLoadIdentity
71.  
72.     IF NOT glSetup THEN
73.         aspect# = _WIDTH / _HEIGHT
74.         glSetup = -1
75.         _glViewport 0, 0, _WIDTH, _HEIGHT
76.     END IF
77.  
78.     _gluPerspective 45.0, aspect#, 1.0, 100.0
79.  
80.     _glMatrixMode _GL_MODELVIEW
81.     _glLoadIdentity
82.  
83.     gluLookAt 0, 0, 5, 0, 0, 0, 0, 1, 0
84.  
85.     _glColor3f 0, 0, 0
86.  
87.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_AMBIENT, GLH_RGB(0, 0, 0)
88.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, GLH_RGB(0.8, 0.8, 0.8)
89.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_SPECULAR, GLH_RGB(.86, .86, .86)
90.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_SHININESS, GLH_RGB(128 * .566, 0, 0)
91.  
92.     glutSolidSphere 1, 100, 100
93.  
94.     _glDisable _GL_LIGHTING
95.  
96.     _glPushMatrix
97.     _glTranslatef redLight.x, redLight.y, redLight.z
98.     _glColor3f 1, 0, 0
99.     glutSolidSphere .05, 20, 20
100.     _glPopMatrix
101.  
102.     _glPushMatrix
103.     _glTranslatef greenLight.x, greenLight.y, greenLight.z
104.     _glColor3f 0, 1, 0
105.     glutSolidSphere .05, 20, 20
106.     _glPopMatrix
107.  
108.     _glPushMatrix
109.     _glTranslatef blueLight.x, blueLight.y, .1
110.     _glColor3f 0, 0, 1
111.     glutSolidSphere .05, 20, 20
112.     _glPopMatrix
113.  
114.     _glFlush
115.  
116.     clock# = clock# + .01
117.  
118.     redLight.x = SIN(clock# * 1.5) * 1.5
119.     redLight.z = COS(clock# * 1.5) * 1.5
120.  
121.     greenLight.y = COS(clock# * .8) * 1.5
122.     greenLight.z = SIN(clock# * .8) * 1.5
123.  
124.     blueLight.x = SIN(clock#) * 1.5
125.     blueLight.y = COS(clock#) * 1.5
126. END SUB
127.  
128.  
129. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
130.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
131. END FUNCTION
132.  
133.  
134. 'below, all functions are coded by Galleon
135. FUNCTION GLH_Image_to_Texture (image_handle AS LONG) 'turn an image handle into a texture handle
136.     IF image_handle >= 0 THEN ERROR 258: EXIT FUNCTION 'don't allow screen pages
137.     DIM m AS _MEM
138.     m = _MEMIMAGE(image_handle)
139.     DIM h AS LONG
140.     h = DONT_USE_GLH_New_Texture_Handle
141.     GLH_Image_to_Texture = h
142.     _glBindTexture _GL_TEXTURE_2D, DONT_USE_GLH_Handle(h).handle
143.     _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGBA, _WIDTH(image_handle), _HEIGHT(image_handle), 0, &H80E1&&, _GL_UNSIGNED_BYTE, m.OFFSET
144.     _MEMFREE m
145. END FUNCTION
146.  
147. FUNCTION DONT_USE_GLH_New_Texture_Handle
148.     handle&& = 0
149.     _glGenTextures 1, _OFFSET(handle&&)
150.     DONT_USE_GLH_New_Texture_Handle = handle&&
151.     FOR h = 1 TO UBOUND(DONT_USE_GLH_Handle)
152.         IF DONT_USE_GLH_Handle(h).in_use = 0 THEN
153.             DONT_USE_GLH_Handle(h).in_use = 1
154.             DONT_USE_GLH_Handle(h).handle = handle&&
155.             DONT_USE_GLH_New_Texture_Handle = h
156.             EXIT FUNCTION
157.         END IF
158.     NEXT
159.     REDIM _PRESERVE DONT_USE_GLH_Handle(UBOUND(DONT_USE_GLH_HANDLE) * 2) AS DONT_USE_GLH_Handle_TYPE
160.     DONT_USE_GLH_Handle(h).in_use = 1
161.     DONT_USE_GLH_Handle(h).handle = handle&&
162.     DONT_USE_GLH_New_Texture_Handle = h
163. END FUNCTION
164.  
165. SUB GLH_Select_Texture (texture_handle AS LONG) 'turn an image handle into a texture handle
166.     IF texture_handle < 1 OR texture_handle > UBOUND(DONT_USE_GLH_HANDLE) THEN ERROR 258: EXIT FUNCTION
167.     IF DONT_USE_GLH_Handle(texture_handle).in_use = 0 THEN ERROR 258: EXIT FUNCTION
168.     _glBindTexture _GL_TEXTURE_2D, DONT_USE_GLH_Handle(texture_handle).handle
169. END SUB
170.  
171.  
172. FUNCTION GLH_RGB%& (r AS SINGLE, g AS SINGLE, b AS SINGLE)
173.     DONT_USE_GLH_COL_RGBA(1) = r
174.     DONT_USE_GLH_COL_RGBA(2) = g
175.     DONT_USE_GLH_COL_RGBA(3) = b
176.     DONT_USE_GLH_COL_RGBA(4) = 1
177.     GLH_RGB = _OFFSET(DONT_USE_GLH_COL_RGBA())
178. END FUNCTION
179.  
180. FUNCTION GLH_RGBA%& (r AS SINGLE, g AS SINGLE, b AS SINGLE, a AS SINGLE)
181.     DONT_USE_GLH_COL_RGBA(1) = r
182.     DONT_USE_GLH_COL_RGBA(2) = g
183.     DONT_USE_GLH_COL_RGBA(3) = b
184.     DONT_USE_GLH_COL_RGBA(4) = a
185.     GLH_RGBA = _OFFSET(DONT_USE_GLH_COL_RGBA())
186. END FUNCTION
187.  
188.  
189.  

 

[johnno56]

This is SO cool... But I noticed the lack of aliens! Nah. Kidding. Great example!!

J

[Ashish]

Torus MOD by Petr is also cool!

 

[bplus]

Is it just me? That torus lighting looks off.

Where is blue light for left, top edge, red for right edge and yellow for ring around center?

[Qwerkey]

When I get through Ashish's full repository, I'll run Petr's version and if OK move it to Samples.  It'll be good to have some in SUB_GL which are other than Ashish's.  I may be a few days.  Good things come to those who wait.

Edit:  Tried Petr's modification.  Although a very good demonstration of Open_GL, it somehow lacks the wow factor of Ashish's original.  I'll use Ashishs's in Samples.