Tank.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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