31 lines
636 B
Racket
31 lines
636 B
Racket
#lang scribble/manual
|
|
@(require (for-label racket))
|
|
|
|
@title{(gt a b)}
|
|
|
|
|
|
Greater than, written '>' in sclang. Signal is 1.0 if a > b,
|
|
otherwise it is 0.0. Similarly LT is <, GE >=, LE <= and EQ ==.
|
|
These can be useful for triggering purposes, among other things.
|
|
|
|
|
|
@racketblock[
|
|
(let* ((o (sin-osc kr 1 0))
|
|
(t (list (gt o 0)
|
|
(ge o 0)
|
|
(lt o 0)
|
|
(le o 0)
|
|
(eq o 0)
|
|
(mul (lt o 0.001) (gt o -0.001))))
|
|
(f (list 220
|
|
330
|
|
440
|
|
550
|
|
660
|
|
770))
|
|
(p (env-perc 0.01 1 1 (list -4 -4)))
|
|
(e (env-gen kr (make-mce t) 0.1 0 1 do-nothing p)))
|
|
(audition (out 0 (mix (mul (sin-osc ar (make-mce f) 0) e)))))
|
|
]
|
|
|
|
|