X-Git-Url: https://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FGrid.hs;h=7325d2b5b0968f5860834e21b809e9b67995dba8;hb=c4701eee43e313f634d3d76faee681ff28d76b72;hp=435f0952f10c20dfb7445830a782de52de304883;hpb=3d197ab1a23d654d60617db6559daed195f1e016;p=spline3.git

diff --git a/src/Grid.hs b/src/Grid.hs
index 435f095..7325d2b 100644
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -57,10 +57,7 @@ cubes g
                  | i <- [0..xmax],
                    j <- [0..ymax],
                    k <- [0..zmax],
-                   let delta = h g,
-                   let tet_vol = (1/24)*(delta^(3::Int)),
-                   let cube_ijk =
-                           Cube delta i j k (make_values fvs i j k) tet_vol]
+                   let cube_ijk = Cube (h g) i j k (make_values fvs i j k)]
      where
        xmax = xsize - 1
        ymax = ysize - 1