Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Ashish on June 12, 2018, 05:45:28 am

Title: Cube Plasma
Post by: Ashish 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.
Title: Re: Cube Plasma
Post by: bplus on June 12, 2018, 10:32:27 am
Wow! nice one Ashish!
Title: Re: Cube Plasma
Post by: Petr on June 12, 2018, 10:44:43 am
Very nice work, Ashish!
Title: Re: Cube Plasma
Post by: Ashish on June 12, 2018, 11:38:49 am
Thank you, Bplus and Petr! :)
Title: Re: Cube Plasma
Post by: FellippeHeitor on June 12, 2018, 11:50:15 am
Wow, dynamic texture! This is gorgeous, Ashish.
Title: Re: Cube Plasma
Post by: _vince 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.
Title: Re: Cube Plasma
Post by: Ashish 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... :)
Title: Re: Cube Plasma
Post by: bplus 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).
Title: Re: Cube Plasma
Post by: Petr 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!
Title: Re: Cube Plasma
Post by: Ashish on June 13, 2018, 10:05:52 am
+Petr
Amazing! Dynamic texturing is really cool thing to play with. :D
Title: Re: Cube Plasma
Post by: bplus on June 13, 2018, 10:06:56 am
Hi Petr,

Is the library "help" commonly found somewhere?
Title: Re: Cube Plasma
Post by: Petr on June 13, 2018, 10:09:07 am
Hi Bplus, is in ZIP file. Copy it to your QB64 dir.
Title: Re: Cube Plasma
Post by: FellippeHeitor 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.
Title: Re: Cube Plasma
Post by: bplus 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:
Title: Re: Cube Plasma
Post by: Petr 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.
Title: Re: Cube Plasma
Post by: bplus on June 13, 2018, 11:21:04 am
Hi Petr,

Don't worry, it's nice demo I can see why you want to show it off.
Title: Re: Cube Plasma
Post by: Ashish on June 14, 2018, 04:55:57 am
I don't know how a 3D plasma actually look like.
Maybe it looks like this -

Code: QB64: [Select]
  1. '3D plasma, coded by Ashish  14 June, 2018
  2. 'Twitter : @KingOfCoders
  3. 'http://lodev.org/cgtutor/plasma.html
  4.  
  5. _TITLE "3D Plasma"
  6. SCREEN _NEWIMAGE(600, 600, 32)
  7.  
  8.  
  10.     'for camera
  11.     SUB gluLookAt (BYVAL eyeX#, BYVAL eyeY#, BYVAL eyeZ#, BYVAL centerX#, BYVAL centerY#, BYVAL centerZ#, BYVAL upX#, BYVAL upY#, BYVAL upZ#)
  13.  
  14. DIM SHARED mapSize
  15. mapSize = 200
  16. DIM SHARED glAllow AS _BYTE, textureImage&(258), tmp_buffer_image&
  17. DIM SHARED tmp_height_map&, height_map_buffer AS _MEM 'New height maps
  18.  
  19. tmp_buffer_image& = _NEWIMAGE(mapSize, mapSize, 32)
  20. tmp_height_map& = _NEWIMAGE(mapSize, mapSize, 32) 'this image will be treated as height map
  21. height_map_buffer = _MEMIMAGE(tmp_height_map&) 'the data in above image will access by this _MEM buffer
  22.  
  23.  
  24. _DEST tmp_buffer_image&
  25. 'storing calculation in memory for faster rendering
  26. DIM sin1(_WIDTH - 1, _HEIGHT - 1), sin2(_WIDTH - 1, _HEIGHT - 1), sin3(_WIDTH - 1, _HEIGHT - 1)
  27. FOR y = 0 TO _HEIGHT - 1
  28.     FOR x = 0 TO _WIDTH - 1
  29.         sin1(x, y) = SIN(SQR(x ^ 2 + y ^ 2) * .09)
  30.         sin2(x, y) = SIN(y * .03)
  31.         sin3(x, y) = COS(((_WIDTH / 2 - x) ^ 2 + (_HEIGHT / 2 - y) ^ 2) ^ .5 * .07)
  32. NEXT x, y
  33.  
  35.     _DEST 0
  36.     CLS
  37.     PRINT "Generating Textures "; f; "/"; UBOUND(textureImage&) - 1
  38.     f = f + 1
  39.     FOR y = 0 TO _HEIGHT(tmp_buffer_image&) - 1
  40.         FOR x = 0 TO _WIDTH(tmp_buffer_image&) - 1
  41.             col = sin1(x, y) * 64 + sin2(x, y) * 64 + sin3(x, y) * 64 + 255 + f
  42.             col2 = col MOD 255
  43.             _DEST tmp_buffer_image&
  44.             PSET (x, y), hsb(col2, 255, 128, 255)
  45.     NEXT x, y
  46.     textureImage&(f) = _COPYIMAGE(tmp_buffer_image&)
  47. LOOP UNTIL f > UBOUND(textureImage&) - 1
  49. _FREEIMAGE tmp_buffer_image&
  50.  
  51.  
  53.  
  54. _DEST tmp_height_map&
  55. glAllow = -1
  57.     f = f + 1
  58.     FOR y = 0 TO _HEIGHT - 1
  59.         FOR x = 0 TO _WIDTH - 1
  60.             col = sin1(x, y) * 64 + sin2(x, y) * 64 + sin3(x, y) * 64 + 255 + f
  61.             col = SIN(col * .01) * 64 + 128
  62.             PSET (x, y), _RGB(col, col, col)
  63.     NEXT x, y
  65.  
  66. SUB _GL ()
  67.     STATIC cubeTexture&(257), glSetup
  68.     STATIC aspect#, frame
  69.  
  70.  
  71.     IF NOT glAllow THEN EXIT SUB
  72.  
  73.     IF NOT glSetup THEN
  74.         glSetup = -1
  75.         _glViewport 0, 0, _WIDTH, _HEIGHT
  76.         'Convert all images to GL textures
  77.         FOR i = 1 TO UBOUND(textureImage&) - 1
  78.             _glGenTextures 1, _OFFSET(cubeTexture&(i))
  79.             DIM m AS _MEM
  80.             m = _MEMIMAGE(textureImage&(i))
  81.  
  82.             _glBindTexture _GL_TEXTURE_2D, cubeTexture&(i)
  83.             _glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGB, _WIDTH(textureImage&(i)), _HEIGHT(textureImage&(i)), 0, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, m.OFFSET
  84.  
  85.             _MEMFREE m
  86.  
  87.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_LINEAR
  88.             _glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_NEAREST
  89.             _FREEIMAGE textureImage&(i)
  90.         NEXT
  91.         aspect# = _WIDTH / _HEIGHT
  92.     END IF
  93.  
  94.     _glEnable _GL_TEXTURE_2D
  95.     _glEnable _GL_DEPTH_TEST
  96.  
  97.     _glMatrixMode _GL_PROJECTION
  99.     _gluPerspective 45.0, aspect#, 1, 100
  100.  
  101.     _glMatrixMode _GL_MODELVIEW
  103.  
  104.     _glShadeModel _GL_SMOOTH
  105.  
  106.     gluLookAt 0, 0, 4, 0, 0, 0, 0, 1, 0
  107.  
  108.     i = (frame MOD (UBOUND(textureImage&) - 1)) + 1
  109.  
  110.     'select our texture
  111.     _glBindTexture _GL_TEXTURE_2D, cubeTexture&(i)
  112.  
  113.     'rotation
  114.     _glRotatef -45, 1, 0, 0
  115.  
  116.     drawPlane 2, 2, .05, height_map_buffer
  117.  
  118.     frame = frame + 1
  120.  
  121. SUB drawPlane (w, h, detail, height_map AS _MEM)
  122.  
  123.     'texture coordinates
  124.     tx1 = 0: ty1 = 0
  125.     tx2 = 0: ty2 = 0
  126.  
  127.     depth1 = 0 'used for depth effect by using height maps
  128.     depth2 = 0
  129.  
  130.     hx1% = 0: hy1% = 0
  131.     hx2% = 0: hy2% = 0
  132.     _glBegin _GL_TRIANGLE_STRIP
  133.     FOR y = -h / 2 TO h / 2 - detail STEP detail
  134.         FOR x = -w / 2 TO w / 2 - detail STEP detail
  135.             tx1 = map(x, -w / 2, w / 2, 0, 1)
  136.             ty1 = map(y, -h / 2, h / 2, 1, 0)
  137.             ty2 = map(y + detail, -h / 2, h / 2, 1, 0)
  138.  
  139.             hx1% = map(tx1, 0, 1, 1, mapSize - 1)
  140.             hy1% = map(ty1, 0, 1, mapSize - 1, 1)
  141.             hy2% = map(ty2, 0, 1, mapSize - 1, 1)
  142.  
  143.             depth1 = _MEMGET(height_map, height_map.OFFSET + memImageIndex(hx1%, hy1%, mapSize), _UNSIGNED _BYTE) / 400
  144.             depth2 = _MEMGET(height_map, height_map.OFFSET + memImageIndex(hx1%, hy2%, mapSize), _UNSIGNED _BYTE) / 400
  145.  
  146.             _glTexCoord2f tx1, ty1
  147.             _glVertex3f x, y, depth1
  148.             _glTexCoord2f tx1, ty2
  149.             _glVertex3f x, y + detail, depth2
  150.         NEXT x
  151.     NEXT y
  152.  
  153.     _glEnd
  154.  
  156.  
  157. FUNCTION memImageIndex& (x, y, w)
  158.     memImageIndex& = (x + y * w) * 4
  160.  
  161.  
  162. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  163.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  165.  
  166. 'method adapted form http://stackoverflow.com/questions/4106363/converting-rgb-to-hsb-colors
  167. FUNCTION hsb~& (__H AS _FLOAT, __S AS _FLOAT, __B AS _FLOAT, A AS _FLOAT)
  168.     DIM H AS _FLOAT, S AS _FLOAT, B AS _FLOAT
  169.  
  170.     H = map(__H, 0, 255, 0, 360)
  171.     S = map(__S, 0, 255, 0, 1)
  172.     B = map(__B, 0, 255, 0, 1)
  173.  
  174.     IF S = 0 THEN
  175.         hsb~& = _RGBA32(B * 255, B * 255, B * 255, A)
  176.         EXIT FUNCTION
  177.     END IF
  178.  
  179.     DIM fmx AS _FLOAT, fmn AS _FLOAT
  180.     DIM fmd AS _FLOAT, iSextant AS INTEGER
  181.     DIM imx AS INTEGER, imd AS INTEGER, imn AS INTEGER
  182.  
  183.     IF B > .5 THEN
  184.         fmx = B - (B * S) + S
  185.         fmn = B + (B * S) - S
  186.     ELSE
  187.         fmx = B + (B * S)
  188.         fmn = B - (B * S)
  189.     END IF
  190.  
  191.     iSextant = INT(H / 60)
  192.  
  193.     IF H >= 300 THEN
  194.         H = H - 360
  195.     END IF
  196.  
  197.     H = H / 60
  198.     H = H - (2 * INT(((iSextant + 1) MOD 6) / 2))
  199.  
  200.     IF iSextant MOD 2 = 0 THEN
  201.         fmd = (H * (fmx - fmn)) + fmn
  202.     ELSE
  203.         fmd = fmn - (H * (fmx - fmn))
  204.     END IF
  205.  
  206.     imx = _ROUND(fmx * 255)
  207.     imd = _ROUND(fmd * 255)
  208.     imn = _ROUND(fmn * 255)
  209.  
  210.     SELECT CASE INT(iSextant)
  211.         CASE 1
  212.             hsb~& = _RGBA32(imd, imx, imn, A)
  213.         CASE 2
  214.             hsb~& = _RGBA32(imn, imx, imd, A)
  215.         CASE 3
  216.             hsb~& = _RGBA32(imn, imd, imx, A)
  217.         CASE 4
  218.             hsb~& = _RGBA32(imd, imn, imx, A)
  219.         CASE 5
  220.             hsb~& = _RGBA32(imx, imn, imd, A)
  221.         CASE ELSE
  222.             hsb~& = _RGBA32(imx, imd, imn, A)
  223.     END SELECT
  224.  
  226.  
  227.  
Title: Re: Cube Plasma
Post by: bplus on June 14, 2018, 09:33:04 am
Another great effect!

Ashish, you changed your avatar!
Title: Re: Cube Plasma
Post by: Ashish on June 14, 2018, 09:39:58 am
Quote from: bplus on June 14, 2018, 09:33:04 am
Another great effect!

Ashish, you changed your avatar!
Thanks bplus! Yeah, I changed my avatar. Is my new avatar is not looking good? If yes, I will bring back my old avatar.
Title: Re: Cube Plasma
Post by: bplus on June 14, 2018, 09:41:55 am
It is fine example of infinity! I wish I could see a bigger version. Did you make it?
Title: Re: Cube Plasma
Post by: Ashish on June 14, 2018, 09:51:35 am
Quote from: bplus on June 14, 2018, 09:41:55 am
It is fine example of infinity! I wish I could see a bigger version. Did you make it?
Nope! I'm not a good artist. This image is from here - http://tharyn.me/wp-content/uploads/2013/12/Infinity_Symbol.jpg
Title: Re: Cube Plasma
Post by: bplus on June 14, 2018, 01:04:34 pm
I try:
Code: QB64: [Select]
  1. _TITLE "Infinity B+ started 2018-06-14 mod of Vince Hour Glass"
  2. CONST xmax = 800
  3. CONST ymax = 600
  4.  
  5. SCREEN _NEWIMAGE(xmax, ymax, 32)
  6. _SCREENMOVE 360, 60
  7. pi = _ACOS(-1)
  8. p2 = pi * 2
  10.     b = b + .01
  11.     IF b > p2 THEN b = 0
  12.     FOR r = 40 TO 1 STEP -1
  13.         COLOR _RGB(r * (6 * SIN(b)), r * 6 * (1 - SIN(b)), 0)
  14.         fcirc 400 + 300 * COS(b), 300 + 150 * SIN(2 * b), r
  15.     NEXT
  16.     _DISPLAY
  18.  
  19. 'Steve McNeil's  copied from his forum  note: Radius is too common a name ;-)
  20. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
  21.     DIM subRadius AS LONG, RadiusError AS LONG
  22.     DIM X AS LONG, Y AS LONG
  23.  
  24.     subRadius = ABS(R)
  25.     RadiusError = -subRadius
  26.     X = subRadius
  27.     Y = 0
  28.  
  29.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
  30.  
  31.     ' Draw the middle span here so we don't draw it twice in the main loop,
  32.     ' which would be a problem with blending turned on ;-)
  33.     LINE (CX - X, CY)-(CX + X, CY), , BF
  34.  
  35.     WHILE X > Y
  36.         RadiusError = RadiusError + Y * 2 + 1
  37.         IF RadiusError >= 0 THEN
  38.             IF X <> Y + 1 THEN
  39.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
  40.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
  41.             END IF
  42.             X = X - 1
  43.             RadiusError = RadiusError - X * 2
  44.         END IF
  45.         Y = Y + 1
  46.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
  47.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
  48.     WEND
  50.  
  51.  
Title: Re: Cube Plasma
Post by: Ashish on June 14, 2018, 09:05:41 pm
It's nice bplus. I didn't know that you were talking about this. :)
Title: Re: Cube Plasma
Post by: _vince on June 15, 2018, 08:53:20 am
@bplus, changing the sin multiplier gives it a thinner profile, like 100*sin

Here's the program in freebasic, fyi:
Code: QB64: [Select]
  1. #lang "fblite"
  2.  
  3. defsng a-z
  4.  
  5. CONST xmax = 800
  6. CONST ymax = 600
  7.  
  8. declare SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
  9.  
  10. screenres xmax, ymax, 32
  11.  
  12. pi = ACOS(-1)
  13. p2 = pi * 2
  15.     b = b + .01
  16.     IF b > p2 THEN b = 0
  17.     FOR r = 40 TO 1 STEP -1
  18.         COLOR rgb(r * (6 * SIN(b)), r * 6 * (1 - SIN(b)), 0)
  19.         fcirc 400 + 300 * COS(b), 300 + 100 * SIN(2 * b), int(r)
  20.     NEXT
  21.         screensync
  23.  
  24. 'Steve McNeil's  copied from his forum  note: Radius is too common a name ;-)
  25. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
  26.     DIM subRadius AS LONG, RadiusError AS LONG
  27.     DIM X AS LONG, Y AS LONG
  28.  
  29.     subRadius = ABS(R)
  30.     RadiusError = -subRadius
  31.     X = subRadius
  32.     Y = 0
  33.  
  34.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
  35.  
  36.     ' Draw the middle span here so we don't draw it twice in the main loop,
  37.     ' which would be a problem with blending turned on ;-)
  38.     LINE (CX - X, CY)-(CX + X, CY), , BF
  39.  
  40.     WHILE X > Y
  41.         RadiusError = RadiusError + Y * 2 + 1
  42.         IF RadiusError >= 0 THEN
  43.             IF X <> Y + 1 THEN
  44.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
  45.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
  46.             END IF
  47.             X = X - 1
  48.             RadiusError = RadiusError - X * 2
  49.         END IF
  50.         Y = Y + 1
  51.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
  52.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
  53.     WEND
  55.  
Title: Re: Cube Plasma
Post by: bplus on June 15, 2018, 10:16:04 am
Hi V,

Watch that language! :D

Here is a mod, I do like shape better. Somewhere between 80 and 100...

Code: QB64: [Select]
  1. _TITLE "Infinity B+ started 2018-06-15 mod of mod of Vince Hour Glass"
  2. CONST xmax = 800
  3. CONST ymax = 600
  4.  
  5. SCREEN _NEWIMAGE(xmax, ymax, 32)
  6. _SCREENMOVE 360, 60
  7. pi = _ACOS(-1)
  8. p2 = pi * 2
  9. FOR r = 40 TO 0 STEP -1
  10.     COLOR _RGBA32(255 - r * 4, 255 - r * 4, 0, 1)
  11.     FOR a = 0 TO p2 STEP .01
  12.         fcirc 400 + 300 * COS(a), 300 + 80 * SIN(2 * a), r
  13.     NEXT
  15. FOR b = 0 TO p2 STEP .001
  16.     b = b + .001
  17.     IF b > p2 THEN b = 0
  18.     COLOR _RGB(255 * SIN(b), 255 * (1 - SIN(b)), 0)
  19.     fcirc 400 + 300 * COS(b), 300 + 80 * SIN(2 * b), r
  21. PRINT "Press any... "
  25.     b = b + .01
  26.     IF b > p2 THEN b = 0
  27.     FOR r = 40 TO 1 STEP -1
  28.         COLOR _RGB(r * (6 * SIN(b)), r * 6 * (1 - SIN(b)), 0)
  29.         fcirc 400 + 300 * COS(b), 300 + 90 * SIN(2 * b), r
  30.     NEXT
  31.     _DISPLAY
  33.  
  34. 'Steve McNeil's  copied from his forum  note: Radius is too common a name ;-)
  35. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
  36.     DIM subRadius AS LONG, RadiusError AS LONG
  37.     DIM X AS LONG, Y AS LONG
  38.  
  39.     subRadius = ABS(R)
  40.     RadiusError = -subRadius
  41.     X = subRadius
  42.     Y = 0
  43.  
  44.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
  45.  
  46.     ' Draw the middle span here so we don't draw it twice in the main loop,
  47.     ' which would be a problem with blending turned on ;-)
  48.     LINE (CX - X, CY)-(CX + X, CY), , BF
  49.  
  50.     WHILE X > Y
  51.         RadiusError = RadiusError + Y * 2 + 1
  52.         IF RadiusError >= 0 THEN
  53.             IF X <> Y + 1 THEN
  54.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
  55.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
  56.             END IF
  57.             X = X - 1
  58.             RadiusError = RadiusError - X * 2
  59.         END IF
  60.         Y = Y + 1
  61.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
  62.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
  63.     WEND
  65.  
  66.  
Text Only | Text with Attachments