49 lines
1.4 KiB
Scheme
49 lines
1.4 KiB
Scheme
|
;; (osc rate bufnum freq phase)
|
||
|
|
|
||
|
|
;; linear interpolating wavetable lookup oscillator with frequency and
|
||
|
|
;; phase modulation inputs.
|
||
|
|
|
||
|
|
;; This oscillator requires a buffer to be filled with a wavetable
|
||
|
|
;; format signal. This preprocesses the Signal into a form which can
|
||
|
|
;; be used efficiently by the oscillator. The buffer size must be a
|
||
|
|
;; power of 2.
|
||
|
|
|
||
|
|
;; This can be acheived by creating a Buffer object and sending it one
|
||
|
|
;; of the "b_gen" messages ( sine1, sine2, sine3 ) with the wavetable
|
||
|
|
;; flag set to true.
|
||
|
|
|
||
|
|
;; Note about wavetables: oscN requires the b_gen sine1 wavetable flag
|
||
|
|
;; to be OFF. osc requires the b_gen sine1 wavetable flag to be ON.
|
||
|
|
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(async fd (b-alloc 10 512 1))
|
||
|
|
(async fd (b-gen1 10 "sine1" (list (+ 1 2 4) 1 1/2 1/3 1/4 1/5)))))
|
||
|
|
|
||
|
|
(audition (out 0 (mul (osc ar 10 220 0) 0.1)))
|
||
|
|
|
||
|
|
;; Modulate freq
|
||
|
|
|
||
|
|
(let ((f (x-line kr 2000 200 1 remove-synth)))
|
||
|
|
(audition (out 0 (mul (osc ar 10 f 0) 0.5))))
|
||
|
|
|
||
|
|
;; Modulate freq
|
||
|
|
|
||
|
|
(let* ((f1 (x-line kr 1 1000 9 remove-synth))
|
||
|
|
(f2 (mul-add (osc ar 10 f1 0) 200 800)))
|
||
|
|
(audition (out 0 (mul (osc ar 10 f2 0) 0.25))))
|
||
|
|
|
||
|
|
;; Modulate phase
|
||
|
|
|
||
|
|
(let* ((f (x-line kr 20 8000 10 remove-synth))
|
||
|
|
(p (mul (osc ar 10 f 0) (* 2 pi))))
|
||
|
|
(audition (out 0 (mul (osc ar 10 800 p) 0.25))))
|
||
|
|
|
||
|
|
;; Change the buffer while its playing
|
||
|
|
|
||
|
|
(audition (out 0 (mul (osc ar 10 220 0) 0.1)))
|
||
|
|
|
||
|
|
(with-sc3
|
||
|
|
(lambda (fd)
|
||
|
|
(async fd (b-gen1 10 "sine1" (list (+ 1 2 4) 1 (random 0 1) 1/4)))))
|