home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / COMPUTER / PRINTER / PRINTPAK.ARC / TESTCRV.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-03-01  |  640 b   |  35 lines
  1. program Testcurve (Input, Output);
  2.  
  3. {$I printpak.pas }
  4.  
  5. var  ch: char;
  6.  
  7.  
  8. procedure Plotcurve;
  9.  
  10. var  I, width: integer;
  11.      scaler:   real;
  12.  
  13. begin  { Plotcurve }
  14.  
  15.     width  := across - (across mod 50);
  16.     scaler := width / 50;
  17.     for I := 0 to width do
  18.         Pset (I, trunc(639-(I/scaler-25)*(I/scaler-25)), 1)
  19.  
  20. end;  { Plotcurve }
  21.  
  22.  
  23. begin  { Testcurve }
  24.  
  25.     Init_mem;
  26.     PixelMasks;
  27.     HiRes;  HiResColor(7);
  28.     Plotcurve;
  29.     write ('Continue (y/n)? ');
  30.     readln (ch);
  31.     if (ch = 'y') then
  32.         Printout;
  33.     TextMode (BW80)
  34.  
  35. end.  { Testcurve }