17 lines
379 B
Text
17 lines
379 B
Text
|
#lang scribble/manual
|
||
|
|
@(require (for-label racket))
|
||
|
|
|
||
|
|
@title{(excess a b)}
|
||
|
|
|
||
|
|
clipping residual. Returns the difference of the original signal
|
||
|
|
and its clipped form: (a - clip2(a,b)).
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (excess (f-sin-osc ar 1000 0) (line kr 0 1 8 do-nothing))))
|
||
|
|
|
||
|
|
(audition
|
||
|
|
(out 0 (let ((a (f-sin-osc ar 1000 0))
|
||
|
|
(b (line kr 0 1 8 do-nothing)))
|
||
|
|
(sub a (clip2 a b)))))
|
||
|
|
|