Add new files

src/Hetris/Base.hs

@@ -0,0 +1,24 @@
+module Hetris.Base
+    where
+import Shader.Data
+import Shader.Compile
+
+--import qualified Data.Vector.Unboxed.Mutable as MV
+--import Control.Monad.Primitive
+--import qualified Data.Array.Repa as R
+import Linear.V2
+
+data World = World
+    { _placedBlocks :: [[V2 Float]] 
+    , _polyShader :: FullShader
+    }
+
+initWorld :: IO World
+initWorld = do
+    let pb = replicate 20 [0,0,0,0,0,1,1,1,1,1]
+    theShader <- makeShader "twoD/basic" [vert,frag] [3,4] ETriangles
+    return $ World 
+        {_placedBlocks = pb
+        ,_polyShader = theShader
+        }
+