normI :: Point -> Double
normI p = fromIntegral $ max (abs dx) (abs dy)
  where (dx, dy) = p
normI :: Point -> Double
normI p = fromIntegral $ max (abs dx) (abs dy)
  where (dx, dy) = p
normI p = fromIntegral $ max (abs dx) (abs dy)
  where (dx, dy) = p