;; I don't understand why I really need this 1st row offset (bind-func fluid-cube-set-first-row (lambda (cube type vals) (let ((xN (tref cube 0))) (fluid-cube-set-row cube type (* 1 xN) vals))))