« previous next »
Pages: [1] 2   Go Down

Author Topic: Cube Plasma  (Read 12705 times)

0 Members and 1 Guest are viewing this topic.

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Cube Plasma
« on: June 12, 2018, 05:45:28 am »
Hi everyone! Here's a simple effect of plasma on cube. I have learn about plasma
in detail from here http://lodev.org/cgtutor/plasma.html

Here's the code -
Code: QB64: [Select]
  1. 'Cube plasma, coded by Ashish  6/12/2018
  2. 'Twitter : @KingOfCoders
  3. 'http://lodev.org/cgtutor/plasma.html
  4.  
  5. _TITLE "Cube Plasma"
  6. SCREEN _NEWIMAGE(600, 600, 32)
  7.  
  9.     'for camera
  10.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
  12.  
  13. DIM SHARED glAllow AS _BYTE, textureImage&(258), tmp_buffer_image&
  14. tmp_buffer_image& = _NEWIMAGE(200, 200, 32)
  15.  
  16. _DEST tmp_buffer_image&
  17. 'storing calculation in memory for faster rendering
  18. DIM sin1(_WIDTH - 1, _HEIGHT - 1), sin2(_WIDTH - 1, _HEIGHT - 1), sin3(_WIDTH - 1, _HEIGHT - 1)
  19. FOR y = 0 TO _HEIGHT - 1
  20.     FOR x = 0 TO _WIDTH - 1
  21.         sin1(x, y) = SIN(SQR(x ^ 2 + y ^ 2) * .09)
  22.         sin2(x, y) = SIN(y * .03)
  23.         sin3(x, y) = COS(((_WIDTH / 2 - x) ^ 2 + (_HEIGHT / 2 - y) ^ 2) ^ .5 * .07)
  24. NEXT x, y
  25.  
  27.     _DEST 0
  28.     CLS
  29.     PRINT "Generating Textures "; f; "/"; UBOUND(textureImage&) - 1
  30.     _DEST tmp_buffer_image&
  31.     f = f + 1
  32.     FOR y = 0 TO _HEIGHT - 1
  33.         FOR x = 0 TO _WIDTH - 1
  34.             col = sin1(x, y) * 64 + 64 + sin2(x, y) * 64 + 64 + sin3(x, y) * 64 + 64 + f
  35.             col = col MOD 256
  36.             PSET (x, y), hsb(col, 255, 128, 255)
  37.     NEXT x, y
  38.     textureImage&(f) = _COPYIMAGE(tmp_buffer_image&)
  39. LOOP UNTIL f > UBOUND(textureImage&) - 1
  41. _FREEIMAGE tmp_buffer_image&
  42.  
  43. glAllow = -1
  45.     _LIMIT 30
  47.  
  48. SUB _GL ()
  49.     STATIC cubeTexture&(601), glSetup, aspect#, frame
  50.  
  51.     IF NOT glAllow THEN EXIT SUB
  52.  
  53.     IF NOT glSetup THEN
  54.         glSetup = -1
  55.         _glViewport 0, 0, _WIDTH, _HEIGHT
  56.         'Convert all images to GL textures
  57.         FOR i = 1 TO UBOUND(textureImage&) - 1
  58.             _glGenTextures 1, _OFFSET(cubeTexture&(i))
  59.             DIM m AS _MEM
  60.             m = _MEMIMAGE(textureImage&(i))
  61.  
  62.             _glBindTexture _GL_TEXTURE_2D, cubeTexture&(i)
  63.             _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGB, _WIDTH(textureImage&(i)), _HEIGHT(textureImage&(i)), 0, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, m.OFFSET
  64.  
  65.             _MEMFREE m
  66.  
  67.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
  68.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_NEAREST
  69.             _FREEIMAGE textureImage&(i)
  70.         NEXT
  71.         aspect# = _WIDTH / _HEIGHT
  72.     END IF
  73.  
  74.     _glEnable _GL_TEXTURE_2D
  75.     _glEnable _GL_DEPTH_TEST
  76.  
  77.     _glMatrixMode _GL_PROJECTION
  79.     _gluPerspective 45.0, aspect#, 1, 100
  80.  
  81.     _glMatrixMode _GL_MODELVIEW
  83.  
  84.     gluLookAt 0, 0, 5, 0, 0, 0, 0, 1, 0
  85.  
  86.     i = (frame MOD (UBOUND(textureImage&) - 1)) + 1
  87.     'select our texture
  88.     _glBindTexture _GL_TEXTURE_2D, cubeTexture&(i)
  89.  
  90.     'rotation
  91.     _glRotatef frame * .01 * 120, 1, .5, .3
  92.  
  93.     _glBegin _GL_QUADS
  94.     'front face
  95.     _glTexCoord2f 0, 1
  96.     _glVertex3f -1, 1, 1
  97.     _glTexCoord2f 1, 1
  98.     _glVertex3f 1, 1, 1
  99.     _glTexCoord2f 1, 0
  100.     _glVertex3f 1, -1, 1
  101.     _glTexCoord2f 0, 0
  102.     _glVertex3f -1, -1, 1
  103.     'rear face
  104.     _glTexCoord2f 0, 1
  105.     _glVertex3f -1, 1, -1
  106.     _glTexCoord2f 1, 1
  107.     _glVertex3f 1, 1, -1
  108.     _glTexCoord2f 1, 0
  109.     _glVertex3f 1, -1, -1
  110.     _glTexCoord2f 0, 0
  111.     _glVertex3f -1, -1, -1
  112.     'upward face
  113.     _glTexCoord2f 0, 1
  114.     _glVertex3f -1, 1, -1
  115.     _glTexCoord2f 1, 1
  116.     _glVertex3f 1, 1, -1
  117.     _glTexCoord2f 1, 0
  118.     _glVertex3f 1, 1, 1
  119.     _glTexCoord2f 0, 0
  120.     _glVertex3f -1, 1, 1
  121.     'downward face
  122.     _glTexCoord2f 0, 1
  123.     _glVertex3f -1, -1, -1
  124.     _glTexCoord2f 1, 1
  125.     _glVertex3f 1, -1, -1
  126.     _glTexCoord2f 1, 0
  127.     _glVertex3f 1, -1, 1
  128.     _glTexCoord2f 0, 0
  129.     _glVertex3f -1, -1, 1
  130.     'left face
  131.     _glTexCoord2f 0, 1
  132.     _glVertex3f -1, 1, -1
  133.     _glTexCoord2f 1, 1
  134.     _glVertex3f -1, 1, 1
  135.     _glTexCoord2f 1, 0
  136.     _glVertex3f -1, -1, 1
  137.     _glTexCoord2f 0, 0
  138.     _glVertex3f -1, -1, -1
  139.     'right face
  140.     _glTexCoord2f 0, 1
  141.     _glVertex3f 1, 1, -1
  142.     _glTexCoord2f 1, 1
  143.     _glVertex3f 1, 1, 1
  144.     _glTexCoord2f 1, 0
  145.     _glVertex3f 1, -1, 1
  146.     _glTexCoord2f 0, 0
  147.     _glVertex3f 1, -1, -1
  148.  
  149.     _glEnd
  150.  
  151.     frame = frame + 1
  153.  
  154.  
  155.  
  156. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  157.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  159.  
  160. 'method adapted form http://stackoverflow.com/questions/4106363/converting-rgb-to-hsb-colors
  161. FUNCTION hsb~& (__H AS _FLOAT, __S AS _FLOAT, __B AS _FLOAT, A AS _FLOAT)
  162.     DIM H AS _FLOAT, S AS _FLOAT, B AS _FLOAT
  163.  
  164.     H = map(__H, 0, 255, 0, 360)
  165.     S = map(__S, 0, 255, 0, 1)
  166.     B = map(__B, 0, 255, 0, 1)
  167.  
  168.     IF S = 0 THEN
  169.         hsb~& = _RGBA32(B * 255, B * 255, B * 255, A)
  170.         EXIT FUNCTION
  171.     END IF
  172.  
  173.     DIM fmx AS _FLOAT, fmn AS _FLOAT
  174.     DIM fmd AS _FLOAT, iSextant AS INTEGER
  175.     DIM imx AS INTEGER, imd AS INTEGER, imn AS INTEGER
  176.  
  177.     IF B > .5 THEN
  178.         fmx = B - (B * S) + S
  179.         fmn = B + (B * S) - S
  180.     ELSE
  181.         fmx = B + (B * S)
  182.         fmn = B - (B * S)
  183.     END IF
  184.  
  185.     iSextant = INT(H / 60)
  186.  
  187.     IF H >= 300 THEN
  188.         H = H - 360
  189.     END IF
  190.  
  191.     H = H / 60
  192.     H = H - (2 * INT(((iSextant + 1) MOD 6) / 2))
  193.  
  194.     IF iSextant MOD 2 = 0 THEN
  195.         fmd = (H * (fmx - fmn)) + fmn
  196.     ELSE
  197.         fmd = fmn - (H * (fmx - fmn))
  198.     END IF
  199.  
  200.     imx = _ROUND(fmx * 255)
  201.     imd = _ROUND(fmd * 255)
  202.     imn = _ROUND(fmn * 255)
  203.  
  204.     SELECT CASE INT(iSextant)
  205.         CASE 1
  206.             hsb~& = _RGBA32(imd, imx, imn, A)
  207.         CASE 2
  208.             hsb~& = _RGBA32(imn, imx, imd, A)
  209.         CASE 3
  210.             hsb~& = _RGBA32(imn, imd, imx, A)
  211.         CASE 4
  212.             hsb~& = _RGBA32(imd, imn, imx, A)
  213.         CASE 5
  214.             hsb~& = _RGBA32(imx, imn, imd, A)
  215.         CASE ELSE
  216.             hsb~& = _RGBA32(imx, imd, imn, A)
  217.     END SELECT
  218.  
  220.  
  221.  

EDIT : Code has been clean up.
« Last Edit: June 14, 2018, 04:52:38 am by Ashish »
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Cube Plasma
« Reply #1 on: June 12, 2018, 10:32:27 am »
Wow! nice one Ashish!
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Cube Plasma
« Reply #2 on: June 12, 2018, 10:44:43 am »
Very nice work, Ashish!
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Cube Plasma
« Reply #3 on: June 12, 2018, 11:38:49 am »
Thank you, Bplus and Petr! :)
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

FellippeHeitor

  • Guest
Re: Cube Plasma
« Reply #4 on: June 12, 2018, 11:50:15 am »
Wow, dynamic texture! This is gorgeous, Ashish.
Logged

Offline _vince

  • Seasoned Forum Regular
  • Posts: 422
    • View Profile
Re: Cube Plasma
« Reply #5 on: June 12, 2018, 11:43:41 pm »
Very neat, it took me a while to notice the texture's animated and not an illusion due to the rotation.  A 3D plasma, instead of a 2D plasma on a surface, would be quite neat.
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Cube Plasma
« Reply #6 on: June 13, 2018, 02:40:00 am »
Quote from: FellippeHeitor on June 12, 2018, 11:50:15 am
Wow, dynamic texture! This is gorgeous, Ashish.
Thanks Fellippe! :D

Quote from: v on June 12, 2018, 11:43:41 pm
Very neat, it took me a while to notice the texture's animated and not an illusion due to the rotation.  A 3D plasma, instead of a 2D plasma on a surface, would be quite neat.
Thanks Vince! A 3D plasma ? Interesting... never heard about it before... :)
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Cube Plasma
« Reply #7 on: June 13, 2018, 09:24:47 am »
That is an interesting idea! I have to another look at how plasma effect works (in 2D).
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Cube Plasma
« Reply #8 on: June 13, 2018, 09:28:07 am »
 I just had to try do modification with video ...

Code: QB64: [Select]
  1. 'Cube plasma, coded by Ashish  6/12/2018
  2. 'Twitter : @KingOfCoders
  3. 'http://lodev.org/cgtutor/plasma.html
  4.  
  6.     'for camera
  7.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
  9.  
  11.     SUB initQuadric ()
  12.     SUB drawCylinder ()
  13.     SUB drawDisk ()
  14.     SUB drawSphere ()
  15.     SUB drawCone ()
  16.     SUB drawPartialDisk (BYVAL a AS DOUBLE, BYVAL b AS DOUBLE)
  18.  
  19.  
  20.  
  21. _TITLE "Reply for Ashish"
  22. SCREEN _NEWIMAGE(600, 600, 32)
  23.  
  24. DIM SHARED glAllow AS _BYTE, textureImage&(11), tmp_buffer_image&
  25.  
  26. tmp_buffer_image& = _NEWIMAGE(200, 200, 32)
  27. horse& = _LOADIMAGE("horseU.jpg", 32)
  28.  
  29. TYPE FRAME ' generate to memory correct coordinates (no images!) to play video from source file
  30.     Source AS LONG
  31.     X_Start AS INTEGER
  32.     Y_Start AS INTEGER
  33.     X_End AS INTEGER
  34.     Y_End AS INTEGER
  35.     Index AS _UNSIGNED _BYTE
  37.  
  38. REDIM SHARED OhenVideo(0) AS FRAME
  39. REDIM SHARED Horse(0) AS FRAME
  40.  
  41. VideoLoad Horse(), horse&, 4, 3, 146, 95, 0, 0
  42.  
  45.     f = f + 1
  46.     _DEST tmp_buffer_image&
  47.     _SOURCE tmp_buffer_image&
  48.     CLS
  49.     _DEST tmp_buffer_image&
  50.     IF f < UBOUND(textureImage&) - 1 / 2 THEN VideoPlay OhenVideo(), 100, 100, 1 ELSE VideoPlay Horse(), 100, 100, 1
  51.     textureImage&(f) = _COPYIMAGE(tmp_buffer_image&) 'sem vlozit
  52. LOOP UNTIL f > UBOUND(textureImage&) - 1
  53. n:
  54.  
  55. _DEST tmp_buffer_image&
  56. CLS , _RGB32(22, 22, 249)
  57.  
  58. FOR f = 0 TO 11
  59.     CLS , _RGB32(22, 22, 249)
  60.     VideoPlay Horse(), -5, 25, 1.5 'I have only redirected function output to your virtual screen and it works great!
  61.     _DISPLAY
  62.     textureImage&(f) = _COPYIMAGE(tmp_buffer_image&)
  64.  
  66. _FREEIMAGE tmp_buffer_image&
  67.  
  68. glAllow = -1
  70.     _LIMIT 30 '?
  72.  
  73. SUB VideoLoad (Array() AS FRAME, Source AS LONG, FramesX AS INTEGER, FramesY AS INTEGER, ResFrameX AS INTEGER, ResFrameY AS INTEGER, CorrX AS _BYTE, CorrY AS _BYTE)
  74.     FOR T = 0 TO FramesX * FramesY
  75.         REDIM _PRESERVE Array(T) AS FRAME
  76.         Array(T).Source = Source&
  77.         Array(T).X_Start = X
  78.         Array(T).Y_Start = Y
  79.         Array(T).X_End = X + ResFrameX - CorrX
  80.         Array(T).Y_End = Y + ResFrameY - CorrY
  81.         X = X + ResFrameX + CorrX: IF X > _WIDTH(Source&) THEN X = 0: Y = Y + ResFrameY + CorrY
  82.     NEXT T
  84.  
  85. SUB VideoPlay (array() AS FRAME, X AS INTEGER, Y AS INTEGER, Zoom AS SINGLE)
  86.     IF array(0).Index + 1 > UBOUND(array) THEN array(0).Index = 0 ELSE array(0).Index = array(0).Index + 1
  87.     Frame = array(0).Index
  88.     PosXs = array(Frame).X_Start
  89.     PosXe = array(Frame).X_End
  90.     PosYs = array(Frame).Y_Start
  91.     PosYe = array(Frame).Y_End
  92.     ResX = PosXe - PosXs
  93.     ResY = PosYe - PosYs
  94.     S& = array(Frame).Source&
  95.     _PUTIMAGE (X, Y)-(Zoom * (X + ResX), Zoom * (Y + ResY)), S&, tmp_buffer_image&, (PosXs, PosYs)-(PosXe, PosYe)
  97.  
  98.  
  99. SUB _GL ()
  100.     STATIC cubeTexture&(11), glSetup, aspect#, frame
  101.  
  102.     IF NOT glAllow THEN EXIT SUB
  103.  
  104.     IF NOT glSetup THEN
  105.         glSetup = -1
  106.         _glViewport 0, 0, _WIDTH, _HEIGHT
  107.         'Convert all images to GL textures
  108.         FOR i = 1 TO UBOUND(textureImage&) - 1
  109.             _glGenTextures 1, _OFFSET(cubeTexture&(i))
  110.             DIM m AS _MEM
  111.             m = _MEMIMAGE(textureImage&(i))
  112.  
  113.             _glBindTexture _GL_TEXTURE_2D, cubeTexture&(i)
  114.             _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGB, _WIDTH(textureImage&(i)), _HEIGHT(textureImage&(i)), 0, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, m.OFFSET
  115.             _MEMFREE m
  116.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
  117.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_NEAREST
  118.             _FREEIMAGE textureImage&(i)
  119.         NEXT
  120.         aspect# = _WIDTH / _HEIGHT
  121.         initQuadric
  122.     END IF
  123.  
  124.     _glEnable _GL_TEXTURE_2D
  125.     _glEnable _GL_DEPTH_TEST
  126.  
  127.     _glMatrixMode _GL_PROJECTION
  129.     _gluPerspective 45.0, aspect#, 1, 100
  130.  
  131.     _glMatrixMode _GL_MODELVIEW
  133.  
  134.     gluLookAt 0, 0, 5, 0, 0, 0, 0, 1, 0
  135.     i = (frame MOD (UBOUND(textureImage&) - 1)) + 1
  136.     'select our texture
  137.     _LIMIT 25
  138.     _glBindTexture _GL_TEXTURE_2D, cubeTexture&(i)
  139.     'rotation
  140.     _glRotatef frame * .01 * 120, 1.1, .5, .3
  141.     drawDisk
  142.     frame = frame + 1
  144.  

and works perfectly!
* modifi.zip (Filesize: 609.7 KB, Downloads: 319)
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Cube Plasma
« Reply #9 on: June 13, 2018, 10:05:52 am »
+Petr
Amazing! Dynamic texturing is really cool thing to play with. :D
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Cube Plasma
« Reply #10 on: June 13, 2018, 10:06:56 am »
Hi Petr,

Is the library "help" commonly found somewhere?
missing library.PNG
* missing library.PNG (Filesize: 18.84 KB, Dimensions: 450x689, Views: 385)
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Cube Plasma
« Reply #11 on: June 13, 2018, 10:09:07 am »
Hi Bplus, is in ZIP file. Copy it to your QB64 dir.
Logged

FellippeHeitor

  • Guest
Re: Cube Plasma
« Reply #12 on: June 13, 2018, 10:58:18 am »
Yeah, it was in the zip when I downloaded it too.

BTW, Petr, you can keep libraries in the same folder as your .bas file if you add them with a relative path:

DECLARE LIBRARY "./help"

Otherwise QB64 always looks for them in its own root folder.
« Last Edit: June 13, 2018, 11:00:39 am by FellippeHeitor »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Cube Plasma
« Reply #13 on: June 13, 2018, 11:11:26 am »
Ah that helps! Thanks Fellippe

I was not expecting an help.h file. I saw the Horse.bas and wondered if I got a mod of Cube Plasma.

No, but with line change recommended by Fellippe I did get the code working:
That helps!.PNG
* That helps!.PNG (Filesize: 177.05 KB, Dimensions: 943x606, Views: 405)
« Last Edit: June 13, 2018, 11:13:44 am by bplus »
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Cube Plasma
« Reply #14 on: June 13, 2018, 11:17:38 am »
Fellippe, thank you for the information. Bplus, sorry that the program is out of the Plasma theme. I'm returning to collisions.
Logged
Pages: [1] 2   Go Up
« previous next »