X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FGrid.hs;h=6170d36d612bb7048ad99c356860f20f5052a4c7;hb=9712b55ab9a0672a5edc95cb4943d9ffca145c29;hp=f8fb3310f9ab32cdada246305376ccbf896fb8f2;hpb=ac9636ad08f50d7d40188dc8d29a8e2fdf169426;p=spline3.git diff --git a/src/Grid.hs b/src/Grid.hs index f8fb331..6170d36 100644 --- a/src/Grid.hs +++ b/src/Grid.hs @@ -113,13 +113,11 @@ find_containing_cube g p = k = calculate_containing_cube_coordinate g z -{-# INLINE zoom_lookup #-} zoom_lookup :: Values3D -> ScaleFactor -> a -> (R.DIM3 -> Double) zoom_lookup v3d scale_factor _ = zoom_result v3d scale_factor -{-# INLINE zoom_result #-} zoom_result :: Values3D -> ScaleFactor -> R.DIM3 -> Double zoom_result v3d (sfx, sfy, sfz) (R.Z R.:. m R.:. n R.:. o) = f p