Texture.hs


1
2
3
4
5
6
7
8
9

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

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

data Texture = TextureWood | TextureTank | TextureCannon
             deriving (Eq, Ord, Show)