Tank.hs


1
2
3
4
5
6
7
8
9
10

module Tank ( Tank(..)
            ) where

import Data.Fixed

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