dom
/
tonalisa
İzle 1
Yıldızla 0
Çatalla 0
Kod Sorunlar 0 Değişiklik İstekleri 0 Sürümler 0 Wiki Aktivite
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1 İşle
1 Dal
Dal: master
Dallar Biçim İmleri
${ item.name }
Branş ${ searchTerm } oluştur
'master'den
${ noResults }
tonalisa/lib/sndlib/nrev.scm

75 satır
2.8KB
Ham Kalıcı Bağlantı Bahset Geçmiş 

  1. ;;; NREV (the most popular Samson box reverb)

  2. 

  3. (provide 'snd-nrev.scm)

  4. 

  5. (if (provided? 'snd)

  6.     (require snd-ws.scm)

  7.     (require sndlib-ws.scm))

  8. 

  9. 

  10. (definstrument (nrev (reverb-factor 1.09) (lp-coeff 0.7) (volume 1.0))

  11.   ;; reverb-factor controls the length of the decay -- it should not exceed (/ 1.0 .823)

  12.   ;; lp-coeff controls the strength of the low pass filter inserted in the feedback loop

  13.   ;; output-scale can be used to boost the reverb output

  14. 

  15.   (let ((dly-len (if (= (floor *clm-srate*) 44100)

  16. 		     #(2467 2753 3217 3533 3877 4127 599 197 67 101 97 73 67 53 37)

  17. 		     (and (= (floor *clm-srate*) 22050)

  18. 			  #(1237 1381 1607 1777 1949 2063 307 97 31 53 47 37 31 29 17))))

  19. 	(chan2 (> (channels *output*) 1))

  20. 	(chan4 (= (channels *output*) 4)))

  21. 	

  22.     (if (not dly-len)

  23. 	(let ((srscale (/ *clm-srate* 25641)))

  24. 

  25. 	  (define (next-prime val)

  26. 	    (if (or (= val 2)

  27. 		    (and (odd? val)

  28. 			 (do ((i 3 (+ i 2))

  29. 			      (lim (sqrt val)))

  30. 			     ((or (= 0 (modulo val i)) (> i lim)) (> i lim)))))

  31. 		val

  32. 		(next-prime (+ val 2))))

  33. 

  34. 	  (set! dly-len #(1433 1601 1867 2053 2251 2399 347 113 37 59 53 43 37 29 19))

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

  36. 	      ((= i 15))

  37. 	    (let ((val (floor (* srscale (dly-len i)))))

  38. 	      (if (even? val) (set! val (+ val 1)))

  39. 	      (set! (dly-len i) (next-prime val))))))

  40. 

  41.     (let ((len (+ (floor *clm-srate*) (framples *reverb*)))

  42. 	   (comb1 (make-comb (* .822 reverb-factor) (dly-len 0)))

  43. 	   (comb2 (make-comb (* .802 reverb-factor) (dly-len 1)))

  44. 	   (comb3 (make-comb (* .773 reverb-factor) (dly-len 2)))

  45. 	   (comb4 (make-comb (* .753 reverb-factor) (dly-len 3)))

  46. 	   (comb5 (make-comb (* .753 reverb-factor) (dly-len 4)))

  47. 	   (comb6 (make-comb (* .733 reverb-factor) (dly-len 5)))

  48. 	   (low (make-one-pole lp-coeff (- lp-coeff 1.0)))

  49. 	   (allpass1 (make-all-pass -0.700 0.700 (dly-len 6)))

  50. 	   (allpass2 (make-all-pass -0.700 0.700 (dly-len 7)))

  51. 	   (allpass3 (make-all-pass -0.700 0.700 (dly-len 8)))

  52. 	   (allpass4 (make-all-pass -0.700 0.700 (dly-len 9))) ; 10 for quad

  53. 	   (allpass5 (make-all-pass -0.700 0.700 (dly-len 11)))

  54. 	   (allpass6 (and chan2 (make-all-pass -0.700 0.700 (dly-len 12))))

  55. 	   (allpass7 (and chan4 (make-all-pass -0.700 0.700 (dly-len 13))))

  56. 	   (allpass8 (and chan4 (make-all-pass -0.700 0.700 (dly-len 14)))))

  57. 

  58.       (let ((filts (if (not chan2)

  59. 		       (vector allpass5)

  60. 		       (if (not chan4)

  61. 			   (vector allpass5 allpass6)

  62. 			   (vector allpass5 allpass6 allpass7 allpass8))))

  63. 	    (combs (make-comb-bank (vector comb1 comb2 comb3 comb4 comb5 comb6)))

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

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

  66. 	    ((= i len))

  67. 	  (out-bank filts i

  68. 		      (all-pass allpass4

  69. 				(one-pole low

  70. 					  (all-pass-bank allpasses 

  71. 							 (comb-bank combs (* volume (ina i *reverb*))))))))))))

  72. 									

  73. 

  74. ;;; (with-sound (:reverb nrev) (outa 0 .1) (outa 0 .5 *reverb*))