init-osc-vars   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/kinect_fire.xtm

Implementation

(bind-func init-osc-vars
  (lambda ()
    (let ((i 0))
      (dotimes (i 20)
  (pset! osc_xs i 100.0)
  (pset! osc_ys i 100.0)
  (pset! osc_xxs i 0.0)
  (pset! osc_yys i 0.0)
  (pset! osc_yys i 0.0)
  (pset! osc_vols i 0.0)
  (pset! osc_grads i 0.0)
  (pset! osc_alive i 0)))))


Back to Index