Add test tileset textures

src/Shader.hs

@@ -70,7 +70,7 @@ bindArrayBuffers :: Int -> [(BufferObject,Ptr Float,Int)] -> IO ()
 bindArrayBuffers numVs ps = do
     forM_ ps $ \(bo,ptr,i) -> do
         bindBuffer ArrayBuffer $= Just bo
-        bufferData ArrayBuffer $= (fromIntegral $ floatSize * numVs * i, ptr, StreamDraw)
+        bufferData ArrayBuffer $= (fromIntegral $ floatSize * numVs * i, ptr, DynamicDraw)
 
 bindShaderBuffers :: [FullShader a] -> [Int] -> IO ()
 bindShaderBuffers = zipWithM_ f