Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on October 09, 2019, 11:25:11 pm

Title: Scrolling Plasma Lines the Movie
Post by: bplus on October 09, 2019, 11:25:11 pm
Code: QB64: [Select]
  1. _TITLE "Scrolling Plasma Lines Mod 1" 'B+ 2019-10-09
  3. CONST xmax = 800, ymax = 600
  4. SCREEN _NEWIMAGE(xmax, ymax, 32)
  5. _SCREENMOVE 300, 40
  6. DIM ln(0 TO ymax) AS _UNSIGNED LONG
  7.  
  8. r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  9. f = xmax / ymax
  11.     IF RND < .01 THEN r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  12.     FOR i = UBOUND(ln) - 1 TO 0 STEP -1
  13.         ln(i + 1) = ln(i)
  14.         LINE (0, i)-STEP(xmax, 0), ln(i + 1)
  15.         LINE (xmax - i * f, 0)-STEP(0, ymax), ln(i + 1)
  16.         LINE (i * f, 0)-STEP(f, ymax), ln(i + 1)
  17.         LINE (0, ymax - i)-STEP(xmax, 0), ln(i + 1)
  18.     NEXT
  19.     ln(0) = _RGB32(127 + 127 * SIN(r * c), 127 + 127 * SIN(g * c), 127 + 127 * SIN(b * c), 40)
  20.     c = c + 1
  21.     _DISPLAY
  22.     _LIMIT 60
  24.  
Title: Re: Scrolling Plasma Lines the Movie
Post by: johnno56 on October 10, 2019, 03:36:48 am
Half expecting a Scotsman and his bagpipes! Very cool...
Title: Re: Scrolling Plasma Lines the Movie
Post by: SMcNeill on October 10, 2019, 06:20:26 am
That's some really CPU intensive work going on inside that inner FOR loop there!

Code: QB64: [Select]
  1. _TITLE "Scrolling Plasma Lines Mod 1" 'B+ 2019-10-09
  3. CONST xmax = 800, ymax = 600
  4. SCREEN _NEWIMAGE(xmax, ymax, 32)
  5. _SCREENMOVE 300, 40
  6. DIM ln(0 TO ymax) AS _UNSIGNED LONG
  7.  
  8. r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  9. f = xmax / ymax
  11.     FPS = FPS + 1
  12.     IF RND < .01 THEN r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  13.     FOR i = UBOUND(ln) - 1 TO 0 STEP -1
  14.         ln(i + 1) = ln(i)
  15.         LINE (0, i)-STEP(xmax, 0), ln(i + 1)
  16.         LINE (xmax - i * f, 0)-STEP(0, ymax), ln(i + 1)
  17.         LINE (i * f, 0)-STEP(f, ymax), ln(i + 1)
  18.         LINE (0, ymax - i)-STEP(xmax, 0), ln(i + 1)
  19.     NEXT
  20.     ln(0) = _RGB32(127 + 127 * SIN(r * c), 127 + 127 * SIN(g * c), 127 + 127 * SIN(b * c), 40)
  21.     c = c + 1
  22.     LOCATE 1, 1: PRINT FPSDisplay
  23.     _DISPLAY
  24.     _LIMIT 60
  25.     IF TIMER > T# + 1 THEN FPSDisplay = FPS: FPS = 0: T# = TIMER

As this little program runs for a bit, my CPU fans turn on and imitate an airplane engine, with a single core's usage going up to nearly 100%!  Once it hits its stride, my PC produces only about 27 or 28 FPS with this little demo, rendering that _LIMIT 60 completely moot.  It can't slow down my PC to make it run at 60 FPS, since it won't even run at 30 FPS to begin with!
Title: Re: Scrolling Plasma Lines the Movie
Post by: SMcNeill on October 10, 2019, 06:37:13 am
Just having fun with this a bit, here's a mod which implements a step variable for the routine, which changes the patterns slightly.  When the stepper gets to 7, the screen ends up amazing stable and unchanging after a second or so for me, which I found rather oddish.

Code: QB64: [Select]
  1. _TITLE "Scrolling Plasma Lines Mod 1s (S for STEVE)" 'B+ 2019-10-09
  3. CONST xmax = 800, ymax = 600
  4. SCREEN _NEWIMAGE(xmax, ymax, 32)
  5. _SCREENMOVE 300, 40
  6. DIM ln(0 TO ymax) AS _UNSIGNED LONG
  7.  
  8. r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  9. f = xmax / ymax
  10. stepper = 1
  12.     FPS = FPS + 1
  13.     IF RND < .01 THEN r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  14.     FOR i = UBOUND(ln) - stepper TO 0 STEP -stepper
  15.         ln(i + stepper) = ln(i)
  16.         LINE (0, i)-STEP(xmax, 0), ln(i + stepper)
  17.         LINE (xmax - i * f, 0)-STEP(0, ymax), ln(i + stepper)
  18.         LINE (i * f, 0)-STEP(f, ymax), ln(i + stepper)
  19.         LINE (0, ymax - i)-STEP(xmax, 0), ln(i + stepper)
  20.     NEXT
  21.     ln(0) = _RGB32(127 + 127 * SIN(r * c), 127 + 127 * SIN(g * c), 127 + 127 * SIN(b * c), 40)
  22.     c = c + stepper
  23.     LOCATE 1, 1: PRINT FPSDisplay, stepper
  24.     _DISPLAY
  25.     _LIMIT 120
  26.     IF TIMER > T# + 1 THEN FPSDisplay = FPS: FPS = 0: T# = TIMER: SecondsRun = SecondsRun + 1
  27.     IF SecondsRun MOD 10 = 0 THEN CLS: SecondsRun = 1: stepper = stepper + 1
  29.  
  30.  
Title: Re: Scrolling Plasma Lines the Movie
Post by: bplus on October 10, 2019, 10:10:12 am
Well we can speed it up like this but Full Screen sucks!!!
Code: QB64: [Select]
  1. _TITLE "Scrolling Plasma Lines Mod 1" 'B+ 2019-10-09
  3. CONST xmax = 400, ymax = 300
  4. SCREEN _NEWIMAGE(xmax, ymax, 32)
  5. _SCREENMOVE 300, 40
  6. _FULLSCREEN '<<<<  YUCK!!!!!!!!!!!
  7. DIM ln(0 TO ymax) AS _UNSIGNED LONG
  8.  
  9. r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  10. f = xmax / ymax
  11. WHILE _KEYDOWN(27) = 0
  12.     FPS = FPS + 1
  13.     IF RND < .01 THEN r = RND ^ 2: g = RND ^ 2: b = RND ^ 2
  14.     FOR i = UBOUND(ln) - 1 TO 0 STEP -1
  15.         ln(i + 1) = ln(i)
  16.         LINE (0, i)-STEP(xmax, 0), ln(i + 1)
  17.         LINE (xmax - i * f, 0)-STEP(0, ymax), ln(i + 1)
  18.         LINE (i * f, 0)-STEP(f, ymax), ln(i + 1)
  19.         LINE (0, ymax - i)-STEP(xmax, 0), ln(i + 1)
  20.     NEXT
  21.     ln(0) = _RGB32(127 + 127 * SIN(r * c), 127 + 127 * SIN(g * c), 127 + 127 * SIN(b * c), 40)
  22.     c = c + 1
  23.     LOCATE 1, 1: PRINT FPSDisplay
  24.     _DISPLAY
  25.     '_LIMIT 60
  26.     IF TIMER > T# + 1 THEN FPSDisplay = FPS: FPS = 0: T# = TIMER
  28.  
  29.  
Text Only | Text with Attachments