htanks/Tank.hs

module Tank ( Tank(..)
            ) where

import Data.Fixed

data Tank = Tank
          { posx  :: !Micro
          , posy  :: !Micro
          , dir   :: !Micro
          , aim   :: !Micro
          , speed :: !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`
Added texture loading 2010-02-25 02:15:26 +01:00			`{ posx :: !Micro`
			`, posy :: !Micro`
			`, dir :: !Micro`
			`, aim :: !Micro`
			`, speed :: !Micro`
Initial commit 2010-02-22 16:50:42 +01:00			`} deriving Show`