From ba370266415757f0880db8d1a650894fc1f37a6d Mon Sep 17 00:00:00 2001
From: Yann Herklotz <git@yannherklotz.com>
Date: Wed, 30 Dec 2020 11:25:42 +0000
Subject: Add terrain and renderer classes

---
 src/Vivant/Renderer.hs | 15 +++++++++++++++
 src/Vivant/Terrain.hs  |  6 ++++++
 2 files changed, 21 insertions(+)
 create mode 100644 src/Vivant/Renderer.hs
 create mode 100644 src/Vivant/Terrain.hs

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