path: root/Tank.hs

module Tank ( Tank(..)
            ) where

import Data.Fixed

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