home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l048 / 1.ddi / DRAW.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1979-12-31  |  863 b   |  46 lines
  1. program drw;
  2.  
  3. {$i typedef.sys}
  4. {$i graphix.sys}
  5. {$i kernel.sys}
  6. {$i windows.sys}
  7. {$i axis.hgh}
  8. {$i polygon.hgh}
  9.  
  10.  
  11. var
  12.    a:plotarray;
  13.    f:real;
  14.    filename:string[20];
  15.    plotfile:text;
  16.    n,i:integer;
  17.  
  18. begin
  19.      write('give a filename for plot data=:');
  20.      readln(filename);
  21.      assign(plotfile,filename);
  22.      reset(plotfile);
  23.      i:=1;
  24.      while not eof(plotfile) do
  25.       begin
  26.       read(plotfile,f);
  27.       if(i<20) then begin
  28.       a[i,1]:=(i-1)*0.01;
  29.       a[i,2]:=f;
  30.       end;
  31.       i:=i+1;
  32.       end;
  33.      clearscreen;
  34.      n:=20;
  35.      definewindow(1,0,0,Xmaxglb,ymaxglb);
  36.      defineworld(1,0,-500,2,500);
  37.      selectworld(1);
  38.      selectwindow(1);
  39.      initgraphic;
  40.      drawaxis(9,-9,0,0,0,0,-1,-1,false);
  41.      drawpolygon(a,1,n,0,0,0);
  42.      repeat until keypressed;
  43.      leavegraphic;
  44.      end.
  45.  
  46.