2022-08-24 13:53:18 +00:00
|
|
|
#lang scribble/manual
|
|
|
|
@(require (for-label racket))
|
|
|
|
|
2022-08-28 10:27:01 +00:00
|
|
|
@title{formant}
|
|
|
|
|
|
|
|
|
|
|
|
@racketblock[
|
|
|
|
(import (rsc3))
|
|
|
|
]
|
2022-08-24 13:53:18 +00:00
|
|
|
|
|
|
|
Modulate fundamental frequency, formant frequency stays constant.
|
2022-08-28 10:27:01 +00:00
|
|
|
|
|
|
|
@racketblock[
|
2022-08-24 13:53:18 +00:00
|
|
|
(audition
|
|
|
|
(let ((f (x-line kr 400 1000 8 remove-synth)))
|
|
|
|
(out 0 (mul (formant ar f 2000 800) 0.125))))
|
2022-08-28 10:27:01 +00:00
|
|
|
]
|
2022-08-24 13:53:18 +00:00
|
|
|
|
|
|
|
Modulate formant frequency, fundamental frequency stays constant.
|
2022-08-28 10:27:01 +00:00
|
|
|
|
|
|
|
@racketblock[
|
2022-08-24 13:53:18 +00:00
|
|
|
(audition
|
|
|
|
(let ((f (x-line kr 400 4000 8 remove-synth)))
|
|
|
|
(out 0 (mul (formant ar (mce2 200 300) f 200) 0.125))))
|
2022-08-28 10:27:01 +00:00
|
|
|
]
|
2022-08-24 13:53:18 +00:00
|
|
|
|
|
|
|
Modulate width frequency, other frequencies stay constant.
|
2022-08-28 10:27:01 +00:00
|
|
|
|
|
|
|
@racketblock[
|
2022-08-24 13:53:18 +00:00
|
|
|
(audition
|
|
|
|
(let ((w (x-line kr 800 8000 8 remove-synth)))
|
|
|
|
(out 0 (mul (formant ar 400 2000 w) 0.125))))
|
2022-08-28 10:27:01 +00:00
|
|
|
]
|
|
|
|
|
2022-08-24 13:53:18 +00:00
|
|
|
|