home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 February / PCWorld_2008-02_cd.bin / audio-video / reaper / reaper2028-install.exe / Effects / LOSER / Saturation < prev    next >
Encoding:
Text File  |  2007-12-09  |  1.9 KB  |  72 lines
  1. // (C) 2006-2007, 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:Saturation
  17.  
  18. slider1:0<0,100,1>Amount (%)
  19.  
  20. @init
  21. gfx_clear = 0;
  22. @slider
  23. foo=slider1/200*$pi;
  24. bar = sin(slider1/200*$pi);
  25.  
  26.  
  27. @sample
  28. slider1 ? (
  29. spl0 = min(max( sin(max(min(spl0,1),-1)*foo)/bar ,-1) ,1);
  30. spl1 = min(max( sin(max(min(spl1,1),-1)*foo)/bar ,-1) ,1);
  31. );
  32.  
  33. @gfx
  34.  
  35. gfxSize = min(gfx_w,gfx_h);
  36.  
  37.  
  38. gfx_r=gfx_g=gfx_b=0; gfx_a=1;
  39. gfx_x=gfx_y=0;
  40. gfx_rectto(gfx_w,gfx_h);
  41.  
  42. gfx_r=gfx_g=gfx_b=0.8; gfx_a=1;
  43. gfx_x=gfxSize/2; gfx_y=0;
  44. gfx_lineto(gfxSize/2,gfxSize,0);
  45. gfx_x=0; gfx_y=gfxSize/2;
  46. gfx_lineto(gfxSize,gfxSize/2,0);
  47.  
  48. gfx_x = gfxSize-20; gfx_y = gfxSize/2;
  49. gfx_drawchar($'I');
  50. gfx_drawchar($'N');
  51.  
  52. gfx_x = gfxSize/2+2; gfx_y = 0;
  53. gfx_drawchar($'O');
  54. gfx_drawchar($'U');
  55. gfx_drawchar($'T');
  56.  
  57. slider1 ? (
  58.     gfx_r=0.5; gfx_g=1; gfx_b=0; gfx_a=1;
  59.     gfx_x=0; gfx_y=gfxSize;
  60.     x = -1;
  61.     while(
  62.         y = -sin(x*foo)/bar;
  63.         gfx_lineto(x*gfxSize/2+gfxSize/2,y*gfxSize/2+gfxSize/2,1);
  64.         (x+=0.1) <= 1;
  65.     );
  66.     gfx_lineto(gfxSize,0,1);
  67. ):(
  68.     gfx_r=0.5; gfx_g=1; gfx_b=0; gfx_a=1;
  69.     gfx_x=0; gfx_y=gfxSize;
  70.     gfx_lineto(gfxSize,0,1);
  71. );
  72.