home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 February / PCWorld_2008-02_cd.bin / audio-video / reaper / reaper2028-install.exe / Effects / Misc / reverseness < prev    next >
Text File  |  2007-12-03  |  739b  |  36 lines
  1. // This effect Copyright (C) 2004 and later Cockos Incorporated
  2. // License: GPL - http://www.gnu.org/licenses/gpl.html
  3.  
  4. desc: reverseness (reverses chunks)
  5. slider1:500<0,4000,10>length (ms)
  6. slider2:-6<-120,6,1>wet mix (dB)
  7. slider3:-6<-120,6,1>dry mix (dB)
  8. slider4:0.1<0,1>edge overlap (0..1)
  9.  
  10.  
  11. @init
  12.   pos=0;
  13.  
  14. @slider
  15.   len=srate*slider1/1000; 
  16.   wet=2 ^ (slider2/6); 
  17.   dry=2 ^ (slider3/6); 
  18.   fadelen=len*slider4*0.5;
  19.   freembuf(len*2);
  20.  
  21.  
  22. @sample
  23.  
  24. s0=((len-pos)*2)[0];
  25. s1=((len-pos)*2)[1];
  26. (pos*2)[0]=spl0;
  27. (pos*2)[1]=spl1;
  28.  
  29. pp=len-pos;
  30. w2=pp<fadelen ? pp/fadelen : (pp > len-fadelen?(len-pp)/fadelen:1);
  31.  
  32. spl0=s0*wet*w2 + spl0*(dry + 1-w2);
  33. spl1=s1*wet*w2 + spl1*(dry + 1-w2);
  34.  
  35. (pos+=1)>=len ? pos=0;
  36.