```
(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)))
```

Back to Index