home *** CD-ROM | disk | FTP | other *** search
/ Chip: Extra / Image.bin / utility / monitest / monitest.exe / GRID.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-06-16  |  890 b   |  41 lines
  1. program grid;
  2.  
  3. uses graph,crt;
  4.  
  5. var graphdriver,graphmode,errorcode,maxx,maxy,i : integer;
  6.  
  7.  
  8. begin
  9. graphdriver := detect;
  10. initgraph(graphdriver,graphmode,'');
  11. errorcode:=graphresult;
  12. if errorcode<> grok then begin
  13.   writeln('Error ',grapherrormsg(errorcode));
  14.   halt(1);
  15. end;
  16. maxx:=getmaxx;
  17. maxy:=getmaxy;
  18. if (maxx<> 639) or (maxy <> 479) then begin
  19.   closegraph;
  20.   writeln(' Wrong resolution :',maxx+1,' x ',maxy+1,', standard 640 x 480 needed');
  21.   halt(1);
  22. end;
  23. Setbkcolor(black);
  24. cleardevice;
  25. setcolor(white);
  26. for i:=0 to 19 do
  27.   line(15+i*32,0,15+i*32,maxy);
  28. for i:=0 to 14 do
  29.   line(0,15+i*32,maxx,15+i*32);
  30. line(0,0,0,maxy);
  31. line(0,0,maxx,0);
  32. line(maxx,maxy,0,maxy);
  33. line(maxx,maxy,maxx,0);
  34. circle(319,240,48);
  35. circle(47,47,48);
  36. circle(maxx-47,47,48);
  37. circle(47,maxy-47,48);
  38. circle(maxx-47,maxy-47,48);
  39. repeat until keypressed;
  40. closegraph;
  41. end.