COVID-19 in QB64

[Ashish]

WOW @TempodiBasic .

I made some little change in the code so the each virus rotate on its axis.

Code: QB64: [Select]

1. 'COVID-19 in QB64
2. 'By Ashish
3. '1 Jun, 2020
4. '
5. 'WARNING:Use mask. Apply santizer after closing the program.
6. ' 2 Jun, 2020    added a little son of COVID-19  TDB
7. ' 2 Jun, 2020    modularizing  the _GL actions   TDB
8. '2 Jun, 2020     an array of virus and a continuous restarting by Enter and quit by Space TDB
9. '2 Jun, 2020 made the viruses rotate on its axis.
10. _TITLE "We are all Covid-19 :-)"
11.  
12. SCREEN _NEWIMAGE(600, 600, 32)
13.  
14. DECLARE LIBRARY
15.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
16.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
17. END DECLARE
18.  
19. DIM SHARED glAllow AS _BYTE
20. TYPE vec3
21.     x AS SINGLE
22.     y AS SINGLE
23.     z AS SINGLE
24. END TYPE
25. TYPE colorRGBA
26.     R AS SINGLE
27.     G AS SINGLE
28.     B AS SINGLE
29.     A AS SINGLE
30. END TYPE
31.  
32. TYPE COVID19
33.     POS AS vec3
34.     r AS SINGLE
35.     rotY AS SINGLE
36.     rotX AS SINGLE
37.     Vxz AS SINGLE
38.     Vyz AS SINGLE
39.     C AS colorRGBA
40. END TYPE
41.  
42. DIM SHARED virus(1 TO 10) AS COVID19
43. RANDOMIZE TIMER
44. _SCREENMOVE _MIDDLE
45. Initialize
46. DO
47.     k = _KEYHIT
48.     LOCATE 1, 1: PRINT "Space to quit, Enter to change viruses"
49.     _LIMIT 1
50.     IF k = 13 THEN Initialize
51. LOOP UNTIL k = 32
52. END ' a logical end to the flow
53.  
54. '------------ SUBs and FUNCTIONs----------------------------
55. SUB Initialize
56.     FOR z = 1 TO 10 STEP 1
57.         virus(z).r = 0.1 + (RND / 5)
58.         virus(z).POS.y = 1 - (RND * 2)
59.         virus(z).POS.x = 1 - (RND * 2)
60.         virus(z).POS.z = 1 - (RND * 2) 'virus(z).POS.z = 0
61.         virus(z).Vxz = 20 - (RND * 10)
62.         virus(z).Vyz = 20 - (RND * 10)
63.         virus(z).C.R = 1 - (RND * 1)
64.         virus(z).C.G = 1 - (RND * 1)
65.         virus(z).C.B = 1 - (RND * 1)
66.         virus(z).C.A = 1 - (RND * 1)
67.     NEXT z
68.     glAllow = -1
69. END SUB
70.  
71.  
72. SUB InitGL (in, aspe)
73.     IF in = 0 THEN
74.         in = 1
75.         aspe = _WIDTH / _HEIGHT
76.         _glViewport 0, 0, _WIDTH, _HEIGHT
77.     END IF
78. END SUB
79.  
80. SUB DrawLines (viru AS COVID19)
81.     _glColor3f 1, 0, 0
82.     _glBegin _GL_LINES
83.     FOR phi = 0.4 TO _PI(2) STEP .5
84.         FOR theta = 0.3 TO _PI STEP .5
85.             _glVertex3f viru.r * SIN(theta) * COS(phi), viru.r * SIN(theta) * SIN(phi), viru.r * COS(theta)
86.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
87.         NEXT
88.     NEXT
89.     _glEnd
90.  
91. END SUB
92.  
93. SUB DrawPoints (viru AS COVID19)
94.     _glBegin _GL_POINTS
95.     FOR phi = 0.4 TO _PI(2) STEP .5
96.         FOR theta = 0.3 TO _PI STEP .5
97.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
98.         NEXT
99.     NEXT
100.     _glEnd
101. END SUB
102.  
103. SUB DrawVirus (v AS COVID19)
104.     _glPushMatrix 'save the previous position & rotation
105.     ' setting  position and rotation
106.     _glTranslatef v.POS.x, v.POS.y, v.POS.z
107.     _glRotatef v.rotY, 0.5, 1, 0
108.     v.rotY = v.rotY + 2
109.  
110.     _glEnable _GL_LIGHTING ' thanks to Ashish
111.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(v.C.R, v.C.G, v.C.B, v.C.A)
112.  
113.     ' make the sphere
114.     glutSolidSphere v.r, v.Vxz, v.Vyz
115.  
116.     _glDisable _GL_LIGHTING
117.     ' make lines
118.     DrawLines v
119.     ' make points
120.     DrawPoints v
121.     _glEnable _GL_LIGHTING
122.  
123.     _glPopMatrix 'restore the original position & rotation
124. END SUB
125.  
126. SUB _GL ()
127.     STATIC init, aspect
128.  
129.     IF glAllow = 0 THEN EXIT SUB
130.  
131.     InitGL init, aspect
132.  
133.     _glEnable _GL_DEPTH_TEST
134.     _glEnable _GL_LIGHTING
135.     _glEnable _GL_LIGHT0
136.  
137.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
138.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
139.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 1, 1, 1)
140.     _glLightfv _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 10, 1)
141.  
142.  
143.  
144.     _glMatrixMode _GL_PROJECTION
145.     _gluPerspective 50, aspect, 0.1, 10
146.  
147.     _glMatrixMode _GL_MODELVIEW
148.     gluLookAt 0, 0, 3, 0, 0, 0, 0, 1, 0
149.  
150.     _glLineWidth 2.0
151.     _glPointSize 10.0
152.     FOR z = 1 TO 10 STEP 1
153.         DrawVirus virus(z)
154.     NEXT z
155. END SUB
156.  
157.  
158. FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
159.     STATIC internal_vec4(3)
160.     internal_vec4(0) = x
161.     internal_vec4(1) = y
162.     internal_vec4(2) = z
163.     internal_vec4(3) = w
164.     glVec4%& = _OFFSET(internal_vec4())
165. END FUNCTION
166.  
167.  

PS : Can you make the coronavirus rain? :P

[TempodiBasic]

Hi Ashish
I find this to rain viruses

Code: QB64: [Select]

1. 'COVID-19 in QB64
2. 'By Ashish
3. '1 Jun, 2020
4. '
5. 'WARNING:Use mask. Apply santizer after closing the program.
6. ' 2 Jun, 2020    added a little son of COVID-19  TDB
7. ' 2 Jun, 2020    modularizing  the _GL actions   TDB
8. '2 Jun, 2020     an array of virus and a continuous restarting by Enter and quit by Space TDB
9. '2 Jun, 2020 made the viruses rotate on its axis.
10. _TITLE "We are all Covid-19 :-)"
11.  
12. SCREEN _NEWIMAGE(600, 600, 32)
13.  
14. DECLARE LIBRARY
15.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
16.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
17. END DECLARE
18.  
19. DIM SHARED glAllow AS _BYTE
20. TYPE vec3
21.     x AS SINGLE
22.     y AS SINGLE
23.     z AS SINGLE
24. END TYPE
25. TYPE colorRGBA
26.     R AS SINGLE
27.     G AS SINGLE
28.     B AS SINGLE
29.     A AS SINGLE
30. END TYPE
31.  
32. TYPE COVID19
33.     POS AS vec3
34.     r AS SINGLE
35.     rotY AS SINGLE
36.     rotX AS SINGLE
37.     Vxz AS SINGLE
38.     Vyz AS SINGLE
39.     C AS colorRGBA
40. END TYPE
41.  
42. DIM SHARED virus(1 TO 10) AS COVID19
43. RANDOMIZE TIMER
44. _SCREENMOVE _MIDDLE
45. Initialize
46. DO
47.     k = _KEYHIT
48.     LOCATE 1, 1: PRINT "Space to quit, Enter to change viruses"
49.     _LIMIT 1
50.     IF k = 13 THEN Initialize
51. LOOP UNTIL k = 32
52. END ' a logical end to the flow
53.  
54. '------------ SUBs and FUNCTIONs----------------------------
55.  
56. SUB Initialize
57.     FOR z = 1 TO 10 STEP 1
58.         virus(z).r = 0.1 + (RND / 5)
59.         virus(z).POS.y = 1 - (RND * 2)
60.         virus(z).POS.x = 1 - (RND * 2)
61.         virus(z).POS.z = 1 - (RND * 2) 'virus(z).POS.z = 0
62.         virus(z).Vxz = 20 - (RND * 10)
63.         virus(z).Vyz = 20 - (RND * 10)
64.         virus(z).C.R = 1 - (RND * 1)
65.         virus(z).C.G = 1 - (RND * 1)
66.         virus(z).C.B = 1 - (RND * 1)
67.         virus(z).C.A = 1 - (RND * 1)
68.     NEXT z
69.     glAllow = -1
70. END SUB
71.  
72.  
73. SUB InitGL (in, aspe)
74.     IF in = 0 THEN
75.         in = 1
76.         aspe = _WIDTH / _HEIGHT
77.         _glViewport 0, 0, _WIDTH, _HEIGHT
78.     END IF
79. END SUB
80.  
81. SUB DrawLines (viru AS COVID19)
82.     _glColor3f 1, 0, 0
83.     _glBegin _GL_LINES
84.     FOR phi = 0.4 TO _PI(2) STEP .5
85.         FOR theta = 0.3 TO _PI STEP .5
86.             _glVertex3f viru.r * SIN(theta) * COS(phi), viru.r * SIN(theta) * SIN(phi), viru.r * COS(theta)
87.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
88.         NEXT
89.     NEXT
90.     _glEnd
91.  
92. END SUB
93.  
94. SUB DrawPoints (viru AS COVID19)
95.     _glBegin _GL_POINTS
96.     FOR phi = 0.4 TO _PI(2) STEP .5
97.         FOR theta = 0.3 TO _PI STEP .5
98.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
99.         NEXT
100.     NEXT
101.     _glEnd
102. END SUB
103.  
104. SUB DrawVirus (v AS COVID19)
105.     ' raining effect
106.     v.POS.y = v.POS.y - 0.02
107.     IF v.POS.y <= -1 THEN v.POS.y = 1
108.  
109.     _glPushMatrix 'save the previous position & rotation
110.     ' setting  position and rotation
111.     _glTranslatef v.POS.x, v.POS.y, v.POS.z
112.     _glRotatef v.rotY, 0.5, 1, 0
113.     v.rotY = v.rotY + 2
114.  
115.     _glEnable _GL_LIGHTING ' thanks to Ashish
116.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(v.C.R, v.C.G, v.C.B, v.C.A)
117.  
118.     ' make the sphere
119.     glutSolidSphere v.r, v.Vxz, v.Vyz
120.  
121.     _glDisable _GL_LIGHTING
122.     ' make lines
123.     DrawLines v
124.     ' make points
125.     DrawPoints v
126.     _glEnable _GL_LIGHTING
127.  
128.     _glPopMatrix 'restore the original position & rotation
129. END SUB
130.  
131. SUB _GL ()
132.     STATIC init, aspect
133.  
134.     IF glAllow = 0 THEN EXIT SUB
135.  
136.     InitGL init, aspect
137.  
138.     _glEnable _GL_DEPTH_TEST
139.     _glEnable _GL_LIGHTING
140.     _glEnable _GL_LIGHT0
141.  
142.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
143.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
144.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 1, 1, 1)
145.     _glLightfv _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 10, 1)
146.  
147.  
148.  
149.     _glMatrixMode _GL_PROJECTION
150.     _gluPerspective 50, aspect, 0.1, 10
151.  
152.     _glMatrixMode _GL_MODELVIEW
153.     gluLookAt 0, 0, 3, 0, 0, 0, 0, 1, 0
154.  
155.     _glLineWidth 2.0
156.     _glPointSize 10.0
157.     FOR z = 1 TO 10 STEP 1
158.         DrawVirus virus(z)
159.     NEXT z
160.     _glFlush
161. END SUB
162.  
163.  
164. FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
165.     STATIC internal_vec4(3)
166.     internal_vec4(0) = x
167.     internal_vec4(1) = y
168.     internal_vec4(2) = z
169.     internal_vec4(3) = w
170.     glVec4%& = _OFFSET(internal_vec4())
171. END FUNCTION
172.  

simple I put at start of DrawVirus these lines of code

   ' raining effect
    v.POS.y = v.POS.y - 0.02
    IF v.POS.y <= -1 THEN v.POS.y = 1

Thanks for the suggestion

[Ashish]

Amazing work, @TempodiBasic :)

[qbkiller101]

@TempodiBasic tried opening a zillion times but still
 

[Ashish]

@qbkiller101
Add this before _SCREENMOVE _MIDDLE on line 44.

Code: QB64: [Select]

1. DO: LOOP UNTIL _SCREENEXISTS

[qbkiller101]

worked.
@TempodiBasic enter to quit isnt working

[Ashish]

@qbkiller101 First of all, it is space to quite.

secondly, It may be working but it will be delay since the loop is completing its one cycle in one second, this is because of _LIMIT 1.
Change _LIMIT 1 to _LIMIT 30.

Here's the updated code with all glitch fixed.

Code: QB64: [Select]

1.     'COVID-19 in QB64
2.     'By Ashish
3.     '1 Jun, 2020
4.     '
5.     'WARNING:Use mask. Apply santizer after closing the program.
6.     ' 2 Jun, 2020    added a little son of COVID-19  TDB
7.     ' 2 Jun, 2020    modularizing  the _GL actions   TDB
8.     '2 Jun, 2020     an array of virus and a continuous restarting by Enter and quit by Space TDB
9.     '2 Jun, 2020 made the viruses rotate on its axis.
10.     _TITLE "We are all Covid-19 :-)"
11.      
12.     SCREEN _NEWIMAGE(600, 600, 32)
13.      
14.     DECLARE LIBRARY
15.         SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
16.         SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
17.     END DECLARE
18.      
19.     DIM SHARED glAllow AS _BYTE
20.     TYPE vec3
21.         x AS SINGLE
22.         y AS SINGLE
23.         z AS SINGLE
24.     END TYPE
25.     TYPE colorRGBA
26.         R AS SINGLE
27.         G AS SINGLE
28.         B AS SINGLE
29.         A AS SINGLE
30.     END TYPE
31.      
32.     TYPE COVID19
33.         POS AS vec3
34.         r AS SINGLE
35.         rotY AS SINGLE
36.         rotX AS SINGLE
37.         Vxz AS SINGLE
38.         Vyz AS SINGLE
39.         C AS colorRGBA
40.     END TYPE
41.      
42.     DIM SHARED virus(1 TO 10) AS COVID19
43.     RANDOMIZE TIMER
44.     DO : LOOP UNTIL _SCREENEXISTS
45.     _SCREENMOVE _MIDDLE
46.     Initialize
47.     DO
48.         k = _KEYHIT
49.         LOCATE 1, 1: PRINT "Space to quit, Enter to change viruses"
50.         _LIMIT 30
51.         IF k = 13 THEN Initialize
52.     LOOP UNTIL k = 32
53.     END ' a logical end to the flow
54.      
55.     '------------ SUBs and FUNCTIONs----------------------------
56.      
57.     SUB Initialize
58.         FOR z = 1 TO 10 STEP 1
59.             virus(z).r = 0.1 + (RND / 5)
60.             virus(z).POS.y = 1 - (RND * 2)
61.             virus(z).POS.x = 1 - (RND * 2)
62.             virus(z).POS.z = 1 - (RND * 2) 'virus(z).POS.z = 0
63.             virus(z).Vxz = 20 - (RND * 10)
64.             virus(z).Vyz = 20 - (RND * 10)
65.             virus(z).C.R = 1 - (RND * 1)
66.             virus(z).C.G = 1 - (RND * 1)
67.             virus(z).C.B = 1 - (RND * 1)
68.             virus(z).C.A = 1 - (RND * 1)
69.         NEXT z
70.         glAllow = -1
71.     END SUB
72.      
73.      
74.     SUB InitGL (in, aspe)
75.         IF in = 0 THEN
76.             in = 1
77.             aspe = _WIDTH / _HEIGHT
78.             _GLVIEWPORT 0, 0, _WIDTH, _HEIGHT
79.         END IF
80.     END SUB
81.      
82.     SUB DrawLines (viru AS COVID19)
83.         _GLCOLOR3F 1, 0, 0
84.         _GLBEGIN _GL_LINES
85.         FOR phi = 0.4 TO _PI(2) STEP .5
86.             FOR theta = 0.3 TO _PI STEP .5
87.                 _GLVERTEX3F viru.r * SIN(theta) * COS(phi), viru.r * SIN(theta) * SIN(phi), viru.r * COS(theta)
88.                 _GLVERTEX3F (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
89.             NEXT
90.         NEXT
91.         _GLEND
92.      
93.     END SUB
94.      
95.     SUB DrawPoints (viru AS COVID19)
96.         _GLBEGIN _GL_POINTS
97.         FOR phi = 0.4 TO _PI(2) STEP .5
98.             FOR theta = 0.3 TO _PI STEP .5
99.                 _GLVERTEX3F (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
100.             NEXT
101.         NEXT
102.         _GLEND
103.     END SUB
104.      
105.     SUB DrawVirus (v AS COVID19)
106.         ' raining effect
107.         v.POS.y = v.POS.y - 0.02
108.         IF v.POS.y <= -1 THEN v.POS.y = 1
109.      
110.         _GLPUSHMATRIX 'save the previous position & rotation
111.         ' setting  position and rotation
112.         _GLTRANSLATEF v.POS.x, v.POS.y, v.POS.z
113.         _GLROTATEF v.rotY, 0.5, 1, 0
114.         v.rotY = v.rotY + 2
115.      
116.         _GLENABLE _GL_LIGHTING ' thanks to Ashish
117.         _GLMATERIALFV _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(v.C.R, v.C.G, v.C.B, v.C.A)
118.      
119.         ' make the sphere
120.         glutSolidSphere v.r, v.Vxz, v.Vyz
121.      
122.         _GLDISABLE _GL_LIGHTING
123.         ' make lines
124.         DrawLines v
125.         ' make points
126.         DrawPoints v
127.         _GLENABLE _GL_LIGHTING
128.      
129.         _GLPOPMATRIX 'restore the original position & rotation
130.     END SUB
131.      
132.     SUB _GL ()
133.         STATIC init, aspect
134.      
135.         IF glAllow = 0 THEN EXIT SUB
136.      
137.         InitGL init, aspect
138.      
139.         _GLENABLE _GL_DEPTH_TEST
140.         _GLENABLE _GL_LIGHTING
141.         _GLENABLE _GL_LIGHT0
142.      
143.         _GLLIGHTFV _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
144.         _GLLIGHTFV _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
145.         _GLLIGHTFV _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 1, 1, 1)
146.         _GLLIGHTFV _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 10, 1)
147.      
148.      
149.      
150.         _GLMATRIXMODE _GL_PROJECTION
151.         _GLUPERSPECTIVE 50, aspect, 0.1, 10
152.      
153.         _GLMATRIXMODE _GL_MODELVIEW
154.         gluLookAt 0, 0, 3, 0, 0, 0, 0, 1, 0
155.      
156.         _GLLINEWIDTH 2.0
157.         _GLPOINTSIZE 10.0
158.         FOR z = 1 TO 10 STEP 1
159.             DrawVirus virus(z)
160.         NEXT z
161.         _GLFLUSH
162.     END SUB
163.      
164.      
165.     FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
166.         STATIC internal_vec4(3)
167.         internal_vec4(0) = x
168.         internal_vec4(1) = y
169.         internal_vec4(2) = z
170.         internal_vec4(3) = w
171.         glVec4%& = _OFFSET(internal_vec4())
172.     END FUNCTION
173.      
174.  

[qbkiller101]

thx
plz reply someone to this https://www.qb64.org/forum/index.php?topic=2660.0

[TempodiBasic]

@qbkiller101
 yes that issue is alternating on my Notebook, and think that Window Defender has trolled me lanching a warning of a Troian blabla C.cl! in the file compiled! But after some google research I have found so many different source for that warning of windows defender! :-))

the issue has been already fixed by Ashish.
The not immediate response of program to the keyboard is the low cycle of run (_LIMIT 1), as Ashish has stressed if you want a program with  more performance you must arise that _LIMIT.
Thanks to try.

@Ashish
Thanks for appreciations, and moreover thanks to having teached me _SCREENEXISTS that I don't know.
If I have time today I go on with Mask tutorial and the rest.

Good Coding

[Richard Frost]

Neato-o, but it frequently freezes on startup for me because of the _SCREENMOVE _MIDDLE.
Commenting that out, or adding a _DELAY .5 after it, fixes it.

[TempodiBasic]

Yes you're right and your modifications are a workaround while this is the solution
https://www.qb64.org/forum/index.php?topic=2652.msg118726#msg118726
Thanks to try code