module Tank ( Tank(..)
            ) where

import Data.Fixed

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