home *** CD-ROM | disk | FTP | other *** search
/ PC Musician 2000 / PC_Musician_2000.iso / PCMUSIC / MISC / SONITICA / DEFMOD.SON < prev    next >
Encoding:
Text File  |  1995-10-29  |  777 b   |  31 lines
  1. #include sonc.h
  2. #include effects.h
  3.  
  4. {
  5. add = 0;
  6. ladd = 0;
  7. radd = 0; 
  8. rvbadd = 0;
  9.  
  10. #include scramble.son
  11.  
  12. //#define chorus(input, width, depth, mix, rate) (1-mix)*input + mix*delay(input, width+depth, wavegen(POS_TRIANGLE, delta(rate))*sec(depth))
  13. //ladd = chorus(ladd, 0.0, 0.01, chormix, 0.1);
  14. //add = add+chorus(-add, 0, 0.01, 0.5, 0.3);
  15.  
  16. #define reverb
  17. #ifdef reverb
  18. sreverb(add+ladd+radd, lrvb, rrvb, 0.34, 0.9, 4);
  19. //hallreverb(ladd+radd, lrvb, rrvb);
  20. #else
  21. lrvb = 0;
  22. rrvb = 0;
  23. #endif
  24. #define rvbscal 75
  25. //ladd = 0; radd = 0;
  26.  
  27. outdevice(0, 22050, 2, 2, (add+ladd)/8+lrvb/rvbscal, (add+radd)/8+rrvb/rvbscal)
  28. //outdevice(2, 11025, 1, 1, (ladd+radd)/16+lrvb/rvbscal)
  29. //outfile("test.snd", 22050, 2, 2, ladd/8+lrvb/rvbscal, radd/8+rrvb/rvbscal)
  30. }
  31.