dom
/
tonalisa
Bevaka 1
Stjärnmärk 0
Förgrening 0
Kod Ärenden 0 Pull-förfrågningar 0 Släpp 0 Wiki Aktiviteter
Du kan inte välja fler än 25 ämnen Ämnen måste starta med en bokstav eller siffra, kan innehålla bindestreck ('-') och vara max 35 tecken långa.
1 Commit
1 Gren
Gren: master
Grenar Taggar
${ item.name }
Skapa branchen ${ searchTerm }
från 'master'
${ noResults }
tonalisa/lib/sndlib/jcrev.scm

46 lines
2.0KB
Rå Permalänk Blame Historik 

  1. (provide 'snd-jcrev.scm)

  2. 

  3. (if (provided? 'snd)

  4.     (require snd-ws.scm)

  5.     (require sndlib-ws.scm))

  6. 

  7. 

  8. (definstrument (jc-reverb low-pass (volume 1.0) amp-env)

  9.   "(jc-reverb (low-pass #f) (volume 1.0) (amp-env #f)) -- Chowning reverb"

  10.   (let ((allpass1 (make-all-pass -0.700 0.700 1051))

  11. 	(allpass2 (make-all-pass -0.700 0.700  337))

  12. 	(allpass3 (make-all-pass -0.700 0.700  113))

  13. 	(comb1 (make-comb 0.742 4799))

  14. 	(comb2 (make-comb 0.733 4999))

  15. 	(comb3 (make-comb 0.715 5399))

  16. 	(comb4 (make-comb 0.697 5801))

  17. 	(chns (channels *output*))

  18. 	(file-dur (framples *reverb*)))

  19. 

  20.     (let ((len (floor (+ *clm-srate* file-dur)))

  21. 	  (filts (if (= chns 1) 

  22. 		     (vector (make-delay (seconds->samples .013)))

  23. 		     (vector (make-delay (seconds->samples .013))

  24. 			     (make-delay (seconds->samples .011)))))

  25. 	  (combs (make-comb-bank (vector comb1 comb2 comb3 comb4)))

  26. 	  (allpasses (make-all-pass-bank (vector allpass1 allpass2 allpass3))))

  27. 

  28.       (if (or amp-env low-pass)

  29. 	  (let ((flt (and low-pass (make-fir-filter 3 (float-vector 0.25 0.5 0.25))))

  30. 		(envA (make-env :envelope (or amp-env '(0 1 1 1)) :scaler volume :duration (/ len *clm-srate*))))

  31. 	    (if low-pass

  32. 		(do ((i 0 (+ i 1)))

  33. 		    ((= i len))

  34. 		  (out-bank filts i (* (env envA) (fir-filter flt (comb-bank combs (all-pass-bank allpasses (ina i *reverb*)))))))

  35. 		(do ((i 0 (+ i 1)))

  36. 		    ((= i len))

  37. 		  (out-bank filts i (* (env envA) (comb-bank combs (all-pass-bank allpasses (ina i *reverb*))))))))

  38. 	  (do ((i 0 (+ i 1)))

  39. 	      ((= i len))

  40. 	    (out-bank filts i (* volume (comb-bank combs (all-pass-bank allpasses (ina i *reverb*))))))))))

  41.   

  42. ;;; (with-sound (:reverb jc-reverb) (fm-violin 0 .1 440 .1 :reverb-amount .3))

  43. ;;; (with-sound (:reverb jc-reverb) (outa 0 .1) (outa 0 .5 *reverb*))

  44. ;;; (with-sound (:reverb jc-reverb :reverb-data '((:low-pass #t))) (outa 0 .1) (outa 0 .5 *reverb*))

  45. ;;; (with-sound (:statistics #t :reverb jc-reverb :reverb-data '((:low-pass #t))) (outa 0 .1) (outa 100000 .1) (outa 0 .5 *reverb*) (outa 100000 .5 *reverb*))