(bind-func add-velocity (lambda (x y z amount-x amount-y amount-z) (fluid-cube-add-velocity (get-fluid-cube) x y z amount-x amount-y amount-z)))