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