22 lines
567 B
Scheme
22 lines
567 B
Scheme
;; (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.
|
|
|
|
(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)))))
|