draw :: Surface -> C.FixedCamera -> Player -> IO ()
draw screen cam (Player (Rectangle x y _ _)  _ _ image) = do
    img <- image
    let pt = C.shapeToScreen cam (Point x y) 640 480
    case pt of
        Just (Point x' y') -> do
            drawImage screen img (x' , y')
        Nothing -> return True
    return ()
draw :: Surface -> C.FixedCamera -> Player -> IO ()
draw screen cam (Player (Rectangle x y _ _)  _ _ image) = do
    img <- image
    let pt = C.shapeToScreen cam (Point x y) 640 480
    case pt of
        Just (Point x' y') -> do
            drawImage screen img (x' , y')
        Nothing -> return True
    return ()
draw screen cam (Player (Rectangle x y _ _)  _ _ image) = do
    img <- image
    let pt = C.shapeToScreen cam (Point x y) 640 480
    case pt of
        Just (Point x' y') -> do
            drawImage screen img (x' , y')
        Nothing -> return True
    return ()