#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)))))