Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Ashish on June 23, 2019, 07:30:08 am

Title: Moving into the Matrix Rain
Post by: Ashish on June 23, 2019, 07:30:08 am
Hi everyone.
I was just inspire by Bplus's Matrix rain on this topic - https://www.qb64.org/forum/index.php?topic=1152.msg106362
So, I decided to create a similar matrix rain having depth effect.

Code: QB64: [Select]
  1. 'Moving into the Matrix Rain
  2. 'By Ashish Kushwaha
  3. '23 Jun, 2019
  4. '
  5. 'Inspire by B+ Matrix Rain.
  6. _TITLE "Moving into the Matrix Rain"
  7.  
  9.  
  10. SCREEN _NEWIMAGE(800, 600, 32)
  11.  
  12. TYPE matRain
  13.     x AS SINGLE 'x location
  14.     y AS SINGLE 'y location
  15.     z AS SINGLE 'z location
  16.     ay AS SINGLE 'rain velocity
  17.     strData AS STRING 'string data of each matrix rain
  19.  
  20. DIM SHARED charImg(74) AS LONG, matRainWidth, matRainHeight 'ascii char from 48 to 122, i.e, total 75 type of chars
  21. DIM SHARED glAllow AS _BYTE, matrixRain(700) AS matRain, matrixRainTex(74) AS LONG, mov
  22. matRainWidth = _FONTWIDTH * 0.005
  23. matRainHeight = _FONTHEIGHT * 0.005
  24. CLS , _RGB32(255)
  26. FOR i = 0 TO 74
  27.     charImg(i) = _NEWIMAGE(_FONTWIDTH * 5, _FONTHEIGHT * 5, 32)
  28.     _DEST tmp&
  29.     CLS , _RGBA(0, 0, 0, 0)
  30.     COLOR _RGB32(0, 255, 0), 1
  31.     _PRINTSTRING (0, 0), CHR$(i + 48)
  32.     _DEST charImg(i)
  33.     _PUTIMAGE , tmp&
  34.     _DEST 0
  36.  
  37.  
  38. glAllow = -1
  40.     FOR i = 0 TO UBOUND(matrixRain)
  41.         matrixRain(i).y = matrixRain(i).y - matrixRain(i).ay
  42.         IF RND > 0.9 THEN
  43.             d$ = ""
  44.             FOR k = 1 TO LEN(matrixRain(i).strData)
  45.                 d$ = d$ + CHR$(48 + p5random(0, 74)) 'change the character of rain randomly by a chance of 10%
  46.             NEXT
  47.             matrixRain(i).strData = d$
  48.         END IF
  49.         matrixRain(i).z = matrixRain(i).z + 0.00566 'move into the rain
  50.         IF matrixRain(i).z > 0.1 THEN 'when behind screen
  51.             matrixRain(i).x = p5random(-2, 2)
  52.             matrixRain(i).y = p5random(2, 3.7)
  53.             matrixRain(i).z = map((i / UBOUND(matrixRain)), 0, 1, -8, -0.2)
  54.             matrixRain(i).ay = p5random(0.006, 0.02)
  55.         END IF
  56.     NEXT
  57.     _LIMIT 60
  59.  
  60. SUB _GL ()
  61.     STATIC glInit
  62.     mov = mov + 0.01
  63.     IF NOT glAllow THEN EXIT SUB
  64.  
  65.     IF glInit = 0 THEN
  66.         glInit = 1
  67.  
  68.         FOR i = 0 TO UBOUND(matrixRainTex) 'create texture for each ascii character
  69.             _glGenTextures 1, _OFFSET(matrixRainTex(i))
  70.  
  71.             DIM m AS _MEM
  72.             m = _MEMIMAGE(charImg(i))
  73.  
  74.             _glBindTexture _GL_TEXTURE_2D, matrixRainTex(i)
  75.             _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGBA, _WIDTH(charImg(i)), _HEIGHT(charImg(i)), 0, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, m.OFFSET
  76.  
  77.             _MEMFREE m
  78.  
  79.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_NEAREST
  80.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_NEAREST
  81.             _FREEIMAGE charImg(i)
  82.         NEXT
  83.  
  84.         FOR i = 0 TO UBOUND(matrixRain) 'initialization
  85.             n = p5random(1, 15)
  86.             FOR j = 1 TO n
  87.                 v$ = CHR$(p5random(48, 122))
  88.                 matrixRain(i).strData = matrixRain(i).strData + v$
  89.             NEXT
  90.             matrixRain(i).x = p5random(-2, 2)
  91.             matrixRain(i).y = p5random(2, 3.7)
  92.             matrixRain(i).z = map((i / UBOUND(matrixRain)), 0, 1, -8, -0.2)
  93.             matrixRain(i).ay = p5random(0.006, 0.02)
  94.         NEXT
  95.  
  96.         _glViewport 0, 0, _WIDTH, _HEIGHT
  97.     END IF
  98.  
  99.     _glEnable _GL_BLEND 'enabling necessary stuff
  100.     _glEnable _GL_DEPTH_TEST
  101.     _glEnable _GL_TEXTURE_2D
  102.  
  103.  
  104.     _glClearColor 0, 0, 0, 1
  105.     _glClear _GL_COLOR_BUFFER_BIT OR _GL_DEPTH_BUFFER_BIT
  106.  
  107.  
  108.     _glMatrixMode _GL_PROJECTION
  110.     _gluPerspective 60, _WIDTH / _HEIGHT, 0.01, 10.0
  111.  
  112.     _glRotatef SIN(mov) * 20, 1, 0, 0 'rotating x-axis a bit, just to get Depth effect.
  113.  
  114.  
  115.     _glMatrixMode _GL_MODELVIEW
  117.  
  118.     'rendering the rain
  119.     FOR i = 0 TO UBOUND(matrixRain)
  120.         n = LEN(matrixRain(i).strData)
  121.         FOR j = 1 TO n
  122.             ca$ = MID$(matrixRain(i).strData, j, 1)
  123.             'selecting texture on the basis of ascii code.
  124.             _glBindTexture _GL_TEXTURE_2D, matrixRainTex(ASC(ca$) - 48)
  125.             _glBegin _GL_QUADS
  126.             _glTexCoord2f 0, 1
  127.             _glVertex3f matrixRain(i).x - matRainWidth, matrixRain(i).y - matRainHeight + 2 * (j - 1) * matRainHeight, matrixRain(i).z
  128.             _glTexCoord2f 0, 0
  129.             _glVertex3f matrixRain(i).x - matRainWidth, matrixRain(i).y + matRainHeight + 2 * (j - 1) * matRainHeight, matrixRain(i).z
  130.             _glTexCoord2f 1, 0
  131.             _glVertex3f matrixRain(i).x + matRainWidth, matrixRain(i).y + matRainHeight + 2 * (j - 1) * matRainHeight, matrixRain(i).z
  132.             _glTexCoord2f 1, 1
  133.             _glVertex3f matrixRain(i).x + matRainWidth, matrixRain(i).y - matRainHeight + 2 * (j - 1) * matRainHeight, matrixRain(i).z
  134.             _glEnd
  135.         NEXT
  136.     NEXT
  137.  
  138.     _glFlush
  140.  
  141. 'taken from p5js.bas
  142. 'https://bit.ly/p5jsbas
  143. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  144.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  146.  
  147.  
  148. FUNCTION p5random! (mn!, mx!)
  149.     IF mn! > mx! THEN
  150.         SWAP mn!, mx!
  151.     END IF
  152.     p5random! = RND * (mx! - mn!) + mn!
  154.  

Run the code & have fun. :)
Title: Re: Moving into the Matrix Rain
Post by: Petr on June 23, 2019, 07:49:09 am
Very nice, Ashish!
Title: Re: Moving into the Matrix Rain
Post by: bplus on June 23, 2019, 08:40:41 am
Wow Ashish! nice work!

You could probably do a Star Wars crawl with 10 layers!
Title: Re: Moving into the Matrix Rain
Post by: johnno56 on June 23, 2019, 09:11:38 am
Nice one Neo...
Title: Re: Moving into the Matrix Rain
Post by: FellippeHeitor on June 23, 2019, 09:19:49 am
Wow! Just wow! 👏👏👏👏👏👏
Title: Re: Moving into the Matrix Rain
Post by: Ashish on June 23, 2019, 10:30:27 am
@Petr, @Bplus, @Johnno56, @FellippeHeitor
Thanks!!
Title: Re: Moving into the Matrix Rain
Post by: Qwerkey on June 23, 2019, 11:09:35 am
Ashish, I echo my esteemed colleagues in their praise.  Your mastery of OPEN_GL is to be envied (I certainly do!).  You remind me that I promised myself to learn some OPEN_GL (from your tutorials), but I seem content to stay in the simple 2D world (or possibly _MAPTRIANGLE(3D) on rare occasions).
Title: Re: Moving into the Matrix Rain
Post by: TempodiBasic on June 23, 2019, 02:15:34 pm
@Qwerkey
don't mind it up! Give time to the time, here you must follow your flow, not a work timetable with checkpoints.
Think about me that I play chess from when I was fifteen and I have  always promised to me to go on in my attitute until to get the master level (about 2000-2200 ELO) and for now I range always about 1300(+-100)ELO . :-)
Title: Re: Moving into the Matrix Rain
Post by: TempodiBasic on June 23, 2019, 02:16:44 pm
@Ashish
Hi I find it cool! Very Cool!
And I'm waiting for when you let me navigate into the matrix with keyboard input...
Title: Re: Moving into the Matrix Rain
Post by: SMcNeill on June 23, 2019, 04:18:41 pm
Question:  Is the min/max check really needed in the function?


FUNCTION p5random! (mn!, mx!)
    IF mn! > mx! THEN
        SWAP mn!, mx!
    END IF
    p5random! = RND * (mx! - mn!) + mn!
END FUNCTION

Let’s say I send it the values 6,1 to generate a number from 1 to 6.  Let’s pseudo-solve it, without the swap.

p5random! = RND * (mx! - mn!) + mn!

P5 = RND * (1 - 6) + 6
P5 = RND * (-5) + 6

A random number will be generated from 0 to -4.9999999 (RND * -5).  Add 6 to that and we get a value between 6 and 1.0000001.

Swapping the values give a return range between 1 and 5.9999999, which is subtly different, but is that difference worth the conditional check inside a function which gets called multiple times in a loop?  Why bother with the speed bump in the program — especially since it just reduces possible functionality, in case the user might like to get results between 6 and 1, instead of between 1 and 6.

When it comes to this type of error-checking, I’d rather ignore  it, and trust it won’t make much difference even inside a program where the values accidentally get swapped.  No need to add automatic checks which I can manually code for, when truly necessary, myself. 

*********************

With that said, I doubt changing it would make much actual difference in execution speed here.  The values are hard-coded and the min is always less than the max, so that SWAP never actually takes place for us.  A single IF check takes very little time to execute, and without any swapping going on (Which can slow down performance by shuffling memory values.), the change in speed is going to be rather small...

(But, as Rho pointed out with the error-checking with arrays and $CHECKING:OFF, that minute delay can add considerable lag to performance, if called multiple times in large, inner loops.)

I’m just curious if it’s really necessary, or if it might be something you’d want to remove from the p5random function, since the variance in the results is so small, and since the check actually swaps values so rarely.  (In this program, it doesn’t swap them at all.)
Title: Re: Moving into the Matrix Rain
Post by: Ashish on June 24, 2019, 02:57:01 am
Thanks TempodiBasic, Qwerky. Qwerky, I'm very sad that I'm not able to work a lot on this. You see I also code less now. The reason
is that now I'm in 11th standard. This is the crucial stage of my education. So, I'm focussing on that. Well, don't worry. I will definitely
complete the tutorials stuff in future.

@Steve
Yes, you are absolutely right. I didn't thought for about this in depth. BTW, The function was coded by FellippeHeitor. You can ask from him.
Title: Re: Moving into the Matrix Rain
Post by: Ashish on June 25, 2019, 11:53:23 am
Quote from: TempodiBasic on June 23, 2019, 02:16:44 pm
@Ashish
Hi I find it cool! Very Cool!
And I'm waiting for when you let me navigate into the matrix with keyboard input...
Here it is -
W/w for moving forward.
S/s for moving backward.
A/a for moving left.
D/d for moving right.
Code: QB64: [Select]
  1. 'Moving into the Matrix Rain
  2. 'MOD : Supports navigation from keyboard. For TempodiBasic (25 Jun, 2019)
  3. 'By Ashish Kushwaha
  4. '23 Jun, 2019
  5. '
  6. 'Inspire by B+ Matrix Rain.
  7. _TITLE "Moving into the Matrix Rain"
  8.  
  10.  
  11. SCREEN _NEWIMAGE(800, 600, 32)
  12.  
  13. TYPE matRain
  14.     x AS SINGLE 'x location
  15.     y AS SINGLE 'y location
  16.     z AS SINGLE 'z location
  17.     ay AS SINGLE 'rain velocity
  18.     strData AS STRING 'string data of each matrix rain
  20.  
  21. Type location
  22.         x as single
  23.         ' y as single
  24.         z as single
  26.  
  27. DIM SHARED charImg(74) AS LONG, matRainWidth, matRainHeight 'ascii char from 48 to 122, i.e, total 75 type of chars
  28. DIM SHARED glAllow AS _BYTE, matrixRain(700) AS matRain, matrixRainTex(74) AS LONG
  29. dim shared currLoc as location
  30.  
  31. matRainWidth = _FONTWIDTH * 0.005
  32. matRainHeight = _FONTHEIGHT * 0.005
  33. CLS , _RGB32(255)
  35. FOR i = 0 TO 74
  36.     charImg(i) = _NEWIMAGE(_FONTWIDTH * 5, _FONTHEIGHT * 5, 32)
  37.     _DEST tmp&
  38.     CLS , _RGBA(0, 0, 0, 0)
  39.     COLOR _RGB32(0, 255, 0), 1
  40.     _PRINTSTRING (0, 0), CHR$(i + 48)
  41.     _DEST charImg(i)
  42.     _PUTIMAGE , tmp&
  43.     _DEST 0
  45.  
  46.  
  47. glAllow = -1
  48.        
  50.         currLoc.z = 0 : currLoc.x = 0
  51.        
  52.         if _keydown(asc("w")) or _keydown(asc("W")) then currLoc.z = -1
  53.         if _keydown(asc("s")) or _keydown(asc("S")) then currLoc.z = 1
  54.         if _keydown(asc("a")) or _keydown(asc("A")) then currLoc.x = -1
  55.         if _keydown(asc("d")) or _keydown(asc("D")) then currLoc.x = 1
  56.        
  57.     FOR i = 0 TO UBOUND(matrixRain)
  58.         matrixRain(i).y = matrixRain(i).y - matrixRain(i).ay
  59.         IF RND > 0.9 THEN
  60.             d$ = ""
  61.             FOR k = 1 TO LEN(matrixRain(i).strData)
  62.                 d$ = d$ + CHR$(48 + p5random(0, 74)) 'change the character of rain randomly by a chance of 10%
  63.             NEXT
  64.             matrixRain(i).strData = d$
  65.         END IF
  66.         ' matrixRain(i).z = matrixRain(i).z + 0.00566 'move into the rain
  67.                 if currLoc.z = -1 then matrixRain(i).z = matrixRain(i).z + 0.00766
  68.                 if currLoc.z = 1 then matrixRain(i).z = matrixRain(i).z - 0.00766
  69.                 if currLoc.x = -1 then matrixRain(i).x = matrixRain(i).x + 0.00766
  70.                 if currLoc.x = 1 then matrixRain(i).x = matrixRain(i).x - 0.00766
  71.                
  72.         IF matrixRain(i).z > 0.1 or matrixRain(i).z<-8 or matrixRain(i).x>3 or matrixRain(I).x<-3 THEN 'when behind screen
  73.             matrixRain(i).x = p5random(-3, 3)
  74.             matrixRain(i).y = p5random(2, 3.7)
  75.             matrixRain(i).z = map((i / UBOUND(matrixRain)), 0, 1, -8, -0.2)
  76.             matrixRain(i).ay = p5random(0.006, 0.02)
  77.         END IF
  78.     NEXT
  79.     _LIMIT 60
  81.  
  82. SUB _GL ()
  83.     STATIC glInit
  84.     IF NOT glAllow THEN EXIT SUB
  85.  
  86.     IF glInit = 0 THEN
  87.         glInit = 1
  88.  
  89.         FOR i = 0 TO UBOUND(matrixRainTex) 'create texture for each ascii character
  90.             _glGenTextures 1, _OFFSET(matrixRainTex(i))
  91.  
  92.             DIM m AS _MEM
  93.             m = _MEMIMAGE(charImg(i))
  94.  
  95.             _glBindTexture _GL_TEXTURE_2D, matrixRainTex(i)
  96.             _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGBA, _WIDTH(charImg(i)), _HEIGHT(charImg(i)), 0, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, m.OFFSET
  97.  
  98.             _MEMFREE m
  99.  
  100.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_NEAREST
  101.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_NEAREST
  102.             _FREEIMAGE charImg(i)
  103.         NEXT
  104.  
  105.         FOR i = 0 TO UBOUND(matrixRain) 'initialization
  106.             n = p5random(1, 15)
  107.             FOR j = 1 TO n
  108.                 v$ = CHR$(p5random(48, 122))
  109.                 matrixRain(i).strData = matrixRain(i).strData + v$
  110.             NEXT
  111.             matrixRain(i).x = p5random(-3, 3)
  112.             matrixRain(i).y = p5random(2, 3.7)
  113.             matrixRain(i).z = map((i / UBOUND(matrixRain)), 0, 1, -8, -0.2)
  114.             matrixRain(i).ay = p5random(0.006, 0.02)
  115.         NEXT
  116.  
  117.         _glViewport 0, 0, _WIDTH, _HEIGHT
  118.     END IF
  119.  
  120.     _glEnable _GL_BLEND 'enabling necessary stuff
  121.     _glEnable _GL_DEPTH_TEST
  122.     _glEnable _GL_TEXTURE_2D
  123.  
  124.  
  125.     _glClearColor 0, 0, 0, 1
  126.     _glClear _GL_COLOR_BUFFER_BIT OR _GL_DEPTH_BUFFER_BIT
  127.  
  128.  
  129.     _glMatrixMode _GL_PROJECTION
  131.     _gluPerspective 60, _WIDTH / _HEIGHT, 0.01, 10.0
  132.  
  133.  
  134.     _glMatrixMode _GL_MODELVIEW
  136.  
  137.     'rendering the rain
  138.     FOR i = 0 TO UBOUND(matrixRain)
  139.         n = LEN(matrixRain(i).strData)
  140.         FOR j = 1 TO n
  141.             ca$ = MID$(matrixRain(i).strData, j, 1)
  142.             'selecting texture on the basis of ascii code.
  143.             _glBindTexture _GL_TEXTURE_2D, matrixRainTex(ASC(ca$) - 48)
  144.             _glBegin _GL_QUADS
  145.             _glTexCoord2f 0, 1
  146.             _glVertex3f matrixRain(i).x - matRainWidth, matrixRain(i).y - matRainHeight + 2 * (j - 1) * matRainHeight, matrixRain(i).z
  147.             _glTexCoord2f 0, 0
  148.             _glVertex3f matrixRain(i).x - matRainWidth, matrixRain(i).y + matRainHeight + 2 * (j - 1) * matRainHeight, matrixRain(i).z
  149.             _glTexCoord2f 1, 0
  150.             _glVertex3f matrixRain(i).x + matRainWidth, matrixRain(i).y + matRainHeight + 2 * (j - 1) * matRainHeight, matrixRain(i).z
  151.             _glTexCoord2f 1, 1
  152.             _glVertex3f matrixRain(i).x + matRainWidth, matrixRain(i).y - matRainHeight + 2 * (j - 1) * matRainHeight, matrixRain(i).z
  153.             _glEnd
  154.         NEXT
  155.     NEXT
  156.  
  157.     _glFlush
  159.  
  160. 'taken from p5js.bas
  161. 'https://bit.ly/p5jsbas
  162. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  163.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  165.  
  166.  
  167. FUNCTION p5random! (mn!, mx!)
  168. '    IF mn! > mx! THEN
  169. '        SWAP mn!, mx!
  170. '    END IF
  171.     p5random! = RND * (mx! - mn!) + mn!
  173.  
  174.  
Title: Re: Moving into the Matrix Rain
Post by: TempodiBasic on June 25, 2019, 07:40:04 pm
Hi Ashish
very cool!

I find fantastic to move into the wood of falling letters...
and Neo has revelead to me the secret to win the Matrix....

If do you want to know it  read in the mirror the next sentence.

!etunimarofgnihtonoD

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

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.
Title: Re: Moving into the Matrix Rain
Post by: FellippeHeitor on June 26, 2019, 07:45:51 am
Quote from: [banned user] on June 26, 2019, 06:32:22 am
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.
Title: Re: Star Wars Crawl
Post by: Ashish on June 26, 2019, 09:10:53 am
Quote from: [banned user] on June 26, 2019, 06:32:22 am
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?

Quote from: TempodiBasic on June 26, 2019, 07:30:46 am
...
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"
  21.  
  22. FOR i = 0 TO UBOUND(lines$)
  23.     READ a$
  24.     lines$(i) = a$
  26.  
  27. COLOR _RGB(0, 0, 255)
  28. centerPrint "A long time ago in galaxy far,", _WIDTH, 280
  29. centerPrint "far away...", _WIDTH, 308
  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
  36. _PUTIMAGE (_WIDTH / 2 - _WIDTH(starWars&) * 3, _HEIGHT / 2 - _HEIGHT(starWars&) * 3)-STEP(_WIDTH(starWars&) * 6, _HEIGHT(starWars&) * 6), starWars&
  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
  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
  51.  
  52. glAllow = -1
  53. COLOR _RGB(255, 220, 0), _RGBA(0, 0, 0, 0)
  54. y = _HEIGHT(text&)+10
  55.  
  57.  
  58.     _DEST text&
  59.         _putimage (0,y),text2&
  60.     y = y - 1
  61.     _LIMIT 30
  62. LOOP UNTIL y < -_HEIGHT(text2&)-10
  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$
  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
  116.     _gluPerspective 60.0, _WIDTH / _HEIGHT, 0.01, 10
  117.  
  118.     _glMatrixMode _GL_MODELVIEW
  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
  136.  
  137.  
Title: Re: Moving into the Matrix Rain
Post by: bplus on June 26, 2019, 10:36:35 am
Hi Ashish,

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

Very nice once again. :)
Title: Re: Moving into the Matrix Rain
Post by: Ashish on June 26, 2019, 11:40:54 am
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.
Title: Re: Moving into the Matrix Rain
Post by: OldMoses on July 01, 2019, 06:11:07 pm
That was great, I found myself leaning back and forth...
Text Only | Text with Attachments