|
Post by Sab2004 on Jan 22, 2004 14:23:29 GMT -5
In qB45 I type
out 966,255 out 967,ColorRegister (0-255) Red = inp(969) Green = inp(969) Blue = inp(969)
To Read a ColorRegister and...
out 966,255 out 968,ColorRegister (0-255) out 969,Red (0-63) out 969,Green (0-63) out 969,Blue (0-63)
To Write to a ColorRegister.
967 to read 968 to write
So my question is this... How do I program the Color Pallette in Basic4GL?
So I can do this...
PAL:
R1 = 63 G1 = 63 B1 = 63
R2 = 0 G2 = 0 B2 = 63
FOR Alpha = 1 TO 255
Nr = R2 + (((R1 - R2) / 256) * Alpha) NG = G2 + (((G1 - G2) / 256) * Alpha) NB = B2 + (((B1 - B2) / 256) * Alpha)
OUT 966, 255 OUT 968, Alpha OUT 969, Nr OUT 969, NG OUT 969, NB
NEXT Alpha
RETURN
Thus createing nice fades from color to color.
That's it for now thanks.
Sab2004
|
|