clean-cube   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/examples/contrib/fluid_dynamics.xtm

Implementation

(bind-func clean-cube
  (lambda ()
    (let ((densities (tref (get-fluid-cube) 5))
    (Vx (tref (get-fluid-cube) 6))
    (Vy (tref (get-fluid-cube) 7))
    (Vz (tref (get-fluid-cube) 8))
    (x 0)
    (y 0)
    (z 0)
    (size (tref (get-fluid-cube) 0)))
      (dotimes (x size)
  (dotimes (y size)
    (dotimes (z size)
      (let ((idx (fluid-ix x y z size)))
        (pset! Vx idx 0.0)
        (pset! Vy idx 0.0)
        (pset! Vz idx 0.0)
        (pset! densities idx 0.0))))))))


Back to Index