let i' = (fromIntegral i) * 0.5,
let j' = (fromIntegral j) * 0.5,
let k' = (fromIntegral k) * 0.5]
where
g = make_grid 1 trilinear
c0 = fromJust $ cube_at g 1 1 1
let i' = (fromIntegral i) * 0.5,
let j' = (fromIntegral j) * 0.5,
let k' = (fromIntegral k) * 0.5]
where
g = make_grid 1 trilinear
c0 = fromJust $ cube_at g 1 1 1