#lang scribble/manual
@(require (for-label racket))

@title{(schmidt in lo hi)}

schmidt trigger.  When in crosses to greater than hi, output 1.0,
then when signal crosses lower than lo output 0.0. output is
initially zero.

in - signal to be tested
lo - low threshold
hi - high threshold

(let* ((in (lf-noise1 kr 3))
       (octave (add (schmidt in -0.15 0.15) 1))
       (f (add (mul in 200) (mul 500 octave))))
  (audition (out 0 (mul (sin-osc ar f 0) 0.1))))