20 lines
622 B
Scheme
20 lines
622 B
Scheme
;; (mouse-x rate minval maxval warp lag)
|
|
|
|
;; Cursor UGen. Report mouse location on root window of the machine
|
|
;; that the synthesis server is running on. For a linear mapping set
|
|
;; warp to 0, for an exponential mapping set warp to 1.
|
|
|
|
(import (rsc3))
|
|
|
|
(audition
|
|
(out 0 (mul (sin-osc ar (mouse-x kr 40 10000 1 0.1) 0) 0.1)))
|
|
|
|
(audition
|
|
(out 0 (mce2 (mul (sin-osc ar (mouse-x kr 20 2000 1 0.1) 0)
|
|
(mouse-y kr 0.01 0.1 0 0.1))
|
|
(mul (sin-osc ar (mouse-y kr 20 2000 1 0.1) 0)
|
|
(mouse-x kr 0.01 0.1 0 0.1)))))
|
|
|
|
;; Auto-pilot variant
|
|
(audition
|
|
(out 0 (mul (sin-osc ar (mouse-x* kr 40 10000 1 0.1) 0) 0.1)))
|