28 lines
602 B
Racket
28 lines
602 B
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{(slope in)}
|
|
|
|
|
|
slope of signal. Measures the rate of change per second of a
|
|
signal. Formula implemented is:
|
|
|
|
out[i] = (in[i] - in[i-1]) * sampling_rate
|
|
|
|
in - input signal to measure.
|
|
|
|
a = quadratic noise, b = first derivative line segments, c = second
|
|
derivative constant segments
|
|
|
|
|
|
@racketblock[
|
|
(let* ((r 2)
|
|
(a (lf-noise2 kr r))
|
|
(scale (recip r))
|
|
(b (mul (slope a) scale))
|
|
(c (mul (slope b) (squared scale)))
|
|
(o (sin-osc ar (mul-add (mce3 a b c) 220 220) 0)))
|
|
(audition (out 0 (mix (mul o 1/3)))))
|
|
]
|
|
|
|
|