home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / printing.swg / 0002_LJ-G-TST.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  396b  |  23 lines
  1. Uses
  2.   Graph, Crt, kasutils,ljGraph;
  3.  
  4. Var gd,gm : Integer;
  5.     y0,y1,y2,x1,x2 : Integer;
  6. begin
  7.  egavga_exe;
  8.  gd := detect;
  9.  InitGraph(gd,gm,'');
  10.  setcolor(10);
  11.  line(50,100,431,242);
  12.  setcolor(blue);
  13.  Y0 := 10;
  14.  Y1 := 60;
  15.  Y2 := 110;
  16.  X1 := 10;
  17.  X2 := 50;
  18.  Bar3D(X1, Y0, X2, Y1, 10, topOn);
  19.  Bar3D(X1, Y1, X2, Y2, 10, topoff);
  20.  printpause(False);
  21.  readln;
  22.  closeGraph;
  23. end.