Define shape datatype

src/Dodge/Render.hs

@@ -10,6 +10,7 @@ import Dodge.Base.Window
 import Dodge.Render.Picture
 --import Dodge.Creature.ShadowBox
 import Dodge.Creature.Silhouette
+import Dodge.Render.Shape
 import Geometry
 import Render
 import Data.Preload.Render
@@ -20,7 +21,7 @@ import Shader.Data
 import MatrixHelper
 --import Polyhedra.Data
 import Polyhedra
---import Tuple
+import Shape.Data
 
 import Foreign
 --import Control.Applicative
@@ -88,6 +89,12 @@ doDrawing pdata w = do
     layerCounts <- UMV.replicate (6*6) 0
     pokeBindFoldableLayer shadV layerCounts $ worldPictures w
     renderLayer 0 shadV layerCounts
+
+    numShapeVs <- pokeShapeVs (_vboPtr $ _vaoVBO $ _shadVAO $ _shapeShader pdata) 
+        $ _shVertices $ worldShape w
+    bindShaderBuffers [_shapeShader pdata] [numShapeVs]
+    drawShader (_shapeShader pdata) numShapeVs
+
     --draw floor onto base buffer
     nTextArrayVs <- pokePoint33s (shadVBOptr $ _textureArrayShader pdata) (_floorTiles w)
     bindShaderBuffers [_textureArrayShader pdata] [nTextArrayVs]