Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Richard on November 10, 2020, 12:07:23 pm

Title: Bit confused on PALETTE USING & COPYPALETTE
Post by: Richard on November 10, 2020, 12:07:23 pm
Maybe I am misunderstanding the Palette commands...

Suppose I have

SCREEN _NEWIMAGE(3200,1800,32)

and on the one and same display draw some graphic lines and boxes and place somewhere on the screen a 8-bit color picture (which has its own 256 color palette (#1) in its header).

I then on this same display load the same 8-bit color picture and graphics somewhere else on the display BUT I want to override the internal header palette and use my own palette (say #2).

I then again load the same image and graphics somewhere else and use another 256 color palette set (#3) and apply it to this image.

So is it possible to have, on the same display,  an image and graphics using three different palettes simultaneously?

From the QB64 help wiki:-

PALETTE USING statement sets all RGB screen color intensities using values from an array PALETTE USING array%(startindex%)
array%    red% + 256*green% + 65536*blue% .  How is it possible to load the array (being integer) when each of red% green% blue% can be of value up to 256?

_COPY PALETTE statement copies the color palette intensities from 8bpp image to another image or a _NEWIMAGE screen page using 256 colors.

If the _NEWIMAGE is only used once, can _COPY PALETTE be used say three times for the effect mentioned above?
Title: Re: Bit confused on PALETTE USING & COPYPALETTE
Post by: Petr on November 10, 2020, 12:54:39 pm
I think it will work. Wait a minute, I'll try to write it. So you want a 32-bit screen and place three 256-color images on it, each with a different palette. Good. I'm on it :)

So really, it works. Two images uses here random colorized palette, one image use own original palette:


Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2. img1 = LOADIMAGE256("parrot.png")
  3.  
  4.  
  5. DIM palett(1, 255) AS _UNSIGNED LONG 'first is original palette, second is 0, 255,   third is 1, 255
  6.  
  7. 'generate two rando palettes
  8.  
  9. FOR p = 0 TO 1
  10.     FOR mask = 0 TO 255
  11.         R = 255 * RND
  12.         G = 255 * RND
  13.         B = 255 * RND
  14.         palett(p, mask) = _RGB32(R, G, B)
  15.     NEXT mask
  17.  
  18. img2 = _COPYIMAGE(img1, 256)
  19. img3 = _COPYIMAGE(img1, 256)
  20.  
  21. 'set palette for image img2
  22. FOR set = 0 TO 255
  23.     'set palette for image img2
  24.     _PALETTECOLOR set, palett(0, set), img2
  25.     'set palette for image img3
  26.     _PALETTECOLOR set, palett(1, set), img3
  28.  
  29.  
  30.  
  31. _PUTIMAGE (0, 50), img1 'place image using original palette
  32. _PUTIMAGE (300, 50), img2
  33. _PUTIMAGE (600, 50), img3
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40. FUNCTION LOADIMAGE256 (img$)
  41.     DEFLNG A-Z
  42.     image = _LOADIMAGE(img$, 32)
  43.  
  44.     DIM m AS _MEM, clr8(255) AS _UNSIGNED LONG, Clr32 AS _UNSIGNED LONG, test AS LONG, s AS LONG
  45.  
  46.     FOR s = 0 TO 255
  47.         clr8(s) = 99999
  48.     NEXT s
  49.  
  50.     m = _MEMIMAGE(image)
  51.     DO UNTIL p& = m.SIZE
  52.         _MEMGET m, m.OFFSET + p&, Clr32~&
  53.  
  54.         test = 0
  55.         'this block prevent for writing the same color more than 1x to palette array
  56.         DO UNTIL test = 255
  57.             IF clr8(test) = Clr32~& THEN GOTO NextColor
  58.             IF clr8(test) = 99999 THEN EXIT DO
  59.             test = test + 1
  60.         LOOP
  61.  
  62.         'if is empty place in palette, save this color as next palette color
  63.         IF test > 255 THEN PRINT "Image contains more than 256 colors, can not be directly copyed as 8 bit image": END
  64.         clr8(test) = Clr32
  65.  
  66.         'color is saved as palette for 8 bit image
  67.         NextColor: p& = p& + 4
  68.     LOOP
  69.  
  70.     image8 = _NEWIMAGE(_WIDTH(image), _HEIGHT(image), 256)
  71.  
  72.     'set palette
  74.     N = _MEMIMAGE(image8)
  75.     FOR palett = 0 TO 255
  76.         _PALETTECOLOR palett, clr8(palett), image8
  77.     NEXT
  78.  
  79.  
  80.     'create 8 bit mask (set colors 0 to 255 to 8 bit image)
  81.     FOR C = 255 TO 0 STEP -1
  82.         clr~& = clr8(C)
  83.         R& = 0
  84.         R8& = 0
  85.         DO UNTIL R& = m.SIZE
  86.             _MEMGET m, m.OFFSET + R&, Clr32
  87.             IF Clr32 = clr~& THEN _MEMPUT N, N.OFFSET + R8&, C
  88.             R& = R& + 4
  89.             R8& = R8& + 1
  90.         LOOP
  91.     NEXT C
  92.  
  93.     LOADIMAGE256 = _COPYIMAGE(image8, 256)
  94.     _MEMFREE m
  95.     _MEMFREE N
  96.     _FREEIMAGE image
  97.     _FREEIMAGE image8
  99.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

You can use _PALETTECOLOR also as function for giving current color palette value:     color32Value& = _PALETTECOLOR(attributeNumber%, imgHandle&)
Title: Re: Bit confused on PALETTE USING & COPYPALETTE
Post by: Petr on November 10, 2020, 02:01:10 pm
Next example. First image use original palette, second use inverse palette and third use random RED color in RGB32 palette.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 600, 32)
  2. img1 = LOADIMAGE256("parrot.png")
  3.  
  4.  
  5. DIM palett(1, 255) AS _UNSIGNED LONG 'first is original palette, second is 0, 255,   third is 2, 255
  6.  
  7. 'generate two rando palettes
  8.  
  9.  
  10.  
  11.  
  12. FOR mask = 0 TO 255
  13.     R = 255 * RND
  14.     R2 = _RED32(_PALETTECOLOR(mask, img1))
  15.     G = 255 * RND
  16.     G2 = _GREEN32(_PALETTECOLOR(mask, img1))
  17.     B = 255 * RND
  18.     B2 = _BLUE32(_PALETTECOLOR(mask, img1))
  19.     palett(0, mask) = _RGB32(255 - R2, 255 - G2, 255 - B2) 'inverse palette color
  20.     palett(1, mask) = _RGB32(R, G2, B2) 'use original Green and Blue color values in unsigned long palette color value
  21. NEXT mask
  22.  
  23.  
  24. img2 = _COPYIMAGE(img1, 256)
  25. img3 = _COPYIMAGE(img1, 256)
  26.  
  27. 'set palette for image img2
  28. FOR set = 0 TO 255
  29.     'set palette for image img2
  30.     _PALETTECOLOR set, palett(0, set), img2
  31.     'set palette for image img3
  32.     _PALETTECOLOR set, palett(1, set), img3
  34.  
  35.  
  36.  
  37. _PUTIMAGE (0, 50), img1 'place image using original palette
  38. _PUTIMAGE (300, 50), img2
  39. _PUTIMAGE (600, 50), img3
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46. FUNCTION LOADIMAGE256 (img$)
  47.     DEFLNG A-Z
  48.     image = _LOADIMAGE(img$, 32)
  49.  
  50.     DIM m AS _MEM, clr8(255) AS _UNSIGNED LONG, Clr32 AS _UNSIGNED LONG, test AS LONG, s AS LONG
  51.  
  52.     FOR s = 0 TO 255
  53.         clr8(s) = 99999
  54.     NEXT s
  55.  
  56.     m = _MEMIMAGE(image)
  57.     DO UNTIL p& = m.SIZE
  58.         _MEMGET m, m.OFFSET + p&, Clr32~&
  59.  
  60.         test = 0
  61.         'this block prevent for writing the same color more than 1x to palette array
  62.         DO UNTIL test = 255
  63.             IF clr8(test) = Clr32~& THEN GOTO NextColor
  64.             IF clr8(test) = 99999 THEN EXIT DO
  65.             test = test + 1
  66.         LOOP
  67.  
  68.         'if is empty place in palette, save this color as next palette color
  69.         IF test > 255 THEN PRINT "Image contains more than 256 colors, can not be directly copyed as 8 bit image": END
  70.         clr8(test) = Clr32
  71.  
  72.         'color is saved as palette for 8 bit image
  73.         NextColor: p& = p& + 4
  74.     LOOP
  75.  
  76.     image8 = _NEWIMAGE(_WIDTH(image), _HEIGHT(image), 256)
  77.  
  78.     'set palette
  80.     N = _MEMIMAGE(image8)
  81.     FOR palett = 0 TO 255
  82.         _PALETTECOLOR palett, clr8(palett), image8
  83.     NEXT
  84.  
  85.  
  86.     'create 8 bit mask (set colors 0 to 255 to 8 bit image)
  87.     FOR C = 255 TO 0 STEP -1
  88.         clr~& = clr8(C)
  89.         R& = 0
  90.         R8& = 0
  91.         DO UNTIL R& = m.SIZE
  92.             _MEMGET m, m.OFFSET + R&, Clr32
  93.             IF Clr32 = clr~& THEN _MEMPUT N, N.OFFSET + R8&, C
  94.             R& = R& + 4
  95.             R8& = R8& + 1
  96.         LOOP
  97.     NEXT C
  98.  
  99.     LOADIMAGE256 = _COPYIMAGE(image8, 256)
  100.     _MEMFREE m
  101.     _MEMFREE N
  102.     _FREEIMAGE image
  103.     _FREEIMAGE image8
  105.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Bit confused on PALETTE USING & COPYPALETTE
Post by: Petr on November 10, 2020, 02:56:28 pm
Code: QB64: [Select]
  1. 'example for set palette using _NEWIMAGE
  2.  
  3. scr32 = _NEWIMAGE(800, 600, 32)
  4. SCREEN scr32
  5. image1 = _NEWIMAGE(100, 100, 256)
  6. i32 = _DEST
  7. _DEST image1
  8. FOR d = 0 TO 100 STEP 10
  9.     COLOR 20 + d
  10.     LINE (d, 0)-(d + 10, 100), , BF
  13.  
  14. image2 = _COPYIMAGE(image1)
  15. image3 = _COPYIMAGE(image1)
  16. '_COPYPALETTE image1, image2 'is not need, if image 1 is created with standard basic color palette
  17. '_COPYPALETTE image1, image3
  18.  
  19. 'set palette for image 2 and image 3
  20.  
  21. 'for image 2 set color palette 50 (change color 50)
  22. _PALETTECOLOR 50, _RGB32(60, 70, 80), image2
  23.  
  24.  
  25. 'for image 3 set color palette 70 (change color 70)
  26. _PALETTECOLOR 70, _RGB32(222, 2, 22), image3
  27.  
  28.  
  29. _PUTIMAGE (100, 110), image1
  30. _PUTIMAGE (100, 220), image2
  31. _PUTIMAGE (100, 330), image3
  32.  
Text Only | Text with Attachments