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

Back to Index