//Generate "StadiumBG.GR.Z" from "StadiumBG.DD.Z"

U0 StadiumGen()
{
  U0 (*fp_old_update)(CDC *dc);
  CDC *dc,*dc2;
  Cd(__DIR__);
  AutoComplete;
  WinBorder;
  WinMax;
  DocCursor(OFF);
  DocClear;
  Type("StadiumBG.DD");
  "$CM,0,%d$"
  ,TEXT_ROWS-3;
  fp_old_update=gr.fp_final_scrn_update; //hide mouse cursor
  gr.fp_final_scrn_update=NULL;
  Refresh(2,TRUE);
  dc2=DCScrnCapture;
  dc=DCExt(dc2,0,FONT_HEIGHT,GR_WIDTH,GR_HEIGHT);
  DCDel(dc2);
  GRWrite("StadiumBG",dc,DCSF_COMPRESSED|DCSF_PALETTE_GET);
  DCDel(dc);
  DocCursor(ON);
  gr.fp_final_scrn_update=fp_old_update;
  DocClear;
}

StadiumGen;