htanks/Texture.hs

module Texture ( Texture(..)
               , TextureObject
               ) where

import Graphics.Rendering.OpenGL.GL.Texturing.Objects (TextureObject)

data Texture = TextureWood | TextureTank
             deriving (Eq, Ord, Show)
Cache textures in game state 2010-02-25 03:16:44 +01:00			`module Texture ( Texture(..)`
			`, TextureObject`
			`) where`

			`import Graphics.Rendering.OpenGL.GL.Texturing.Objects (TextureObject)`

Added tank texture and turn to drive direction 2010-02-25 04:38:14 +01:00			`data Texture = TextureWood \| TextureTank`
Cache textures in game state 2010-02-25 03:16:44 +01:00			`deriving (Eq, Ord, Show)`