get-velocity   xtlang


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

Implementation

(bind-func get-velocity
  (lambda (x y z)
    (let ((xs (tref (get-fluid-cube) 6))
    (size (tref (get-fluid-cube) 0)))
      (pref xs (fluid-ix x y z size)))))


Back to Index