htanks/Tank.hs

module Tank ( Tank(..)
            ) where

import Data.Fixed

data Tank = Tank
          { posx  :: !Micro
          , posy  :: !Micro
          , dir   :: !Micro
          , aim   :: !Micro
          , speed :: !Micro
          , turnspeed :: !Micro
          , moving :: !Bool
          } deriving Show