diff options
Diffstat (limited to 'src/Vivant')
-rw-r--r-- | src/Vivant/Noise.hs | 16 | ||||
-rw-r--r-- | src/Vivant/Shader.hs | 12 | ||||
-rw-r--r-- | src/Vivant/Texture.hs | 10 |
3 files changed, 19 insertions, 19 deletions
diff --git a/src/Vivant/Noise.hs b/src/Vivant/Noise.hs index 09a4b3e..131ffce 100644 --- a/src/Vivant/Noise.hs +++ b/src/Vivant/Noise.hs @@ -4,14 +4,14 @@ module Vivant.Noise (Permutation(..), perlin3, permutation, mkPermutation) where -import Control.Arrow -import Data.Bits -import Data.Vector.Unboxed ((!)) -import Data.Word -import System.Environment (getArgs) - -import qualified Codec.Picture as P -import qualified Data.ByteString as B +import Control.Arrow +import Data.Bits +import Data.Vector.Unboxed ((!)) +import Data.Word +import System.Environment (getArgs) + +import qualified Codec.Picture as P +import qualified Data.ByteString as B import qualified Data.Vector.Unboxed as V perlin3 :: (Ord a, Num a, RealFrac a, V.Unbox a) => Permutation -> (a, a, a) -> a diff --git a/src/Vivant/Shader.hs b/src/Vivant/Shader.hs index dfd5d41..c2df314 100644 --- a/src/Vivant/Shader.hs +++ b/src/Vivant/Shader.hs @@ -1,12 +1,12 @@ module Vivant.Shader (createProgram) where -import SDL (($=)) +import Control.Monad (unless) +import qualified Data.ByteString as BS import qualified Graphics.Rendering.OpenGL as GL -import qualified Data.ByteString as BS -import System.Exit (exitFailure) -import System.IO (stderr, hPutStrLn) -import Control.Monad (unless) -import Paths_vivant (getDataDir) +import Paths_vivant (getDataDir) +import SDL (($=)) +import System.Exit (exitFailure) +import System.IO (hPutStrLn, stderr) createProgram :: IO GL.Program createProgram = do diff --git a/src/Vivant/Texture.hs b/src/Vivant/Texture.hs index 7328c87..dceba80 100644 --- a/src/Vivant/Texture.hs +++ b/src/Vivant/Texture.hs @@ -1,12 +1,12 @@ module Vivant.Texture (initTexture, loadTexture) where -import Codec.Picture.Jpg (decodeJpeg) -import Codec.Picture.Types (convertImage) +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 qualified Data.ByteString as BS -import qualified Data.Vector.Storable as V -import Paths_vivant (getDataDir) +import Paths_vivant (getDataDir) initTexture = do GL.textureWrapMode GL.Texture2D GL.S $= (GL.Mirrored, GL.Repeat) |