program grtest;
(* ----------------------------------------------------------- *)
(* Funktion:     Erzeugen eines Testbildes                     *)
(* ----------------------------------------------------------- *)

{$I grbs.bic}
{$I grdisk.bic}

begin
  InitGraphic;

  Graphic_mc;
  AspectGlb:=AspectGlb*1.4;   (* Kreisdarstellung Bildschirm   *)
                              (* entfaellt bei Arbeit mit      *)
                              (* prn-Include-Dateien           *)
  DrawLineDirect(0,0,250,100);
  DrawLineDirect(250,100,0,200);
  DrawCircleDirect(250,100,100,false);
  DrawText(20,50,1,'TextAUSGABE');
  DrawText(20,100,2,'Doppelte Groesse');
  DrawText(20,200,3,'Dreifache Groesse');
  DrawLineClipped(0,0,511,0);
  DrawLineClipped(511,0,511,255);
  DrawLineClipped(511,255,0,255);
  DrawLineClipped(0,255,0,0);
{ SaveScreen('TEST.PIC');                                       }
{ LoadScreen('TEST.PIC');                                       }
{ Druckerausgabe (EPSON, 8 bit, no parity) bei Bedarf           }
{ hardcopy (false,1);                                           }
  readln;

  Graphic_hr;
  AspectGlb:=AspectGlb*0.5;   (* Kreisdarstellung Bildschirm   *)
                              (* entfaellt bei Arbeit mit      *)
                              (* prn-Include-Dateien           *)
  DrawLineDirect(0,0,250,100);
  DrawLineDirect(250,100,0,200);
  DrawCircleDirect(250,100,100,false);
  DrawText(20,50,1,'TextAUSGABE');
  DrawText(20,100,2,'Doppelte Groesse');
  DrawText(20,200,3,'Dreifache Groesse');
  DrawLineClipped(0,0,511,0);
  DrawLineClipped(511,0,511,255);
  DrawLineClipped(511,255,0,255);
  DrawLineClipped(0,255,0,0);
{ SaveScreen('TEST.PIC');                                       }
{ LoadScreen('TEST.PIC');                                       }
{ Druckerausgabe (EPSON, 8 bit, no parity) bei Bedarf           }
{ hardcopy (false,1);                                           }
  readln;

  LeaveGraphic;
end.