Eternal10Seconds-0.1: Pos.hs

module Pos where

-- ˆÊ’u
type Pos = (Int, Int)

type RealPos = (Double, Double)

fromPos :: Num a => Pos -> (a, a)
fromPos (x, y) = (fromIntegral x, fromIntegral y)

floorPos :: RealPos -> (Int, Int)
floorPos (x, y) = (floor x, floor y)