;; row set helpers (bind-func fluid-cube-set-last-row (lambda (cube type vals) (let ((xN (tref cube 0)) (yN (tref cube 10))) (fluid-cube-set-row cube type (* xN (- yN 2)) vals))))