Pre shader refactor commit

This commit is contained in:
2021-03-10 14:31:50 +01:00
parent d3c8504d21
commit fe2abc9266
5 changed files with 27 additions and 16 deletions
+2 -5
View File
@@ -3,6 +3,8 @@
module Picture.Preload
where
import Picture.Data
import Codec.Picture
import Graphics.Rendering.OpenGL hiding (Point (..),translate,scale,imageHeight,imageWidth)
import qualified Graphics.Rendering.OpenGL as GL
@@ -40,13 +42,8 @@ data RenderData = RenderData
, _dummyVBO :: BufferObject
, _dummyPtr :: Ptr Float
}
data VAO = VAO
{ _vao :: VertexArrayObject
, _vaoBufferTargets :: [(BufferObject,Ptr Float,Int)]
}
makeLenses ''RenderData
makeLenses ''VAO
floatSize = sizeOf (0.5 :: GLfloat)