SCClassLibrary/Common/Audio/MacUGens.sc

   1 MouseX : UGen
   2 {
   3         // warp 0 = linear
   4         // warp 1 = exponential
   5         *kr {
   6                 arg minval=0, maxval=1, warp=0, lag=0.2;
   7                 if (warp === \linear, { warp = 0 });
   8                 if (warp === \exponential, { warp = 1 });
   9
  10                 ^this.multiNew('control', minval, maxval, warp, lag)
  11         }
  12         signalRange { ^\unipolar }
  13 }
  14
  15 MouseY : MouseX {}
  16
  17 MouseButton : UGen {
  18         *kr {
  19                 arg minval=0, maxval=1, lag=0.2;
  20                 ^this.multiNew('control', minval, maxval, lag)
  21         }
  22         signalRange { ^\unipolar }
  23 }
  24
  25 KeyState : UGen {
  26         *kr {
  27                 arg keycode=0, minval=0, maxval=1, lag=0.2;
  28                 ^this.multiNew('control', keycode, minval, maxval, lag)
  29         }
  30         signalRange { ^\unipolar }
  31 }