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