OpenGL Lights & Material by Ashish

[Qwerkey]

OpenGL Lights & Material

Author: @ Ashish
Source: qb64.org Forum
URL: https://www.qb64.org/forum/index.php?topic=2323.0
A full repository of QB64_OpenGL_Demos by Ashish Kingdom and Petr Preclik, which contains all the supplementary files/resources as well as screenshots and many other GL programs:
https://github.com/AshishKingdom/QB64_OpenGL_Demos/archive/master.zip
Version: 1
Tags: [3D], [Graphics], [Open_GL]

Description:
Stunning 3D effect of moving lights with reflections off the surface of a sphere

Source Code:

Code: QB64: [Select]

1. 'OpenGL Lights & Material By Ashish
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