home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 July & August / PCWorld_2007-07-08_cd.bin / audio-video / reaper / reaper1861-install.exe / Effects / LOSER / phaseMeter < prev    next >
Encoding:
Text File  |  2007-02-12  |  1.3 KB  |  36 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:Channel Phase Meter
  17. slider1:0,Samplerate
  18. slider2:0<0,1,1{MONO,STEREO}>Output
  19. slider3:0<0,2,1{OUT OFF PHASE,IN PHASE,-}>Stereo Channels
  20. slider4:200<0,1000,1>Check Interval (ms)
  21. @slider
  22. a = srate/1000 * slider4;
  23. @block
  24. (t+=samplesblock) > a ?
  25. (
  26. phase > 0 ? slider3=1:slider3=0;
  27. spl0==spl1 ? (slider2=0;slider3=2;):slider2=1;
  28. slider1=srate;
  29. sliderchange(1+2+4);
  30. phase=0;
  31. t=0;
  32. );
  33. @sample
  34. sign(spl0)!= sign(spl1) ? phase-=1 : phase+=1;
  35.  
  36.