home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SPX10.ZIP / SPX_INT.ZIP / SPX_EFF.INT next >
Encoding:
Text File  |  1993-05-04  |  1.2 KB  |  41 lines
  1. Unit SPX_EFF;
  2.  
  3. { SPX Library Version 1.0  Copyright 1993 Scott D. Ramsay }
  4.  
  5. Interface
  6.  
  7. Uses SPX_VGA;
  8.  
  9. const
  10.   wmax = 100;                           { Maximum cosine table size for wave }
  11.  
  12. type
  13.   usercp       = procedure (f,t,yline:longint);
  14.   Pcycle       = ^Tcycle;
  15.   Tcycle       = object
  16.                    cyc_next,
  17.                    from_x,from_y,
  18.                    cyc_x,cyc_y,
  19.                    cyc_width,
  20.                    cyc_height,
  21.                    cycley,
  22.                    cyclex,fr_size,
  23.                    am_size         : word;
  24.                    cycle_cos       : array[0..wmax-1] of integer;
  25.                    constructor init(freq,size:integer);
  26.                    destructor done;virtual;
  27.                    procedure changewave(freq,size:integer);virtual;
  28.                    procedure docycle(from,too,mode:byte); virtual;
  29.                    procedure cycle_move; virtual;
  30.                    procedure adjustcyclenext; virtual;
  31.                  end;
  32.  
  33. var
  34.   usercycle : usercp;     { user cycle procedure }
  35.  
  36.  
  37. procedure linemove(s,d:longint;cnt:word);
  38. procedure wordmove(var source,dest;cnt:word);
  39. procedure cycleline(f,t:longint;cyclex,cycle_width:word);
  40.  
  41.