;; column get helpers ;; where type is ;; 5 for density ;; 6 for x velocity ;; 7 for y velocity (bind-func fluid-cube-get-last-column (lambda (cube type) (let ((xN (tref cube 0))) (fluid-cube-get-row cube type (- xN 2)))))