28 lines
619 B
HolyC
28 lines
619 B
HolyC
|
U0 PaletteDemo()
|
||
|
|
{
|
||
|
|
I64 i,j;
|
||
|
|
CBGR48 bgr;
|
||
|
|
for (i=0;i<COLORS_NUM;i++)
|
||
|
|
"$$BLACK$$$$BG,%d$$__%-8Z__$$FG$$$$BG$$\n",i,i,"ST_COLORS";
|
||
|
|
|
||
|
|
SettingsPush; //See $LK,"SettingsPush",A="MN:SettingsPush"$
|
||
|
|
//Alternatively, use $LK,"GrPaletteSet",A="MN:GrPaletteSet"$(gr_palette_gray);
|
||
|
|
for (i=0;i<COLORS_NUM;i++) {
|
||
|
|
j=0xFFFF*i/(COLORS_NUM-1);
|
||
|
|
bgr.b=j;
|
||
|
|
bgr.g=j;
|
||
|
|
bgr.r=j;
|
||
|
|
GrPaletteColorSet(i,bgr);
|
||
|
|
}
|
||
|
|
PressAKey;
|
||
|
|
|
||
|
|
//You can do it this way, too.
|
||
|
|
GrPaletteColorSet(WHITE,0xFFFFFFFF0000);
|
||
|
|
PressAKey;
|
||
|
|
|
||
|
|
//$LK,"SettingsPop",A="MN:SettingsPop"$() restores original palette
|
||
|
|
SettingsPop;
|
||
|
|
}
|
||
|
|
|
||
|
|
PaletteDemo;
|