diff options
Diffstat (limited to 'src/Vivant/Texture.hs')
-rw-r--r-- | src/Vivant/Texture.hs | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/src/Vivant/Texture.hs b/src/Vivant/Texture.hs index dceba80..d81a28a 100644 --- a/src/Vivant/Texture.hs +++ b/src/Vivant/Texture.hs @@ -1,19 +1,18 @@ module Vivant.Texture (initTexture, loadTexture) where -import Codec.Picture.Jpg (decodeJpeg) -import Codec.Picture.Types (convertImage) -import qualified Data.ByteString as BS -import qualified Data.Vector.Storable as V +import Codec.Picture.Jpg (decodeJpeg) +import Codec.Picture.Types (convertImage) +import qualified Data.ByteString as BS +import qualified Data.Vector.Storable as V import qualified Graphics.Rendering.OpenGL as GL - -import Paths_vivant (getDataDir) +import Paths_vivant (getDataDir) initTexture = do - GL.textureWrapMode GL.Texture2D GL.S $= (GL.Mirrored, GL.Repeat) - GL.textureWrapMode GL.Texture2D GL.T $= (GL.Mirrored, GL.Repeat) - GL.textureBorderColor GL.Texture2D $= GL.Color4 1 1 1 1 - GL.textureFilter GL.Texture2D $= ((GL.Nearest, Nothing), GL.Linear') + GL.textureWrapMode GL.Texture2D GL.S $= (GL.Mirrored, GL.Repeat) + GL.textureWrapMode GL.Texture2D GL.T $= (GL.Mirrored, GL.Repeat) + GL.textureBorderColor GL.Texture2D $= GL.Color4 1 1 1 1 + GL.textureFilter GL.Texture2D $= ((GL.Nearest, Nothing), GL.Linear') loadTexture = do - image <- BS.readFile $ datadir <> "/assets/wall.jpg" - convertImage $ decodeJpeg image + image <- BS.readFile $ datadir <> "/assets/wall.jpg" + convertImage $ decodeJpeg image |