Scrolling Plasma Lines the Movie

[bplus]

Code: QB64: [Select]

1. _TITLE "Scrolling Plasma Lines Mod 1" 'B+ 2019-10-09
2. RANDOMIZE TIMER
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. WHILE 1
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
23. WEND
24.  

[johnno56]

Half expecting a Scotsman and his bagpipes! Very cool...

[SMcNeill]

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
2. RANDOMIZE TIMER
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. WHILE 1
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
26. WEND

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!

[SMcNeill]

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
2. RANDOMIZE TIMER
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
11. WHILE 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
28. WEND
29.  
30.  

[bplus]

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
2. RANDOMIZE TIMER
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
27. WEND
28.  
29.