Add terrain and renderer classes

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 ::
+  }