+import ScaleFactor (ScaleFactor)
+
+
+type Values sh = Array U sh Double
+type Values2D = Values DIM2
+type Values3D = Values DIM3
+
+
+empty3d :: Values3D
+empty3d = Data.Array.Repa.fromListUnboxed (Z :. 0 :. 0 :. 0) []
+
+
+dims :: Values3D -> (Int, Int, Int)
+dims v3d =
+ let (Z :. x :. y :. z) = extent v3d
+ in
+ (x,y,z)
+