Drezil/pioneers
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed import

Browse Source
This commit is contained in:
Nicole Dresselhaus 2014-05-13 14:11:02 +02:00
parent 527d620da6
commit 1bfec031e2
No known key found for this signature in database
GPG Key ID: BC16D887851A1A80
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Render/Misc.hs
View File

@ -139,3 +139,7 @@ genColorData :: Int -- ^ Amount
-> [Int8] -> [Int8]
genColorData n c = take (length c*n) (cycle c) genColorData n c = take (length c*n) (cycle c)
-- from GLUtil
-- |Allocate and fill a 'BufferObject' from a list of 'Storable's.
makeBuffer :: Storable a => BufferTarget -> [a] -> IO BufferObject
makeBuffer target elems = makeBufferLen target (length elems) elems

2
src/Render/Render.hs
View File

@ -7,7 +7,7 @@ import Foreign.Storable
import Graphics.Rendering.OpenGL.GL import Graphics.Rendering.OpenGL.GL
import Graphics.Rendering.OpenGL.Raw.Core31 import Graphics.Rendering.OpenGL.Raw.Core31
import Graphics.Rendering.OpenGL.Raw.ARB.TessellationShader import Graphics.Rendering.OpenGL.Raw.ARB.TessellationShader
import Graphics.GLUtil.BufferObjects (offset0) import Graphics.GLUtil.BufferObjects
import qualified Linear as L import qualified Linear as L
import Control.Lens ((^.)) import Control.Lens ((^.))
import Control.Monad.RWS.Strict (liftIO) import Control.Monad.RWS.Strict (liftIO)