-zoom_result :: Grid -> ScaleFactor -> R.DIM3 -> Double
-zoom_result g (sfx, sfy, sfz) (R.Z R.:. i R.:. j R.:. k) =
- f p
+zoom_result :: Grid -> PolynomialArray -> ScaleFactor -> R.DIM3 -> Double
+zoom_result g polynomials (sfx, sfy, sfz) (R.Z R.:. m R.:. n R.:. o) =
+ (polynomials ! (i, j, k, (number t))) p