32 lines
1,020 B
Scheme
32 lines
1,020 B
Scheme
|
;; (hypot x y)
|
||
|
|
|
||
|
|
;; Returns the square root of the sum of the squares of a and b. Or
|
||
|
|
;; equivalently, the distance from the origin to the point (x, y).
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (sin-osc ar 440 0)
|
||
|
|
(hypot (mouse-x kr 0 0.1 0 0.1)
|
||
|
|
(mouse-y kr 0 0.1 0 0.1)))))
|
||
|
|
|
||
|
|
;; Object travels 200 meters in 6 secs (=120kph) passing 10 meters
|
||
|
|
;; from the listener. The speed of sound is 344 meters/sec.
|
||
|
|
|
||
|
|
(let* ((x 10)
|
||
|
|
(y (mul (lf-saw kr 1/6 0) 100))
|
||
|
|
(distance (hypot x y))
|
||
|
|
(velocity (slope distance))
|
||
|
|
(pitch-ratio (fdiv (sub 344 velocity) 344))
|
||
|
|
(amplitude (fdiv 10 (squared distance))))
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (f-sin-osc ar (mul 1000 pitch-ratio) 0)
|
||
|
|
amplitude))))
|
||
|
|
|
||
|
|
(let* ((x 10)
|
||
|
|
(y (mul (lf-saw kr 1/6 0) 100))
|
||
|
|
(distance (hypot x y))
|
||
|
|
(amplitude (fdiv 40 (squared distance)))
|
||
|
|
(sound (rlpf (mul (f-sin-osc ar 200 0) (lf-pulse ar 31.3 0 0.4)) 400 0.3)))
|
||
|
|
(audition
|
||
|
|
(out 0 (mul (delay-l sound 110/344 (fdiv distance 344))
|
||
|
|
amplitude))))
|