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