2022-08-24 13:53:18 +00:00
|
|
|
#lang scribble/manual
|
|
|
|
@(require (for-label racket))
|
|
|
|
|
2022-08-28 10:27:01 +00:00
|
|
|
@title{blip}
|
2022-08-24 13:53:18 +00:00
|
|
|
|
2022-08-28 10:27:01 +00:00
|
|
|
|
|
|
|
@racketblock[
|
|
|
|
(import (rsc3))
|
|
|
|
]
|
|
|
|
|
|
|
|
|
|
|
|
@racketblock[
|
|
|
|
(audition (out 0 (mul (blip ar 440 200) 0.15)))
|
|
|
|
]
|
2022-08-24 13:53:18 +00:00
|
|
|
|
|
|
|
Modulate frequency
|
2022-08-28 10:27:01 +00:00
|
|
|
|
|
|
|
@racketblock[
|
2022-08-24 13:53:18 +00:00
|
|
|
(let ((f (x-line kr 20000 200 6 remove-synth)))
|
|
|
|
(audition (out 0 (mul (blip ar f 100) 0.2))))
|
2022-08-28 10:27:01 +00:00
|
|
|
]
|
2022-08-24 13:53:18 +00:00
|
|
|
|
|
|
|
Modulate number of harmonics.
|
2022-08-28 10:27:01 +00:00
|
|
|
|
|
|
|
@racketblock[
|
2022-08-24 13:53:18 +00:00
|
|
|
(let ((h (line kr 1 100 20 remove-synth)))
|
|
|
|
(audition (out 0 (mul (blip ar 200 h) 0.2))))
|
2022-08-28 10:27:01 +00:00
|
|
|
]
|
|
|
|
|
2022-08-24 13:53:18 +00:00
|
|
|
|