Moving into the Matrix Rain

[FellippeHeitor]

This is working fine in v1.3 in Linux.  I haven't tried it in v1.2 because it currently isn't installed.  I will test it there later.

Ashish is using some syntax that’s specific of v1.3, don’t even bother unless you’re actually intending to adapt it for older versions.

[Ashish]

VERY Nice Ashish.!

I found 2 issues on my system:
1) This only works for QB64 v1.3 and not v1.2 without changes.
2) When I try to run it in Windows vm in 1.2 && 1.3 I get the blue text, white title text, and then just a bunch of white area and not the text that scrolls up the screen.

This is working fine in v1.3 in Linux.  I haven't tried it in v1.2 because it currently isn't installed.  I will test it there later.

Thanks.
1. I fixed the code, so that can work 1.2 too without making changes.
2. This was also reported by Fellippe. Is it windows XP?

...
Just sometimes a bit of flickering  that I have not been able to correct pitching the _Limit's Value.

while some attempts to use an intermediate panel/canvas and _PutImage to avoid CLS (in my little experience CLS is against very fast graphic routines) give me strange results... it maybe that _gLfunctions are faster than _putimage!

Thanks to share.

You are right. OpenGL is very fast. It render the texture at the same time when CLS is used. Also, the data is being feed by _MEM.
I fixed the flickering issue by using two images & avoiding CLS.

Okay, Here is the lastest code -

Code: QB64: [Select]

1. '###########################
2. '# StarWars Opening Crawl  #
3. '# By Ashish               #
4. '###########################
5.  
6. _TITLE "STARSWARS Opening crawl"
7.  
8. SCREEN _NEWIMAGE(800, 600, 32)
9.  
10. DIM SHARED glAllow, text&, text2&, lines$(26)
11. DIM SHARED starWars&
12.  
13. text& = _NEWIMAGE(280, (ubound(lines$)+1)*_FONTHEIGHT, 32)
14. text2& = _COPYIMAGE(text&)
15. starWars& = _NEWIMAGE(65, 17, 32)
16.  
17. _DEST starWars&
18. COLOR _RGB32(255,255,255)
19. _PRINTSTRING (0, 0), "STARWARS"
20. _DEST 0
21.  
22. FOR i = 0 TO UBOUND(lines$)
23.     READ a$
24.     lines$(i) = a$
25. NEXT
26.  
27. COLOR _RGB(0, 0, 255)
28. centerPrint "A long time ago in galaxy far,", _WIDTH, 280
29. centerPrint "far away...", _WIDTH, 308
30. _DELAY 2
31. FOR i = 0 TO 255 STEP 5
32.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, i), BF
33.     _DISPLAY
34.     _DELAY 0.01
35. NEXT
36. _PUTIMAGE (_WIDTH / 2 - _WIDTH(starWars&) * 3, _HEIGHT / 2 - _HEIGHT(starWars&) * 3)-STEP(_WIDTH(starWars&) * 6, _HEIGHT(starWars&) * 6), starWars&
37. _DISPLAY
38. _DELAY 2
39. FOR i = 0 TO 255 STEP 5
40.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, i), BF
41.     _DISPLAY
42.     _DELAY 0.01
43. NEXT
44. _DEST text2&
45. COLOR _RGB(255,220,0),_RGB(0,0,0)
46. FOR i = 0 TO UBOUND(lines$)
47.         IF i = UBOUND(lines$) THEN COLOR _RGB(255, 0, 255)
48.         centerPrint lines$(i), _WIDTH, y + i * _FONTHEIGHT
49. NEXT
50. _DEST 0
51.  
52. glAllow = -1
53. COLOR _RGB(255, 220, 0), _RGBA(0, 0, 0, 0)
54. y = _HEIGHT(text&)+10
55.  
56. DO
57.  
58.     _DEST text&
59.         _putimage (0,y),text2&
60.     y = y - 1
61.     _LIMIT 30
62. LOOP UNTIL y < -_HEIGHT(text2&)-10
63. _DEST 0
64.  
65. DATA "It is a period of civil war"
66. DATA "Rebel spaceships, striking"
67. DATA "from a hidden base, have "
68. DATA "won their first victory"
69. DATA "against the evil Galactic"
70. DATA "Empire."
71. DATA ""
72. DATA ""
73. DATA "During the battle, rebel"
74. DATA "spies managed to steel"
75. DATA "secret plans to the Empire's"
76. DATA "ultimate weapon, the DEATH"
77. DATA "STAR, an armored space station"
78. DATA "with enough to destroy an entire"
79. DATA "planet."
80. DATA ""
81. DATA ""
82. DATA "Pursued by the Empire's sinister"
83. DATA "agents, Princess Leia races"
84. DATA "home abroad her starship,"
85. DATA "custodian of the stolen plans"
86. DATA "that cansave her people and"
87. DATA "restore the freedom to the galaxy"
88. DATA ""
89. DATA ""
90. DATA ""
91. DATA "QB64 Rocks!"
92.  
93. SUB centerPrint (t$, w, y)
94.     _PRINTSTRING ((w / 2) - (LEN(t$) * _FONTWIDTH) / 2, y), t$
95. END SUB
96.  
97. SUB _GL ()
98.     STATIC glInit, tex&, texMem AS _MEM', clock!
99.     IF NOT glAllow THEN EXIT SUB
100.     IF glInit = 0 THEN
101.         glInit = -1
102.         _glViewport 0, 0, _WIDTH, _HEIGHT
103.         texMem = _MEMIMAGE(text&)
104.         _glGenTextures 1, _OFFSET(tex&)
105.     END IF
106.        
107.         IF glInit = -1 then clock! = clock! + 0.01
108.  
109.     _glEnable _GL_TEXTURE_2D
110.     _glEnable _GL_DEPTH_TEST
111.  
112.  
113.  
114.     _glMatrixMode _GL_PROJECTION
115.     _glLoadIdentity
116.     _gluPerspective 60.0, _WIDTH / _HEIGHT, 0.01, 10
117.  
118.     _glMatrixMode _GL_MODELVIEW
119.     _glLoadIdentity
120.        
121.     _glBindTexture _GL_TEXTURE_2D, tex&
122.     _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGB, _WIDTH(texMem.IMAGE), _HEIGHT(texMem.IMAGE), 0, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, texMem.OFFSET
123.     _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
124.     _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_LINEAR
125.  
126.     _glBegin _GL_QUADS
127.     _glTexCoord2f 0, 1: _glVertex3f -0.8, -1, -0.5 'bottom left     #
128.     _glTexCoord2f 1, 1: _glVertex3f 0.8, -1, -0.5 'bottom right     # Coordinates sign are same as in Cartesian Plane   (3D)
129.     _glTexCoord2f 1, 0: _glVertex3f 0.8, 3, -7 'upper right       #
130.     _glTexCoord2f 0, 0: _glVertex3f -0.8, 3, -7 ' upper left      #
131.     _glEnd
132.  
133.  
134.     _glFlush
135. END SUB
136.  
137.  

[bplus]

Hi Ashish,

Yep! another great. 2nd version runs much smoother.

Very nice once again. :)

[Ashish]

Yes. Window XP is the issue. It has some problem with OpenGL textures format.
No. On my machine, Windows XP in VM smoothly runs it.
https://ashishkingdom.github.io/OpenGL-Tutorials
^^^ If a person complete above till textures along with solving exercises, then I think it will be easier for everyone to code simple 3D stuff like this.

[OldMoses]

That was great, I found myself leaning back and forth...