14 lines
306 B
Haskell
14 lines
306 B
Haskell
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
|