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

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