1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 11:40:38 +00:00
QB64-PE/internal/help/_PALETTECOLOR_(function).txt
SteveMcNeill 33adc04fc4 Add temp folder to repo. It's necessary as well!
Just more initial setting on... nothing much to see here.
2022-04-28 13:39:56 -04:00

52 lines
2.3 KiB
Plaintext

{{DISPLAYTITLE:_PALETTECOLOR (function)}}
The [[_PALETTECOLOR (function)|_PALETTECOLOR]] function is used to return the 32 bit attribute color setting of an image or screen page handle's palette.
{{PageSyntax}}
: {{Parameter|color32Value&}} = [[_PALETTECOLOR (function)|_PALETTECOLOR]]({{Parameter|attributeNumber%}}, {{Parameter|imgHandle&}})
{{PageDescription}}
* {{Parameter|attributeNumber%}} is the color attribute value from 0 to 255 for 1, 4 or 8 bit images.
* {{Parameter|imgHandle&}} is the image handle being read for color data. Zero can be used to read the current screen mode palette.
* Returns the 32 bit color value to be used by the 32 bit RGB functions.
* For 32 bit images send the _PALETTECOLOR return value to [[_RED32]], [[_GREEN32]] and [[_BLUE32]] functions to get the red, green, and blue intensity values.
* '''Although 32 bit palette values are returned, the function cannot be used with 32 bit images or screen modes.'''
{{PageExamples}}
''Example:'' How _PALETTECOLOR works on 32 bit RGB compared to a 4 BPP(SCREEN 12) Qbasic procedure.
{{CodeStart}} '' ''
SCREEN 12 'can use any Qbasic legacy screen mode
DIM RGB(0 TO 47) AS INTEGER 'color intensity array
FOR c& = 0 TO 15
'OUT &H3C7, c& 'set color attribute to read
value32& = {{Cl|_PALETTECOLOR (function)|_PALETTECOLOR}}(c&, 0) 'sets color value to read of an image page handle.
'red% = INP(&H3C9)
red% = {{Cl|_RED32}}(value32&)
'green% = INP(&H3C9)
green% = {{Cl|_GREEN32}}(value32&)
'blue% = INP(&H3C9)
blue% = {{Cl|_BLUE32}}(value32&)
RGB(c& * 3) = red%: RGB((c& * 3) + 1) = green%: RGB((c& * 3) + 2) = blue%
NEXT
FOR i = 0 TO 47 STEP 3
RGBval$ = LTRIM$(STR$(RGB(i))) + "," + STR$(RGB(i + 1)) + "," + STR$(RGB(i + 2)) + ")"
PRINT "Color"; i / 3, "_RGB(" + RGBval$;
PRINT
NEXT
END '' ''
{{CodeEnd}}
:''Explanation:'' To save a bitmap or other image you need the RGB color settings or the colors will look all wrong. You can store that information into a larger image array and [[GET (graphics statement)|GET]] the image AFTER the color settings. Just GET the image starting at Array(48).
{{PageSeeAlso}}
* [[_PALETTECOLOR]] (statement)
* [[_NEWIMAGE]], [[_LOADIMAGE]]
* [[SAVEIMAGE]] (example code)
{{PageNavigation}}
<