X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=blobdiff_plain;f=src%2FGrid.hs;h=6170d36d612bb7048ad99c356860f20f5052a4c7;hp=f8fb3310f9ab32cdada246305376ccbf896fb8f2;hb=9712b55ab9a0672a5edc95cb4943d9ffca145c29;hpb=1b041ed87130177797758f471aa78fe55e65c9ae 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