htanks/Tank.hs

module Tank ( Tank(..)
            ) where

import Data.Fixed

data Tank = Tank
          { posx :: !Micro
          , posy :: !Micro
          , dir  :: !Micro
          , aim  :: !Micro
          } deriving Show
Initial commit 2010-02-22 16:50:42 +01:00			`module Tank ( Tank(..)`
			`) where`

Used fixed point numbers for coordinates 2010-02-24 02:42:10 +01:00			`import Data.Fixed`

Initial commit 2010-02-22 16:50:42 +01:00			`data Tank = Tank`
Used fixed point numbers for coordinates 2010-02-24 02:42:10 +01:00			`{ posx :: !Micro`
			`, posy :: !Micro`
			`, dir :: !Micro`
Added keyboard events 2010-02-24 03:40:06 +01:00			`, aim :: !Micro`
Initial commit 2010-02-22 16:50:42 +01:00			`} deriving Show`