diff options
-rw-r--r-- | src/Vivant/Renderer.hs | 15 | ||||
-rw-r--r-- | src/Vivant/Terrain.hs | 6 |
2 files changed, 21 insertions, 0 deletions
diff --git a/src/Vivant/Renderer.hs b/src/Vivant/Renderer.hs new file mode 100644 index 0000000..ca623e7 --- /dev/null +++ b/src/Vivant/Renderer.hs @@ -0,0 +1,15 @@ +module Vivant.Renderer + (Renderer(..)) +where + +import qualified Graphics.Rendering.OpenGL as GL +import Linear +import Foreign.Ptr + +data Renderer = Renderer + { rendererProgram :: Maybe GL.Program, + rendererVao :: Maybe GL.VertexArrayObject, + rendererModelP :: Ptr (M44 Float) + } deriving Show + +draw :: Renderer -> IO () diff --git a/src/Vivant/Terrain.hs b/src/Vivant/Terrain.hs new file mode 100644 index 0000000..9d5201a --- /dev/null +++ b/src/Vivant/Terrain.hs @@ -0,0 +1,6 @@ +module Vivant.Terrain where + +data Terrain = Terrain + { + terrainVao :: + } |