update-borders   xtlang

(bind-func update-borders
  (lambda ()
    (let ((xs1 (fluid-cube-get-last-row (get-fluid-cube-1) 6))
    (ys1 (fluid-cube-get-last-row (get-fluid-cube-1) 7))
    (ds1 (fluid-cube-get-last-row (get-fluid-cube-1) 5))
    (ds2 (fluid-cube-get-first-row (get-fluid-cube-2) 5))
    (xs2 (fluid-cube-get-first-row (get-fluid-cube-2) 6))
    (ys2 (fluid-cube-get-first-row (get-fluid-cube-2) 7)))
      (fluid-cube-set-first-row (get-fluid-cube-2) 5 ds1)
      (fluid-cube-set-first-row (get-fluid-cube-2) 6 xs1)
      (fluid-cube-set-first-row (get-fluid-cube-2) 7 ys1)
      (fluid-cube-set-last-row (get-fluid-cube-1) 5 ds2)
      (fluid-cube-set-last-row (get-fluid-cube-1) 6 xs2)
      (fluid-cube-set-last-row (get-fluid-cube-1) 7 ys2)
      (free xs1) (free xs2) (free ys1) (free ys2) (free ds1) (free ds2)
      void)))