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