home *** CD-ROM | disk | FTP | other *** search
/ PC World 2008 February / PCWorld_2008-02_cd.bin / audio-video / reaper / reaper2028-install.exe / Effects / SStillwell / 4x4 < prev    next >
Text File  |  2007-12-03  |  3KB  |  104 lines
  1. desc:4x4 3 band EQ with harmonic enhancement
  2.  
  3. slider1:0<0,100,0.1>lo drive%
  4. slider2:0<-12,12,0.1>lo gain
  5. slider3:0<0,100,0.1>mid drive%
  6. slider4:0<-12,12,0.1>mid gain
  7. slider5:0<0,100,0.1>hi drive%
  8. slider6:0<-12,12,0.1>hi gain
  9. slider7:240<60,500,1>low-mid xover for multiband
  10. slider8:2400<510,10000,10>mid-high xover for multiband
  11.  
  12. @init
  13.   log2db = 8.6858896380650365530225783783321; // 20 / ln(10)
  14.   db2log = 0.11512925464970228420089957273422; // ln(10) / 20 
  15.   pi = 3.1415926535;
  16.   halfpi = pi / 2;
  17.   halfpiscaled = halfpi * 1.41254;
  18.  
  19. @slider
  20.  
  21.   mixl = slider1 / 100;
  22.   mixm = slider3 / 100;
  23.   mixh = slider5 / 100;
  24.   drivel = mixl;
  25.   drivem = mixm;
  26.   driveh = mixh;
  27.   drivel1 = 1 / (1 - (drivel / 2));
  28.   drivem1 = 1 / (1 - (drivem / 2));
  29.   driveh1 = 1 / (1 - (driveh / 2));
  30.   drivel2 = drivel / 2;
  31.   drivem2 = drivem / 2;
  32.   driveh2 = driveh / 2;
  33.   al = min(slider7,srate) / srate;
  34.   ah = max( min(slider8,srate) / srate , al );
  35.   mixl1 = 1 - mixl;
  36.   mixm1 = 1 - mixm;
  37.   mixh1 = 1 - mixh;
  38.   mixl2 = mixl / 2;
  39.   mixm2 = mixm / 2;
  40.   mixh2 = mixh / 2;
  41.   gainl = exp(slider2 * db2log);
  42.   gainm = exp(slider4 * db2log);
  43.   gainh = exp(slider6 * db2log);
  44.   mixlg = mixl * gainl;
  45.   mixmg = mixm * gainm;
  46.   mixhg = mixh * gainh;
  47.   mixlgd = mixl * gainl * drivel1;
  48.   mixmgd = mixm * gainm * drivem1;
  49.   mixhgd = mixh * gainh * driveh1;
  50.   mixlg1 = mixl1 * gainl;
  51.   mixmg1 = mixm1 * gainm;
  52.   mixhg1 = mixh1 * gainh;
  53.  
  54.  
  55.  
  56. @sample
  57.  
  58.   dry0 = spl0;
  59.   dry1 = spl1;
  60.  
  61.   lf1h=lfh; 
  62.   lfh=dry0 + lfh - ah*lf1h;
  63.   high_l=dry0-lfh*ah;
  64.  
  65.   lf1l=lfl;
  66.   lfl=dry0 + lfl - al*lf1l; 
  67.   low_l=lfl*al;
  68.  
  69.   mid_l = dry0 - low_l - high_l;
  70.  
  71.   rf1h=rfh; 
  72.   rfh=dry1 + rfh - ah*rf1h;
  73.   high_r=dry1-rfh*ah;
  74.  
  75.   rf1l=rfl;
  76.   rfl=dry1 + rfl - al*rf1l; 
  77.   low_r=rfl*al;
  78.  
  79.   mid_r = dry1 - low_r - high_r;
  80.  
  81.   wet0_l = mixlgd * low_l * (1 - abs(low_l * drivel2));
  82.   wet0_m = mixmgd * mid_l * (1 - abs(mid_l * drivem2));
  83.   wet0_h = mixhgd * high_l * (1 - abs(high_l * driveh2));
  84.   wet0 = (wet0_l + wet0_m + wet0_h);
  85.  
  86.   dry0_l = low_l * mixlg1;
  87.   dry0_m = mid_l * mixmg1;
  88.   dry0_h = high_l * mixhg1;
  89.   dry0 = (dry0_l + dry0_m + dry0_h);
  90.  
  91.   wet1_l = mixlgd * low_r *  (1 - abs(low_r * drivel2));
  92.   wet1_m = mixmgd * mid_r * (1 - abs(mid_r * drivem2));
  93.   wet1_h = mixhgd * high_r * (1 - abs(high_r * driveh2));
  94.   wet1 = (wet1_l + wet1_m + wet1_h);
  95.  
  96.   dry1_l = low_r * mixlg1;
  97.   dry1_m = mid_r * mixmg1;
  98.   dry1_h = high_r * mixhg1;
  99.   dry1 = (dry1_l + dry1_m + dry1_h);
  100.  
  101.   spl0 = dry0 + wet0;
  102.   spl1 = dry1 + wet1;
  103.  
  104.