;; column set helpers (bind-func fluid-cube-set-last-column (lambda (cube type vals) (let ((xN (tref cube 0))) (fluid-cube-set-column cube type (- xN 1) vals))))