(bind-func get_velocity (lambda (x y) (let ((xs (tref (get_fluid_cube) 6)) (size (tref (get_fluid_cube) 0))) (pref xs (+ x (* y size))))))