« previous next »
Pages: [1]   Go Down

Author Topic: Mosaic Effect  (Read 4156 times)

0 Members and 1 Guest are viewing this topic.

Offline MrFreyer

  • Newbie
  • Posts: 34
    • View Profile
Mosaic Effect
« 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.  
  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)
  13. _SCREENMOVE (desktopscreen.width * 0.5 - screenwindow.width * 0.5), 0
  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.  
  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.  
  104.  
  105. close_program:
  108.  


EDIT:
...and here the slightly slower version, but with POINT/ PRESET instead of _MEMGET/ _MEMPUT
Code: QB64: [Select]
  1. DEFINT A-Z
  2.  
  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)
  13. _SCREENMOVE (desktopscreen.width * 0.5 - screenwindow.width * 0.5), 0
  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.  
  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.  
  97.  
  98. close_program:
  101.  
« Last Edit: November 06, 2019, 03:57:53 am by MrFreyer »
Logged
Pages: [1]   Go Up
« previous next »