Noise Effect

[MrFreyer]

...just a little noise-effect I want to share.

Code: QB64: [Select]

1. DEFINT A-Z
2.  
3. RANDOMIZE TIMER
4.  
5. desktop.width = _DESKTOPWIDTH
6. desktop.height = _DESKTOPHEIGHT
7.  
8. screenwindow.WIDTH = 800
9. screenwindow.height = 600
10.  
11. SCREEN _NEWIMAGE(screenwindow.WIDTH, screenwindow.height, 32)
12. DO: LOOP UNTIL _SCREENEXISTS
13. _SCREENMOVE (desktop.width * 0.5 - screenwindow.WIDTH * 0.5), 0
14. _DISPLAY
15.  
16. CONST pixelbytes = 4 '4 bytes per pixel (RGBA)
17.  
18. DIM pixelcolorRed AS _UNSIGNED _BYTE
19. DIM pixelcolorGreen AS _UNSIGNED _BYTE
20. DIM pixelcolorBlue AS _UNSIGNED _BYTE
21.  
22. DIM screenMemoryblock AS _MEM
23.  
24. screenMemoryblock = _MEMIMAGE(0)
25.  
26. DO
27.     FOR y = 0 TO screenwindow.height - 1
28.         FOR x = 0 TO screenwindow.WIDTH - 1
29.  
30.             pixelcolorRed = (RND * 254) + 1 'pick random red pixelcolor-value from 1 to 255
31.             pixelcolorGreen = (RND * 254) + 1 'pick random green pixelcolor-value from 1 to 255
32.             pixelcolorBlue = (RND * 254) + 1 'pick random blue pixelcolor-value from 1 to 255
33.  
34.             _MEMPUT screenMemoryblock, screenMemoryblock.OFFSET + (x * pixelbytes) + (y * (screenwindow.WIDTH * pixelbytes)), pixelcolorRed
35.             _MEMPUT screenMemoryblock, screenMemoryblock.OFFSET + ((x * pixelbytes) + 1) + (y * (screenwindow.WIDTH * pixelbytes)), pixelcolorGreen
36.             _MEMPUT screenMemoryblock, screenMemoryblock.OFFSET + ((x * pixelbytes) + 2) + (y * (screenwindow.WIDTH * pixelbytes)), pixelcolorBlue
37.  
38.         NEXT x
39.     NEXT y
40.  
41.     _DISPLAY
42. LOOP UNTIL INKEY$ <> ""
43.  
44. SYSTEM
45. END
46.  

EDIT:
...and the same program with PRESET instead of _MEMPUT. Would be slightly slower.

Code: QB64: [Select]

1. DEFINT A-Z
2.  
3. RANDOMIZE TIMER
4.  
5. desktop.WIDTH = _DESKTOPWIDTH
6. desktop.height = _DESKTOPHEIGHT
7.  
8. screenwindow.WIDTH = 800
9. screenwindow.height = 600
10.  
11. SCREEN _NEWIMAGE(screenwindow.WIDTH, screenwindow.height, 32)
12. DO: LOOP UNTIL _SCREENEXISTS
13. _SCREENMOVE (desktop.WIDTH * 0.5 - screenwindow.WIDTH * 0.5), 0
14. _DISPLAY
15.  
16. DIM pixelcolorRed AS _UNSIGNED _BYTE
17. DIM pixelcolorGreen AS _UNSIGNED _BYTE
18. DIM pixelcolorBlue AS _UNSIGNED _BYTE
19.  
20. DO
21.     FOR y = 0 TO screenwindow.height - 1
22.         FOR x = 0 TO screenwindow.WIDTH - 1
23.  
24.             pixelcolorRed = (RND * 254) + 1 'pick random red pixelcolor-value from 1 to 255
25.             pixelcolorGreen = (RND * 254) + 1 'pick random green pixelcolor-value from 1 to 255
26.             pixelcolorBlue = (RND * 254) + 1 'pick random blue pixelcolor-value from 1 to 255
27.  
28.             PRESET (x, y), _RGB(pixelcolorRed, pixelcolorGreen, pixelcolorBlue)
29.  
30.         NEXT x
31.     NEXT y
32.  
33.     _DISPLAY
34. LOOP UNTIL INKEY$ <> ""
35.  
36. SYSTEM
37. END
38.  

[SierraKen]

LOL pretty cool effect!

[johnno56]

When I read "Noise Effect" I reached for the headphones.... Cool... "visual" static... Ok. You can stop laughing now...