home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 February / PCWorld_2008-02_cd.bin / audio-video / reaper / reaper2028-install.exe / Effects / LOSER / 3BandSplitter < prev    next >
Text File  |  2007-12-03  |  2KB  |  49 lines
  1. // (C) 2006, Michael Gruhn.
  2.  
  3. // NO WARRANTY IS GRANTED. THIS PLUG-IN IS PROVIDED ON AN "AS IS" BASIS, WITHOUT
  4. // WARRANTY OF ANY KIND. NO LIABILITY IS GRANTED, INCLUDING, BUT NOT LIMITED TO,
  5. // ANY DIRECT OR INDIRECT,  SPECIAL,  INCIDENTAL OR CONSEQUENTIAL DAMAGE ARISING
  6. // OUT OF  THE  USE  OR INABILITY  TO  USE  THIS PLUG-IN,  COMPUTER FAILTURE  OF
  7. // MALFUNCTION INCLUDED.  THE USE OF THE SOURCE CODE,  EITHER  PARTIALLY  OR  IN
  8. // TOTAL, IS ONLY GRANTED,  IF USED IN THE SENSE OF THE AUTHOR'S INTENTION,  AND
  9. // USED WITH ACKNOWLEDGEMENT OF THE AUTHOR. FURTHERMORE IS THIS PLUG-IN A  THIRD
  10. // PARTY CONTRIBUTION,  EVEN IF INCLUDED IN REAPER(TM),  COCKOS INCORPORATED  OR
  11. // ITS AFFILIATES HAVE NOTHING TO DO WITH IT.  LAST BUT NOT LEAST, BY USING THIS
  12. // PLUG-IN YOU RELINQUISH YOUR CLAIM TO SUE IT'S AUTHOR, AS WELL AS THE CLAIM TO
  13. // ENTRUST SOMEBODY ELSE WITH DOING SO.
  14.  
  15.  
  16. desc:3-Band Splitter (Splits In Low:CH1+2,Mid:CH3+4,High:CH5+6)
  17. slider1:200<0,22000,1>Frequency (Hz)
  18. slider2:2000<0,22000,1>Frequency (Hz)
  19.  
  20. @init
  21. cDenorm=10^-30;
  22.  
  23. @slider
  24. freqHP = max(min(slider2,srate),slider4);
  25. xHP = exp(-2.0*$pi*freqHP/srate);
  26. a0HP = 1.0-xHP;
  27. b1HP = -xHP;
  28.  
  29. freqLP = min(min(slider1,srate),slider2);
  30. xLP = exp(-2.0*$pi*freqLP/srate);
  31. a0LP = 1.0-xLP;
  32. b1LP = -xLP;
  33.  
  34. @sample
  35.  
  36. s0 = spl0;
  37. s1 = spl1;
  38.  
  39. spl0 = (tmplLP = a0LP*s0 - b1LP*tmplLP + cDenorm);
  40. spl1 = (tmprLP = a0LP*s1 - b1LP*tmprLP + cDenorm);
  41.  
  42. spl4 = s0 - (tmplHP = a0HP*s0 - b1HP*tmplHP + cDenorm);
  43. spl5 = s1 - (tmprHP = a0HP*s1 - b1HP*tmprHP + cDenorm);
  44.  
  45. spl2 = s0 - spl0 - spl4;
  46. spl3 = s1 - spl1 - spl5;
  47.  
  48.  
  49.