getSlope :: Point -> Point -> Bool
getSlope (x, y) (x1, y1)
    | slope <= 1 = hori
    | otherwise  = verti
    where
        slope = abs (fromIntegral (y1 - y) /  fromIntegral (x1 - x))
getSlope :: Point -> Point -> Bool
getSlope (x, y) (x1, y1)
    | slope <= 1 = hori
    | otherwise  = verti
    where
        slope = abs (fromIntegral (y1 - y) /  fromIntegral (x1 - x))
getSlope (x, y) (x1, y1)
    | slope <= 1 = hori
    | otherwise  = verti
    where
        slope = abs (fromIntegral (y1 - y) /  fromIntegral (x1 - x))