fluid-step-cube   xtlang

(bind-func fluid-step-cube
  (lambda (cube:fluidcube*)
    (let ((N (tref cube 0))
    (Ny (tref cube 10))
    (dt (tref cube 1))
    (diff (tref cube 2))
    (visc (tref cube 3))
    (s (tref cube 4))
    (k 0)
    (iter 3)
    (kk 0)
    (density (tref cube 5))
    (Vx (tref cube 6))
    (Vy (tref cube 7))
    (Vx0 (tref cube 8))
    (Vy0 (tref cube 9))
    (time (now)))
      (fluid-diffuse 1 Vx0 Vx visc dt iter Ny N)
      (fluid-diffuse 2 Vy0 Vy visc dt iter Ny N)