blob: 4b68889f6886fcbf7163b2319798229076f2397d (
plain)
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
|