;; (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)))))