1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
;; test file for eq-band function
;; NOTE: eq-band is happy if you give it all numerical arguments or if you give
;; it a set of time-varying arguments. It will not run with a mixture of scalar
;; and SOUND arguments. Use the Nyquist function CONST to coerce a scalar into
;; a constant-valued SOUND. Be careful to note that CONST returns to zero at the
;; default stop time, e.g. (const 5) lasts 1 second, (stretch 2 (const 5)) lasts
;; 2 seconds, etc.
(play (eq-band (scale 0.1 (noise)) 1000 30 0.3)) ;; 20 dB gain
(play (eq-band (scale 0.1 (noise)) (const 1000) (const 30) (const 0.3)))
; different code is executed if the source has no scale factor...
(play (scale 0.1 (eq-band (noise) (const 1000) (const 30) (const 0.3))))
(play (eq-band (scale 0.1 (noise))
(pwlv 800 1 1200) ; center frequency
(const 30)
(const 0.3)))
(play (stretch 5
(eq-band (scale 0.1 (noise))
(const 1000)
(pwlv -30 1 30) ; gain
(const 0.3))))
(play (stretch 5
(eq-band (scale 0.1 (noise))
(const 1000)
(const 30)
(pwev 2 1 0.1)))) ; bandwidth in octaves
|
