QB64.org Forum

Active Forums => Programs => Topic started by: MrFreyer on November 06, 2019, 03:31:34 am

Title: Mosaic Effect
Post by: MrFreyer on November 06, 2019, 03:31:34 am

...it's the mosaic effect, like the SNES games used it to pixelate (blur?) the screen.

Code: QB64: [Select]

1. DEFINT A-Z
2.  
3. RANDOMIZE TIMER
4.  
5. desktopscreen.width = _DESKTOPWIDTH
6. desktopscreen.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 (desktopscreen.width * 0.5 - screenwindow.width * 0.5), 0
14. _DISPLAY
15.  
16. CONST pixelbytes = 4 '4 byte 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 imageScreenMEMORY AS _MEM
23.  
24. mosaicSize = 1
25.  
26. 'calculate maximum mosaic tiles
27. mosaicsVertical = FIX(screenwindow.height / mosaicSize)
28. mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
29.  
30. DO
31.     CLS
32.     LINE (0, 0)-(screenwindow.width - 1, screenwindow.height - 1), _RGB(255, 255, 95), BF
33.     _FONT 16
34.     COLOR _RGB(255, 0, 255), _RGB(255, 255, 255)
35.     _PRINTSTRING (32, 0), "Explanation:"
36.     COLOR _RGB(255, 191, 0), _RGB(191, 95, 0)
37.     _PRINTSTRING (32, 64), "This program shows the Mosaic Effect."
38.     COLOR _RGB(0, 255, 0), _RGB(0, 0, 63)
39.     _PRINTSTRING (32, 128), "But it's the old version, like the Super Nintendo Entertainment System used it."
40.     COLOR _RGB(191, 191, 191), _RGB(191, 63, 0)
41.     _PRINTSTRING (32, 192), "The old version takes just the color of a pixel"
42.     COLOR _RGB(95, 63, 95), _RGB(0, 255, 193)
43.     _PRINTSTRING (32, 256), "and overwrites the next few pixels on the x and y axis"
44.     COLOR _RGB(0, 191, 127), _RGB(255, 0, 0)
45.     _PRINTSTRING (32, 320), "with the color values of the first pixel."
46.     COLOR _RGB(0, 255, 123), _RGB(31, 95, 31)
47.     _PRINTSTRING (32, 384), "There is also a newer, smooth version, but who needs it? :D"
48.     COLOR _RGB(255, 255, 255), _RGB(0, 0, 0)
49.     _PRINTSTRING (32, 448), "Just press [+] or [-] to change the mosaic size."
50.     COLOR _RGB(255, 95, 95), _RGB(0, 0, 0)
51.     _PRINTSTRING (464, 448), "<<< change mosaic size"
52.     COLOR _RGB(0, 0, 0), _RGB(63, 127, 63)
53.     _PRINTSTRING (32, 512), "Press [Escape] to close the program."
54.     COLOR _RGB(255, 95, 95), _RGB(0, 0, 0)
55.     _PRINTSTRING (464, 512), "<<< close program"
56.     COLOR _RGB(255, 0, 0), _RGB(31, 31, 31)
57.     _PRINTSTRING (32, 576), "X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X"
58.  
59.     imageScreenMEMORY = _MEMIMAGE(0)
60.  
61.     FOR pixelVertical = 1 TO mosaicsVertical
62.         FOR pixelHorizontal = 1 TO mosaicsHorizontal
63.             y = (pixelVertical  - 1) * mosaicSize
64.             x = (pixelHorizontal  - 1) * mosaicSize
65.  
66.             _MEMGET imageScreenMEMORY , imageScreenMEMORY .OFFSET + (x * pixelbytes) + (y * (screenwindow.width * pixelbytes)), pixelcolorRed
67.             _MEMGET imageScreenMEMORY , imageScreenMEMORY .OFFSET + ((x * pixelbytes) + 1) + (y * (screenwindow.width * pixelbytes)), pixelcolorGreen
68.             _MEMGET imageScreenMEMORY , imageScreenMEMORY .OFFSET + ((x * pixelbytes) + 2) + (y * (screenwindow.width * pixelbytes)), pixelcolorBlue
69.  
70.             FOR y2 = 0 TO mosaicSize - 1
71.                 FOR x2 = 0 TO mosaicSize - 1
72.                     _MEMPUT imageScreenMEMORY , imageScreenMEMORY .OFFSET + (x * pixelbytes) + (x2 * pixelbytes) + (y * (screenwindow.width * pixelbytes)) + (y2 * (screenwindow.width * pixelbytes)), pixelcolorRed
73.                     _MEMPUT imageScreenMEMORY , imageScreenMEMORY .OFFSET + ((x * pixelbytes) + 1) + (x2 * pixelbytes) + (y * (screenwindow.width * pixelbytes)) + (y2 * (screenwindow.width * pixelbytes)), pixelcolorGreen
74.                     _MEMPUT imageScreenMEMORY , imageScreenMEMORY .OFFSET + ((x * pixelbytes) + 2) + (x2 * pixelbytes) + (y * (screenwindow.width * pixelbytes)) + (y2 * (screenwindow.width * pixelbytes)), pixelcolorBlue
75.                 NEXT x2
76.             NEXT y2
77.  
78.         NEXT pixelHorizontal
79.     NEXT pixelVertical
80.  
81.     _DISPLAY
82.  
83.     WHILE INKEY$ <> "": WEND
84.     DO
85.         keypressed$ = INKEY$
86.         IF keypressed$ = CHR$(43) THEN
87.             mosaicSize = mosaicSize + 1
88.             IF mosaicSize > 64 THEN mosaicSize = 64
89.             mosaicsVertical = FIX(screenwindow.height / mosaicSize)
90.             mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
91.             EXIT DO
92.         END IF
93.         IF keypressed$ = CHR$(45) THEN
94.             mosaicSize = mosaicSize - 1
95.             IF mosaicSize < 1 THEN mosaicSize = 1
96.             mosaicsVertical = FIX(screenwindow.height / mosaicSize)
97.             mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
98.             EXIT DO
99.         END IF
100.         IF keypressed$ = CHR$(27) THEN GOTO close_program
101.     LOOP
102.  
103. LOOP
104.  
105. close_program:
106. SYSTEM
107. END
108.  

EDIT:
...and here the slightly slower version, but with POINT/ PRESET instead of _MEMGET/ _MEMPUT

Code: QB64: [Select]

1. DEFINT A-Z
2.  
3. RANDOMIZE TIMER
4.  
5. desktopscreen.width = _DESKTOPWIDTH
6. desktopscreen.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 (desktopscreen.width * 0.5 - screenwindow.width * 0.5), 0
14. _DISPLAY
15.  
16. DIM pixelcolor AS LONG
17. DIM pixelcolorRed AS _UNSIGNED _BYTE
18. DIM pixelcolorGreen AS _UNSIGNED _BYTE
19. DIM pixelcolorBlue AS _UNSIGNED _BYTE
20.  
21. mosaicSize = 1
22.  
23. 'calculate maximum mosaic tiles
24. mosaicsVertical = FIX(screenwindow.height / mosaicSize)
25. mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
26.  
27. DO
28.     CLS
29.     LINE (0, 0)-(screenwindow.width - 1, screenwindow.height - 1), _RGB(255, 255, 95), BF
30.     _FONT 16
31.     COLOR _RGB(255, 0, 255), _RGB(255, 255, 255)
32.     _PRINTSTRING (32, 0), "Explanation:"
33.     COLOR _RGB(255, 191, 0), _RGB(191, 95, 0)
34.     _PRINTSTRING (32, 64), "This program shows the Mosaic Effect."
35.     COLOR _RGB(0, 255, 0), _RGB(0, 0, 63)
36.     _PRINTSTRING (32, 128), "But it's the old version, like the Super Nintendo Entertainment System used it."
37.     COLOR _RGB(191, 191, 191), _RGB(191, 63, 0)
38.     _PRINTSTRING (32, 192), "The old version takes just the color of a pixel"
39.     COLOR _RGB(95, 63, 95), _RGB(0, 255, 193)
40.     _PRINTSTRING (32, 256), "and overwrites the next few pixels on the x and y axis"
41.     COLOR _RGB(0, 191, 127), _RGB(255, 0, 0)
42.     _PRINTSTRING (32, 320), "with the color values of the first pixel."
43.     COLOR _RGB(0, 255, 123), _RGB(31, 95, 31)
44.     _PRINTSTRING (32, 384), "There is also a newer, smooth version, but who needs it? :D"
45.     COLOR _RGB(255, 255, 255), _RGB(0, 0, 0)
46.     _PRINTSTRING (32, 448), "Just press [+] or [-] to change the mosaic size."
47.     COLOR _RGB(255, 95, 95), _RGB(0, 0, 0)
48.     _PRINTSTRING (464, 448), "<<< change mosaic size"
49.     COLOR _RGB(0, 0, 0), _RGB(63, 127, 63)
50.     _PRINTSTRING (32, 512), "Press [Escape] to close the program."
51.     COLOR _RGB(255, 95, 95), _RGB(0, 0, 0)
52.     _PRINTSTRING (464, 512), "<<< close program"
53.     COLOR _RGB(255, 0, 0), _RGB(31, 31, 31)
54.     _PRINTSTRING (32, 576), "X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X"
55.    
56.     FOR pixelVertical  = 1 TO mosaicsVertical
57.         FOR pixelHorizontal  = 1 TO mosaicsHorizontal
58.             y = (pixelVertical  - 1) * mosaicSize
59.             x = (pixelHorizontal   - 1) * mosaicSize
60.  
61.             pixelcolor = POINT(x, y)
62.             pixelcolorRed = _RED32(pixelcolor)
63.             pixelcolorGreen = _GREEN32(pixelcolor)
64.             pixelcolorBlue = _BLUE32(pixelcolor)
65.  
66.             FOR y2 = 0 TO mosaicSize - 1
67.                 FOR x2 = 0 TO mosaicSize - 1
68.                     PRESET (x + x2, y + y2), _RGB(pixelcolorRed, pixelcolorGreen, pixelcolorBlue)
69.                 NEXT x2
70.             NEXT y2
71.  
72.         NEXT pixelHorizontal  
73.     NEXT pixelVertical
74.     _DISPLAY
75.  
76.     WHILE INKEY$ <> "": WEND
77.     DO
78.         keypressed$ = INKEY$
79.         IF keypressed$ = CHR$(43) THEN
80.             mosaicSize = mosaicSize + 1
81.             IF mosaicSize > 64 THEN mosaicSize = 64
82.             mosaicsVertical = FIX(screenwindow.height / mosaicSize)
83.             mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
84.             EXIT DO
85.         END IF
86.         IF keypressed$ = CHR$(45) THEN
87.             mosaicSize = mosaicSize - 1
88.             IF mosaicSize < 1 THEN mosaicSize = 1
89.             mosaicsVertical = FIX(screenwindow.height / mosaicSize)
90.             mosaicsHorizontal = FIX(screenwindow.width / mosaicSize)
91.             EXIT DO
92.         END IF
93.         IF keypressed$ = CHR$(27) THEN GOTO close_program
94.     LOOP
95.  
96. LOOP
97.  
98. close_program:
99. SYSTEM
100. END
101.  

Text Only | Text with Attachments