home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l048 / 1.ddi / DRAW1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1979-12-31  |  1.6 KB  |  73 lines
  1. program dpa;
  2.  
  3. {$i typedef.sys}
  4. {$i graphix.sys}
  5. {$i kernel.sys}
  6. {$i windows.sys}
  7. {$i axis.hgh}
  8. {$i modpoly.hgh}
  9. {$i polygon.hgh}
  10.  
  11. {type
  12.     plottype=record
  13.                P1,P2,P3,P4,P5,P6,P7,P8,P9,V1,V2,V3,V4,V5,F1,F2,F3,F4,F5,F6,F7:real;
  14.              end; }
  15.  
  16. var
  17.    n,i,n1,n2,n3:integer;
  18.    filename:string[20];
  19.    plotfile:text;
  20.   { plot:plottype;
  21.    dt,fx,fy:real;  }
  22.    a:plotarray;
  23.    f:real;
  24.  
  25. begin
  26.  
  27.      Initgraphic;
  28.    {  write('The number of vertices of polygon:');
  29.      readln(n);   }
  30. {     write('The starting beat:');
  31.      readln(n1);
  32.      n3:=(n1-1)*85+1;}
  33.    {  write('Time interval:');
  34.      readln(dt); }
  35.    {  dt:=0.01;                      }
  36.    {  write('Enter coefficients fx,fy:');
  37.      readln(fx,fy); }
  38.      write('Enter a filename for plot data:');
  39.      readln(filename);
  40.      assign(plotfile,filename);
  41.      reset(plotfile);
  42.     { n2:=1;             }
  43.      i:=1;
  44.      while not eof(plotfile) do
  45.       begin
  46.       { with plot do
  47.         begin}
  48.          read(plotfile,f);
  49.          if(i<1000) then begin
  50.                a[i,1]:=(i-1)*0.01;
  51.                a[i,2]:=f;
  52.                i:=i+1
  53.          end;
  54.      {  n2:=n2+1 }
  55.       end;
  56.      close(plotfile);
  57.      clearscreen;
  58.      definewindow(1,0,0,Xmaxglb div 2,150 );
  59.      defineheader(1,'Pecp CURVE');
  60.      defineworld(1,0,-1500,10,1500);
  61.      selectworld(1);
  62.      selectwindow(1);
  63.      setbackground(0);
  64.      setheaderon;
  65.      drawborder;
  66.      drawaxis(8,-8,0,0,0,0,-1,-1,false);
  67.     { scalepolygon(a,85,fx,fy);}
  68.      drawpolygon(a,1,398,0,0,0);
  69.      repeat until keypressed;
  70.    {  hardcopy(false,6);}
  71.      Leavegraphic
  72. end.
  73.