Bit confused on PALETTE USING & COPYPALETTE

[Richard]

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?

[Petr]

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
16. NEXT p
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
27. NEXT
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
73.     DIM N AS _MEM, C AS _UNSIGNED _BYTE
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
98. END FUNCTION
99.  

  [ You are not allowed to view this attachment ]  

You can use _PALETTECOLOR also as function for giving current color palette value:     color32Value& = _PALETTECOLOR(attributeNumber%, imgHandle&)

[Petr]

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
33. NEXT
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
79.     DIM N AS _MEM, C AS _UNSIGNED _BYTE
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
104. END FUNCTION
105.  

  [ You are not allowed to view this attachment ]  

[Petr]

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
11. NEXT d
12. _DEST 0
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.