//This just shows how scrn memory works.
//See ::/Demo/Lectures/MiniGrLib.HC

U0 PlotXY(I64 x,I64 y)
{//Scrn bits are revd
  LBts(text.vga_alias,y*GR_WIDTH+x^7);
}

U0 Main()
{
  I64 i;
//This makes all 4 color planes active.
  OutU8(VGAP_IDX,VGAR_MAP_MASK);
  OutU8(VGAP_DATA,WHITE);
  MemSet(text.vga_alias,0,GR_WIDTH*GR_HEIGHT/8);
  OutU8(VGAP_IDX,VGAR_MAP_MASK);
  OutU8(VGAP_DATA,RED);
  for (i=0; i<200; i++)
    PlotXY(i,i);
  OutU8(VGAP_IDX,VGAR_MAP_MASK);
  OutU8(VGAP_DATA,GREEN);
  for (i=0; i<200; i++)
    PlotXY(100,i);
  OutU8(VGAP_IDX,VGAR_MAP_MASK);
  OutU8(VGAP_DATA,BLUE);
  for (i=0; i<200; i++)
    PlotXY(200-i,i);
  /*If you want a mixed color sel multiple planes
  but you have to be sure the unseled planes
  are zero, so sel them and make them zero.
  You can't do reads on VGA memory, by the way.
  That means no read-modify-writes, too.
  */
  Busy(4000000);
  //TempleOS has a 4 plane memory duplicate of the scrn, gr.scrn_image,
  //and only writes actual changes.  See GrUpdateVGAGraphics().
  //<CTRL-ALT-v> will flush scrn VGA cache.
  VGAFlush;
}

Main;

//See ::/Demo/Lectures/GraphicsCPULoad.HC.