module Tank ( Tank(..)
            ) where

data Tank = Tank
          { posx :: !Float
          , posy :: !Float
          , dir :: !Float
          } deriving Show