(bind-func add-density (lambda (x:i64 y:i64 z:i64 amount:double) (let ((cube (get-fluid-cube))) (fluid-cube-add-density cube x y z amount))))