update-fluid-sym-state   xtlang

(bind-func update-fluid-sym-state
  (lambda ()
    (let ((i 0))
      (dotimes (i 20)
  (if (> (note-active i) 0)
      (let ((x (dtoi64 (range-limit (* 322.0 (- (* 1.1 (pref osc_xs i)) .05)) 1.0 321.0)))
      (ya (pref osc_ys i))
      (y (dtoi64 (+ 1.0 (* 181.0 ya))))
      (xx (pref osc_xxs i))
      (yy (pref osc_yys i)))
        (if (< x 320)
      (add-velocity-1 x y (* 1000.0 xx) (* -1000.0 yy))
      (add-velocity-2 x y (* 1000.0 xx) (* -1000.0 yy)))
        ;(add-velocity-1 x y (* 1000.0 xx) (* -1000.0 yy))
        1)
      1))
      1)))