QB64.org Forum

Active Forums => Programs => Topic started by: Ashish on June 01, 2020, 03:56:30 am

Title: COVID-19 in QB64
Post by: Ashish on June 01, 2020, 03:56:30 am

WARNING : Use mask. Sanitize your hands after closing the program.

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.  
7. _TITLE "I'm Covid-19"
8. SCREEN _NEWIMAGE(600, 600, 32)
9.  
10. DECLARE LIBRARY
11.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
12.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
13.  
14. END DECLARE
15.  
16. DIM SHARED glAllow AS _BYTE
17. TYPE vec3
18.     x AS SINGLE
19.     y AS SINGLE
20.     z AS SINGLE
21. END TYPE
22.  
23. TYPE COVID19
24.     pos AS vec3
25.     r AS SINGLE
26. END TYPE
27.  
28. DIM SHARED virus AS COVID19
29.  
30. virus.r = 0.3
31.  
32. glAllow = -1
33. DO
34.     _LIMIT 1
35. LOOP
36.  
37. SUB _GL ()
38.     STATIC init, aspect, rotY
39.  
40.     IF glAllow = 0 THEN EXIT SUB
41.     IF init = 0 THEN
42.         init = 1
43.         aspect = _WIDTH / _HEIGHT
44.         _glViewport 0, 0, _WIDTH, _HEIGHT
45.     END IF
46.  
47.     _glEnable _GL_DEPTH_TEST
48.     _glEnable _GL_LIGHTING
49.     _glEnable _GL_LIGHT0
50.  
51.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
52.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
53.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 1, 1, 1)
54.     _glLightfv _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 10, 1)
55.  
56.  
57.  
58.     _glMatrixMode _GL_PROJECTION
59.     _gluPerspective 50, aspect, 0.1, 10
60.  
61.     _glMatrixMode _GL_MODELVIEW
62.     gluLookAt 0, 0, 2, 0, 0, 0, 0, 1, 0
63.  
64.  
65.     _glLineWidth 2.0
66.     _glPointSize 10.0
67.  
68.     _glTranslatef virus.pos.x, virus.pos.y, virus.pos.z
69.     _glRotatef rotY, 0.5, 1, 0
70.     rotY = rotY + 1
71.  
72.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(0, 0.9, 0, 1)
73.  
74.     glutSolidSphere virus.r, 20, 20
75.  
76.     _glDisable _GL_LIGHTING
77.     _glColor3f 1, 0, 0
78.     _glBegin _GL_LINES
79.     FOR phi = 0.4 TO _PI(2) STEP .5
80.         FOR theta = 0.3 TO _PI STEP .5
81.             _glVertex3f virus.r * SIN(theta) * COS(phi), virus.r * SIN(theta) * SIN(phi), virus.r * COS(theta)
82.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
83.         NEXT
84.     NEXT
85.     _glEnd
86.     _glBegin _GL_POINTS
87.     FOR phi = 0.4 TO _PI(2) STEP .5
88.         FOR theta = 0.3 TO _PI STEP .5
89.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
90.         NEXT
91.     NEXT
92.     _glEnd
93.     _glEnable _GL_LIGHTING
94.  
95.  
96. END SUB
97.  
98.  
99. FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
100.     STATIC internal_vec4(3)
101.     internal_vec4(0) = x
102.     internal_vec4(1) = y
103.     internal_vec4(2) = z
104.     internal_vec4(3) = w
105.     glVec4%& = _OFFSET(internal_vec4())
106. END FUNCTION
107.  

Title: Re: COVID-19 in QB64
Post by: _vince on June 01, 2020, 08:49:25 am

Nice work, ashishh. I made yours a little more efficient:

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.  
7. _TITLE "I'm Covid-19"
8. SCREEN _NEWIMAGE(600, 600, 32)
9.  
10. DECLARE LIBRARY
11.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
12.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
13.  
14. END DECLARE
15.  
16. DIM SHARED glAllow AS _BYTE
17. TYPE vec3
18.     x AS SINGLE
19.     y AS SINGLE
20.     z AS SINGLE
21. END TYPE
22.  
23. TYPE COVID19
24.     POS AS vec3
25.     r AS SINGLE
26. END TYPE
27.  
28. DIM SHARED virus AS COVID19
29.  
30. virus.r = 0.3
31.  
32. glAllow = -1
33. DO
34.     _LIMIT 1
35. LOOP
36.  
37. SUB _GL ()
38.     STATIC init, aspect, rotY
39.  
40.     IF glAllow = 0 THEN EXIT SUB
41.     IF init = 0 THEN
42.         init = 1
43.         aspect = _WIDTH / _HEIGHT
44.         _glViewport 0, 0, _WIDTH, _HEIGHT
45.     END IF
46.  
47.     _glEnable _GL_DEPTH_TEST
48.     _glEnable _GL_LIGHTING
49.     _glEnable _GL_LIGHT0
50.  
51.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
52.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
53.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 1, 1, 1)
54.     _glLightfv _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 10, 1)
55.  
56.  
57.  
58.     _glMatrixMode _GL_PROJECTION
59.     _gluPerspective 50, aspect, 0.1, 10
60.  
61.     _glMatrixMode _GL_MODELVIEW
62.     gluLookAt 0, 0, 2, 0, 0, 0, 0, 1, 0
63.  
64.  
65.     _glLineWidth 2.0
66.     _glPointSize 10.0
67.  
68.     _glTranslatef virus.POS.x, virus.POS.y, virus.POS.z
69.     _glRotatef rotY, 0.5, 1, 0
70.     rotY = rotY + 1
71.  
72.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(0, 0.9, 0, 1)
73.  
74.     glutSolidSphere virus.r, 20, 20
75.  
76.     _glDisable _GL_LIGHTING
77.     _glColor3f 1, 0, 0
78.     _glBegin _GL_LINES
79.     'FOR phi = 0.4 TO _PI(2) STEP .5
80.     'FOR theta = 0.3 TO _PI STEP .5
81.  
82.     rr = 0.18
83.     a = _ASIN(rr / (0.1 + virus.r))
84.     FOR theta = a TO _PI STEP a
85.         aa = rr / ((0.1 + virus.r) * SIN(theta))
86.         FOR phi = aa TO _PI(2) STEP aa
87.             _glVertex3f virus.r * SIN(theta) * COS(phi), virus.r * SIN(theta) * SIN(phi), virus.r * COS(theta)
88.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
89.         NEXT
90.     NEXT
91.  
92.     _glEnd
93.     _glBegin _GL_POINTS
94.     FOR theta = a TO _PI STEP a
95.         aa = rr / ((0.1 + virus.r) * SIN(theta))
96.         FOR phi = aa TO _PI(2) STEP aa
97.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
98.         NEXT
99.     NEXT
100.     _glEnd
101.     _glEnable _GL_LIGHTING
102.  
103.  
104. END SUB
105.  
106.  
107. FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
108.     STATIC internal_vec4(3)
109.     internal_vec4(0) = x
110.     internal_vec4(1) = y
111.     internal_vec4(2) = z
112.     internal_vec4(3) = w
113.     glVec4%& = _OFFSET(internal_vec4())
114. END FUNCTION
115.  

Title: Re: COVID-19 in QB64
Post by: Dimster on June 01, 2020, 09:30:13 am

So Ashish - how would you invisage the cure? Would it be a large razor blade to shave off those stubbles or perhaps a blanket with perferations through which those antenna would fit but the rest of the blanket would encompas the green ball of the virus. Perhaps just a flood of chlorine to overwhelm it. It's actually hard to image something so innocuous is so deadly.

Title: Re: COVID-19 in QB64
Post by: Real2Two on June 01, 2020, 09:36:09 am

Quote from: _vince on June 01, 2020, 08:49:25 am

Nice work, ashishh. I made yours a little more efficient:

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.  
7. _TITLE "I'm Covid-19"
8. SCREEN _NEWIMAGE(600, 600, 32)
9.  
10. DECLARE LIBRARY
11.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
12.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
13.  
14. END DECLARE
15.  
16. DIM SHARED glAllow AS _BYTE
17. TYPE vec3
18.     x AS SINGLE
19.     y AS SINGLE
20.     z AS SINGLE
21. END TYPE
22.  
23. TYPE COVID19
24.     POS AS vec3
25.     r AS SINGLE
26. END TYPE
27.  
28. DIM SHARED virus AS COVID19
29.  
30. virus.r = 0.3
31.  
32. glAllow = -1
33. DO
34.     _LIMIT 1
35. LOOP
36.  
37. SUB _GL ()
38.     STATIC init, aspect, rotY
39.  
40.     IF glAllow = 0 THEN EXIT SUB
41.     IF init = 0 THEN
42.         init = 1
43.         aspect = _WIDTH / _HEIGHT
44.         _glViewport 0, 0, _WIDTH, _HEIGHT
45.     END IF
46.  
47.     _glEnable _GL_DEPTH_TEST
48.     _glEnable _GL_LIGHTING
49.     _glEnable _GL_LIGHT0
50.  
51.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
52.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
53.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 1, 1, 1)
54.     _glLightfv _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 10, 1)
55.  
56.  
57.  
58.     _glMatrixMode _GL_PROJECTION
59.     _gluPerspective 50, aspect, 0.1, 10
60.  
61.     _glMatrixMode _GL_MODELVIEW
62.     gluLookAt 0, 0, 2, 0, 0, 0, 0, 1, 0
63.  
64.  
65.     _glLineWidth 2.0
66.     _glPointSize 10.0
67.  
68.     _glTranslatef virus.POS.x, virus.POS.y, virus.POS.z
69.     _glRotatef rotY, 0.5, 1, 0
70.     rotY = rotY + 1
71.  
72.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(0, 0.9, 0, 1)
73.  
74.     glutSolidSphere virus.r, 20, 20
75.  
76.     _glDisable _GL_LIGHTING
77.     _glColor3f 1, 0, 0
78.     _glBegin _GL_LINES
79.     'FOR phi = 0.4 TO _PI(2) STEP .5
80.     'FOR theta = 0.3 TO _PI STEP .5
81.  
82.     rr = 0.18
83.     a = _ASIN(rr / (0.1 + virus.r))
84.     FOR theta = a TO _PI STEP a
85.         aa = rr / ((0.1 + virus.r) * SIN(theta))
86.         FOR phi = aa TO _PI(2) STEP aa
87.             _glVertex3f virus.r * SIN(theta) * COS(phi), virus.r * SIN(theta) * SIN(phi), virus.r * COS(theta)
88.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
89.         NEXT
90.     NEXT
91.  
92.     _glEnd
93.     _glBegin _GL_POINTS
94.     FOR theta = a TO _PI STEP a
95.         aa = rr / ((0.1 + virus.r) * SIN(theta))
96.         FOR phi = aa TO _PI(2) STEP aa
97.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
98.         NEXT
99.     NEXT
100.     _glEnd
101.     _glEnable _GL_LIGHTING
102.  
103.  
104. END SUB
105.  
106.  
107. FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
108.     STATIC internal_vec4(3)
109.     internal_vec4(0) = x
110.     internal_vec4(1) = y
111.     internal_vec4(2) = z
112.     internal_vec4(3) = w
113.     glVec4%& = _OFFSET(internal_vec4())
114. END FUNCTION
115.  

Why did you evolve the virus?

Title: Re: COVID-19 in QB64
Post by: TempodiBasic on June 01, 2020, 07:54:32 pm

Hy Guys

@  Ashish Cool your coronavirus' motion

@ Vince Yes the surface now is more regular... it is a mutant kind of coronavirus

I'm following Ashish tutorial on Opengl, but slowly!
So I decide to try a tip to get a second littler coronavirus together with the first showed by Ashish's code....
and for error of my presupponitions I get this MAD coronavirus

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.  
7. _TITLE "I'm Covid-19"
8. SCREEN _NEWIMAGE(600, 600, 32)
9.  
10. DECLARE LIBRARY
11.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
12.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
13.  
14. END DECLARE
15.  
16. DIM SHARED glAllow AS _BYTE
17. TYPE vec3
18.     x AS SINGLE
19.     y AS SINGLE
20.     z AS SINGLE
21. END TYPE
22.  
23. TYPE COVID19
24.     POS AS vec3
25.     r AS SINGLE
26. END TYPE
27.  
28. DIM SHARED virus AS COVID19, viru AS COVID19
29.  
30. viru.r = 0.10
31. viru.POS.x = .3
32. viru.POS.y = .3
33. viru.POS.z = .3
34.  
35. virus.r = 0.3
36.  
37. glAllow = -1
38. DO
39.     _LIMIT 1
40. LOOP
41.  
42. SUB _GL ()
43.     STATIC init, aspect, rotY
44.  
45.     IF glAllow = 0 THEN EXIT SUB
46.     IF init = 0 THEN
47.         init = 1
48.         aspect = _WIDTH / _HEIGHT
49.         _glViewport 0, 0, _WIDTH, _HEIGHT
50.     END IF
51.  
52.     _glEnable _GL_DEPTH_TEST
53.     _glEnable _GL_LIGHTING
54.     _glEnable _GL_LIGHT0
55.  
56.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
57.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
58.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 1, 1, 1)
59.     _glLightfv _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 10, 1)
60.  
61.  
62.  
63.     _glMatrixMode _GL_PROJECTION
64.     _gluPerspective 50, aspect, 0.1, 10
65.  
66.     _glMatrixMode _GL_MODELVIEW
67.     gluLookAt 0, 0, 2, 0, 0, 0, 0, 1, 0
68.  
69.  
70.     _glLineWidth 2.0
71.     _glPointSize 10.0
72.  
73.     _glTranslatef virus.POS.x, virus.POS.y, virus.POS.z
74.     _glRotatef rotY, 0.5, 1, 0
75.     rotY = rotY + 1
76.  
77.     _glTranslatef viru.POS.x, viru.POS.y, viru.POS.z
78.     _glRotatef rotY, 0.5, 1, 0
79.     rotY = rotY + 1
80.  
81.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(0, 0.9, 0, 1)
82.  
83.     glutSolidSphere virus.r, 20, 20
84.     glutSolidSphere viru.r, 20, 20
85.  
86.     _glDisable _GL_LIGHTING
87.     _glColor3f 1, 0, 0
88.     _glBegin _GL_LINES
89.     FOR phi = 0.4 TO _PI(2) STEP .5
90.         FOR theta = 0.3 TO _PI STEP .5
91.             _glVertex3f virus.r * SIN(theta) * COS(phi), virus.r * SIN(theta) * SIN(phi), virus.r * COS(theta)
92.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
93.  
94.             _glVertex3f viru.r * SIN(theta) * COS(phi), viru.r * SIN(theta) * SIN(phi), viru.r * COS(theta)
95.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
96.  
97.         NEXT
98.     NEXT
99.     _glEnd
100.     _glBegin _GL_POINTS
101.     FOR phi = 0.4 TO _PI(2) STEP .5
102.         FOR theta = 0.3 TO _PI STEP .5
103.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
104.  
105.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
106.         NEXT
107.     NEXT
108.     _glEnd
109.     _glEnable _GL_LIGHTING
110.  
111.  
112. END SUB
113.  
114.  
115. FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
116.     STATIC internal_vec4(3)
117.     internal_vec4(0) = x
118.     internal_vec4(1) = y
119.     internal_vec4(2) = z
120.     internal_vec4(3) = w
121.     glVec4%& = _OFFSET(internal_vec4())
122. END FUNCTION
123.  
124.  

Thanks to look at

Title: Re: COVID-19 in QB64
Post by: Ashish on June 02, 2020, 01:35:43 am

@vince Thanks. You made the spikes to look more uniformly distributed.

@Dimster IDK. I think human will evolve from this. Not all are dying from this idiot virus. OR I think, the one who will be genetically fittest would survive this. I know little about biology, so my opinion may be wrong. :)

Title: Re: COVID-19 in QB64
Post by: Ashish on June 02, 2020, 02:10:29 am

@TempodiBasic
Very nice try... Look like virus has become very angry. Ok, jokes apart.

You will soon learn all 3D in OpenGL. Its not that too hard.

Okay, so lets talk about your modification to the code.

1. You created another variable of the type COVID19 and initialize its property. Like (r, pos.x, etc). This is fine.

2. The real issue is in SUB _GL() : But why?
You know, I'm using a command _glTranslatef. But what this do? Well... The value you pass it to is added to the current origin.
In OpenGL, the initial origin is center of the screen. That is the reference point. In coordinates, you can say origin is (0,0,0).
Now, if you call _glTranslatef 0.5,0.5,0. Origin will become  (0+0.5,0+0.5,0) or (0.5,0.5,0).
If you again call _glTranslatef -0.5,0.5,0. Origin will become  (0.5+(-0.5),0.5+0.5,0+0) or (0,1,0).

You have clearly noticed that in second calling, the positions were not added in (0,0,0) but in (0.5,0.5,0). This is because
(0.5,0.5,0) was our current origin before calling _glTranslatef for second time. As you can see, I already said this above.

And in your code you are doing the same thing. The virus is being drawn, but it inside the my virus, because its radius is small.

In order to render 2 viruses, you need to do this -

(i) translate the origin to my virus position by _glTranslatef

(ii) Do all the drawing stuff

(iii) Return to the our original origin (0,0,0). You can return to the original origin by again calling _glTranslatef with negative sign on the position of my virus. This will make the values to cancel out and the origin is again (0,0,0)

(iv)Now, translate the origin to your virus as you did in your code with _glTranslatef

(v)Do all the drawing stuff for your virus, as you did in your code.

And this must work.
As an exercise, I'm waiting for your new code with above modification.



OMG: This is the longest post I've ever written.  :D

PS: About the weird movement of your virus. That's because, since the origin in your code neither matches virus nor viru, the rotation is done from other origin.

Title: Re: COVID-19 in QB64
Post by: TempodiBasic on June 02, 2020, 04:10:43 am

Hi Ashish, thanks for time and energy to pass  me useful informations to do better code in OpenGl!

Last time I have imagined a my way to let see the 2 viruses but the code was uncomplete and I'm tired so I went to bed to get some rest.
Today morning I find your complete answer, but I see also that to complete my way I need to write just a color statement so for now I post this code.  Then I'll try to get the result in a more elegant way following your right suggestions.

COVID19 and its son

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.  
8. _TITLE "I'm Covid-19 with my little son"
9. SCREEN _NEWIMAGE(600, 600, 32)
10.  
11. DECLARE LIBRARY
12.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
13.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
14.  
15. END DECLARE
16.  
17. DIM SHARED glAllow AS _BYTE
18. TYPE vec3
19.     x AS SINGLE
20.     y AS SINGLE
21.     z AS SINGLE
22. END TYPE
23.  
24. TYPE COVID19
25.     POS AS vec3
26.     r AS SINGLE
27. END TYPE
28.  
29. DIM SHARED virus AS COVID19, viru AS COVID19
30.  
31. viru.r = 0.10
32. viru.POS.x = .5
33. viru.POS.y = .5
34. viru.POS.z = .5
35.  
36. virus.r = 0.3
37.  
38. glAllow = -1
39. DO
40.     _LIMIT 1
41. LOOP
42.  
43. SUB _GL ()
44.     STATIC init, aspect, rotY
45.  
46.     IF glAllow = 0 THEN EXIT SUB
47.     IF init = 0 THEN
48.         init = 1
49.         aspect = _WIDTH / _HEIGHT
50.         _glViewport 0, 0, _WIDTH, _HEIGHT
51.     END IF
52.  
53.     _glEnable _GL_DEPTH_TEST
54.     _glEnable _GL_LIGHTING
55.     _glEnable _GL_LIGHT0
56.  
57.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
58.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
59.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 1, 1, 1)
60.     _glLightfv _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 10, 1)
61.  
62.  
63.  
64.     _glMatrixMode _GL_PROJECTION
65.     _gluPerspective 50, aspect, 0.1, 10
66.  
67.     _glMatrixMode _GL_MODELVIEW
68.     gluLookAt 0, 0, 2, 0, 0, 0, 0, 1, 0
69.  
70.  
71.     _glLineWidth 2.0
72.     _glPointSize 10.0
73.  
74.     _glTranslatef virus.POS.x, virus.POS.y, virus.POS.z
75.     _glRotatef rotY, 0.5, 1, 0
76.     rotY = rotY + 1
77.  
78.  
79.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(0, 0.9, 0, 1)
80.  
81.     glutSolidSphere virus.r, 20, 20
82.  
83.     _glDisable _GL_LIGHTING
84.     _glColor3f 1, 0, 0
85.     _glBegin _GL_LINES
86.     FOR phi = 0.4 TO _PI(2) STEP .5
87.         FOR theta = 0.3 TO _PI STEP .5
88.             _glVertex3f virus.r * SIN(theta) * COS(phi), virus.r * SIN(theta) * SIN(phi), virus.r * COS(theta)
89.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
90.         NEXT
91.     NEXT
92.     _glEnd
93.     _glBegin _GL_POINTS
94.     FOR phi = 0.4 TO _PI(2) STEP .5
95.         FOR theta = 0.3 TO _PI STEP .5
96.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
97.         NEXT
98.     NEXT
99.     _glEnd
100.  
101.     '----
102.  
103.  
104.     _glTranslatef viru.POS.x, viru.POS.y, viru.POS.z
105.     _glRotatef rotY, 0.5, 1, 0
106.     rotY = rotY + 1
107.     _glColor3f 0, 1, 0
108.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(0, 0.9, 0, 1)
109.  
110.  
111.     glutSolidSphere viru.r, 10, 10
112.  
113.  
114.     _glDisable _GL_LIGHTING
115.     _glColor3f 1, 0, 0
116.     _glBegin _GL_LINES
117.     FOR phi = 0.4 TO _PI(2) STEP .5
118.         FOR theta = 0.3 TO _PI STEP .5
119.             _glVertex3f viru.r * SIN(theta) * COS(phi), viru.r * SIN(theta) * SIN(phi), viru.r * COS(theta)
120.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
121.         NEXT
122.     NEXT
123.     _glEnd
124.  
125.     _glBegin _GL_POINTS
126.     FOR phi = 0.4 TO _PI(2) STEP .5
127.         FOR theta = 0.3 TO _PI STEP .5
128.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
129.         NEXT
130.     NEXT
131.     _glEnd
132.     _glEnable _GL_LIGHTING
133. END SUB
134.  
135.  
136. FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
137.     STATIC internal_vec4(3)
138.     internal_vec4(0) = x
139.     internal_vec4(1) = y
140.     internal_vec4(2) = z
141.     internal_vec4(3) = w
142.     glVec4%& = _OFFSET(internal_vec4())
143. END FUNCTION
144.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
PS
https://ashishkingdom.github.io/OpenGL-Tutorials/ (https://ashishkingdom.github.io/OpenGL-Tutorials/)
I find great this tutorial! But for me some lessons are too plenty of informations that I must take more time to go on.
For now I'm at Texture chapter and I'll coping with the Mask part.

Title: Re: COVID-19 in QB64
Post by: qbkiller101 on June 02, 2020, 04:26:41 am

This is what you get if you randomly enter your nose into numbers you shouldn't enter your nose in variables you shouldn't enter your nose in noses which enter their nose in noses which enter noses in noses

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.  
8. _TITLE "I'm Covid-19 with my little son"
9. SCREEN _NEWIMAGE(550, 600, 32)
10.  
11. DECLARE LIBRARY
12.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
13.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
14.  
15. END DECLARE
16.  
17. DIM SHARED glAllow AS _BYTE
18. TYPE vec3
19.     x AS SINGLE
20.     y AS SINGLE
21.     z AS SINGLE
22. END TYPE
23.  
24. TYPE COVID19
25.     POS AS vec3
26.     r AS SINGLE
27. END TYPE
28.  
29. DIM SHARED virus AS COVID19, viru AS COVID19
30.  
31. viru.r = 0.5
32. viru.POS.x = .75
33. viru.POS.y = .75
34. viru.POS.z = .75
35.  
36. virus.r = 0.5
37.  
38. glAllow = -1
39. DO
40.     _LIMIT 50
41. LOOP
42.  
43. SUB _GL ()
44.     STATIC init, aspect, rotY
45.  
46.     IF glAllow = 0 THEN EXIT SUB
47.     IF init = 0 THEN
48.         init = 2
49.         aspect = _WIDTH / _HEIGHT + 1
50.         _glViewport 0, 0, _WIDTH, _HEIGHT
51.     END IF
52.  
53.     _glEnable _GL_DEPTH_TEST
54.     _glEnable _GL_LIGHTING
55.     _glEnable _GL_LIGHT0
56.  
57.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
58.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
59.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 10, 1, 1)
60.     _glLightfv _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 5, 1)
61.  
62.  
63.  
64.     _glMatrixMode _GL_PROJECTION
65.     _gluPerspective 50, aspect, 0.1, 10
66.  
67.     _glMatrixMode _GL_MODELVIEW
68.     gluLookAt 0, 0, 2, 0, 0, 0, 0, 1, 0
69.  
70.  
71.     _glLineWidth 3.0
72.     _glPointSize 10.0
73.  
74.     _glTranslatef virus.POS.x, virus.POS.y, virus.POS.z
75.     _glRotatef rotY, 1, 1, 0
76.     rotY = rotY + 1
77.  
78.  
79.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(0, 1.9, 0, 1)
80.  
81.     glutSolidSphere virus.r, 20, 20
82.  
83.     _glDisable _GL_LIGHTING
84.     _glColor3f 1, 0, 0
85.     _glBegin _GL_LINES
86.     FOR phi = 0.4 TO _PI(2) STEP .5
87.         FOR theta = 0.3 TO _PI STEP 5
88.             _glVertex3f virus.r * SIN(theta) * COS(phi), virus.r * SIN(theta) * SIN(phi), virus.r * COS(theta)
89.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
90.         NEXT
91.     NEXT
92.     _glEnd
93.     _glBegin _GL_POINTS
94.     FOR phi = 0.4 TO _PI(2) STEP 1
95.         FOR theta = 0.3 TO _PI STEP .5
96.             _glVertex3f (0.1 + virus.r) * SIN(theta) * COS(phi), (0.1 + virus.r) * SIN(theta) * SIN(phi), (0.1 + virus.r) * COS(theta)
97.         NEXT
98.     NEXT
99.     _glEnd
100.  
101.     '----
102.  
103.  
104.     _glTranslatef viru.POS.x, viru.POS.y, viru.POS.z
105.     _glRotatef rotY, 0.5, 2, 0
106.     rotY = rotY + 1
107.     _glColor3f 0, 1, 0
108.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(0, 0.9, 0, 1)
109.  
110.  
111.     glutSolidSphere viru.r, 10, 10
112.  
113.  
114.     _glDisable _GL_LIGHTING
115.     _glColor3f 1, 0, 5
116.     _glBegin _GL_LINES
117.     FOR phi = 0.4 TO _PI(2) STEP .5
118.         FOR theta = 0.3 TO _PI STEP .5
119.             _glVertex3f viru.r * SIN(theta) * COS(phi), viru.r * SIN(theta) * SIN(phi), viru.r * COS(theta)
120.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
121.         NEXT
122.     NEXT
123.     _glEnd
124.  
125.     _glBegin _GL_POINTS
126.     FOR phi = 0.4 TO _PI(2) STEP .5
127.         FOR theta = 0.3 TO _PI STEP .5
128.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
129.         NEXT
130.     NEXT
131.     _glEnd
132.     _glEnable _GL_LIGHTING
133. END SUB
134.  
135.  
136. FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
137.     STATIC internal_vec4(3)
138.     internal_vec4(0) = x
139.     internal_vec4(1) = y
140.     internal_vec4(2) = z
141.     internal_vec4(3) = w
142.     glVec4%& = _OFFSET(internal_vec4())
143. END FUNCTION
144.  
145.  

basically i randomly picked numbers then changed them

Title: Re: COVID-19 in QB64
Post by: Ashish on June 02, 2020, 05:47:31 am

@TempodiBasic Cool! A very nice start. Oh, before drawing your virus, you forgot to turn on lights effect.
Insert this

Code: QB64: [Select]

1. _glEnable _GL_LIGHTING

before drawing your sphere. This will turn on lighting effects. :)

Oh, I see, you have completed colors section of OpenGL. You know, the glVec4() I'm using before drawing sphere and its spike is
actually defining its color. ;)) Feel free to modify the color of the son of the virus. :P

@qbkiller101 bruh, man you have changed the aspect. Also, you are passing color value which is greater than 1 using glVec4()
Playing hard with numbers.
Do you really want to play with numbers.... I have a puzzle for you then
Create a 10 digit number so that the first digit is the number of zeros in the number, the second digit is the number of ones in the number, the third digit is the number of twos, etc.

Title: Re: COVID-19 in QB64
Post by: TempodiBasic on June 02, 2020, 09:49:11 am

Hi Ashish,
yes going on with practice I can learn more about _GLcommands
thanks for feedback but please take a look to this new example in which I try to modularize the SUB _GL()

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. _TITLE "I'm Covid-19 with my little son"
9.  
10. SCREEN _NEWIMAGE(600, 600, 32)
11.  
12. DECLARE LIBRARY
13.     SUB glutSolidSphere (BYVAL radius AS DOUBLE, BYVAL slices AS LONG, BYVAL stack AS LONG)
14.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
15. END DECLARE
16.  
17. DIM SHARED glAllow AS _BYTE
18. TYPE vec3
19.     x AS SINGLE
20.     y AS SINGLE
21.     z AS SINGLE
22. END TYPE
23.  
24. TYPE COVID19
25.     POS AS vec3
26.     r AS SINGLE
27.     rotY AS SINGLE
28.     rotX AS SINGLE
29.     Vxz AS SINGLE
30.     Vyz AS SINGLE
31. END TYPE
32.  
33. DIM SHARED virus AS COVID19, viru AS COVID19
34.  
35. Initialize
36. DO
37.     _LIMIT 1
38. LOOP UNTIL _KEYHIT = 32
39. END ' a logical end to the flow
40.  
41. '------------ SUBs and FUNCTIONs----------------------------
42. SUB Initialize
43.     viru.r = 0.10
44.     viru.POS.x = .5
45.     viru.POS.y = .5
46.     viru.POS.z = .5
47.     viru.Vxz = 10
48.     viru.Vyz = 10
49.  
50.     virus.r = 0.3
51.     virus.POS.y = 0
52.     virus.POS.x = 0
53.     virus.POS.z = 0
54.     virus.Vxz = 20
55.     virus.Vyz = 20
56.  
57.     glAllow = -1
58. END SUB
59.  
60.  
61. SUB InitGL (in, aspe)
62.     IF in = 0 THEN
63.         in = 1
64.         aspe = _WIDTH / _HEIGHT
65.         _glViewport 0, 0, _WIDTH, _HEIGHT
66.     END IF
67. END SUB
68.  
69. SUB DrawLines (viru AS COVID19)
70.     _glColor3f 1, 0, 0
71.     _glBegin _GL_LINES
72.     FOR phi = 0.4 TO _PI(2) STEP .5
73.         FOR theta = 0.3 TO _PI STEP .5
74.             _glVertex3f viru.r * SIN(theta) * COS(phi), viru.r * SIN(theta) * SIN(phi), viru.r * COS(theta)
75.             _glVertex3f (0.1 + viru.r) * SIN(theta) * COS(phi), (0.1 + viru.r) * SIN(theta) * SIN(phi), (0.1 + viru.r) * COS(theta)
76.         NEXT
77.     NEXT
78.     _glEnd
79.  
80. END SUB
81.  
82. SUB DrawPoints (viru AS COVID19)
83.     _glBegin _GL_POINTS
84.     FOR phi = 0.4 TO _PI(2) STEP .5
85.         FOR theta = 0.3 TO _PI STEP .5
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. END SUB
91.  
92. SUB DrawVirus (v AS COVID19)
93.     ' setting  position and rotation
94.     _glTranslatef v.POS.x, v.POS.y, v.POS.z
95.     _glRotatef v.rotY, 0.5, 1, 0
96.     v.rotY = v.rotY + 1
97.     _glColor3f 0, 1, 0
98.     _glMaterialfv _GL_FRONT_AND_BACK, _GL_DIFFUSE, glVec4(0, 0.9, 0, 1)
99.  
100.     ' make the sphere
101.     glutSolidSphere v.r, v.Vxz, v.Vyz
102.  
103.     _glDisable _GL_LIGHTING
104.     ' make lines
105.     DrawLines v
106.     ' make points
107.     DrawPoints v
108.     _glEnable _GL_LIGHTING
109. END SUB
110.  
111. SUB _GL ()
112.     STATIC init, aspect, rotY
113.  
114.     IF glAllow = 0 THEN EXIT SUB
115.  
116.     InitGL init, aspect
117.  
118.     _glEnable _GL_DEPTH_TEST
119.     _glEnable _GL_LIGHTING
120.     _glEnable _GL_LIGHT0
121.  
122.     _glLightfv _GL_LIGHT0, _GL_AMBIENT, glVec4(0.0, 0.0, 0.0, 1)
123.     _glLightfv _GL_LIGHT0, _GL_DIFFUSE, glVec4(0.8, 0.8, 0.8, 1)
124.     _glLightfv _GL_LIGHT0, _GL_SPECULAR, glVec4(1, 1, 1, 1)
125.     _glLightfv _GL_LIGHT0, _GL_POSITION, glVec4(0, 0, 10, 1)
126.  
127.  
128.  
129.     _glMatrixMode _GL_PROJECTION
130.     _gluPerspective 50, aspect, 0.1, 10
131.  
132.     _glMatrixMode _GL_MODELVIEW
133.     gluLookAt 0, 0, 2, 0, 0, 0, 0, 1, 0
134.  
135.  
136.     _glLineWidth 2.0
137.     _glPointSize 10.0
138.  
139.     DrawVirus virus
140.     DrawVirus viru
141. END SUB
142.  
143.  
144. FUNCTION glVec4%& (x, y, z, w) 'give the offset of the given vector
145.     STATIC internal_vec4(3)
146.     internal_vec4(0) = x
147.     internal_vec4(1) = y
148.     internal_vec4(2) = z
149.     internal_vec4(3) = w
150.     glVec4%& = _OFFSET(internal_vec4())
151. END FUNCTION
152.  

the next step is an array of virus COVID19  :-)
each with its color ;)

Title: Re: COVID-19 in QB64
Post by: TempodiBasic on June 02, 2020, 09:56:48 am

@qbkiller101 
fine evolution of the theme, but its title must be changed into "COVID19 fights COVID20" because it seems that 2 different viruses are competing for the same place!

Title: Re: COVID-19 in QB64
Post by: qbkiller101 on June 02, 2020, 10:02:32 am

It's not meant to be anything and btw I don't know 3d graphics at all
I just randomly messed with nubers :\

Title: Re: COVID-19 in QB64
Post by: TempodiBasic on June 02, 2020, 10:57:54 am

Hi guys

see here :-) the task is performed! Here is a family of viruses...LOL thanks to Ashish to start this thread and the tips!

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

here a screenshot   [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: COVID-19 in QB64
Post by: TempodiBasic on June 02, 2020, 11:17:54 am

@qbkiller101
hey man

your good luck with numbers, also when you have messed them, is clear!
Have you tried at casinò in Las Vegas?
 The nature  makes mutations by messing our inner data! Those mutations sometime  are bad (see genetic illness) some time they are good (see Xmen)!


@vince
I find very interesting how you have uniformed the distribution of spikes on the surface of the virus, I have used the original code of Ashish because on 2 opposite pole it draws a crown.

Title: Re: COVID-19 in QB64
Post by: Ashish on June 02, 2020, 12:16:12 pm

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

Title: Re: COVID-19 in QB64
Post by: TempodiBasic on June 02, 2020, 01:09:23 pm

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

Quote

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

Thanks for the suggestion

Title: Re: COVID-19 in QB64
Post by: Ashish on June 02, 2020, 11:34:46 pm

Amazing work, @TempodiBasic :)

Title: Re: COVID-19 in QB64
Post by: qbkiller101 on June 03, 2020, 01:44:49 am

@TempodiBasic tried opening a zillion times but still
  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: COVID-19 in QB64
Post by: Ashish on June 03, 2020, 02:20:57 am

@qbkiller101
Add this before _SCREENMOVE _MIDDLE on line 44.

Code: QB64: [Select]

1. DO: LOOP UNTIL _SCREENEXISTS

Title: Re: COVID-19 in QB64
Post by: qbkiller101 on June 03, 2020, 02:23:50 am

worked.
@TempodiBasic enter to quit isnt working

Title: Re: COVID-19 in QB64
Post by: Ashish on June 03, 2020, 02:34:58 am

@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.  

Title: Re: COVID-19 in QB64
Post by: qbkiller101 on June 03, 2020, 02:37:16 am

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

Title: Re: COVID-19 in QB64
Post by: TempodiBasic on June 03, 2020, 04:27:33 am

@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

Title: Re: COVID-19 in QB64
Post by: Richard Frost on July 13, 2020, 12:19:49 am

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.

Title: Re: COVID-19 in QB64
Post by: TempodiBasic on July 13, 2020, 01:58:44 pm

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 (https://www.qb64.org/forum/index.php?topic=2652.msg118726#msg118726)
Thanks to try code

Text Only | Text with Attachments