TempleOSTS_130315.ISO

TempleOS/Demo/Graphics/Palette.CPP

@@ -0,0 +1,27 @@
+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;
+}
+
+PaletteDemo;