(bind-func fluid-cube-get-first-row (lambda (cube:fluidcube* type) (let ((xN (tref cube 0))) (fluid-cube-get-row cube type (* 1 xN)))))