U0 PaletteDemo()
{
I64 i,j;
CBGR bgr;
for (i=0;i<16;i++)
"$$FG,BLACK$$$$BG,%d$$__%-8Z__$$FG$$$$BG$$\n",i,i,"ST_COLORS";
SettingsPush; //See $LK,"SettingsPush","MN:SettingsPush"$
//Alternatively, use $LK,"SetVGAPalette4","MN:SetVGAPalette4"$(vga_palette4_gray);
for (i=0;i<16;i++) {
j=0xFF*i/15;
bgr.b=j;
bgr.g=j;
bgr.r=j;
SetVGAPaletteColor(i,bgr);
}
PressAKey;
//You can do it this way, too.
SetVGAPaletteColor(WHITE,0xFFFF00);
PressAKey;
//$LK,"SettingsPop","MN:SettingsPop"$() restores original palette
SettingsPop;
}
U0 Main() {
"Julia Set Generator\n";
SettingsPush;
I64 k,j;
CBGR bgr;
for (k=0; k<16; k++) {
j=0xFF*k/15;
bgr.b=j;
bgr.g=j;
bgr.r=j;
SetVGAPaletteColor(k, bgr);
}
CDC *dc=DCAlias;
I64 row, col;
for (row=0; row<ROWS; row++) {
for (col=0; col<COLS; col++) {
F64 r=LEFT+ToF64(COL_INC*col), i=BOTTOM+ToF64(ROW_INC*row);
dc->color=getColor(-0.8, 0.156, r, i);
I64 x=col*(640/COLS), y=row*(480/ROWS);
GrRect(dc, x, y, 640/COLS, 480/ROWS);
}
}
PressAKey;
DCFill(dc);
DCDel(dc);
SettingsPop;
}
