not using stack anymore

[ekitaihs.git] / Sim.hs

diff --git a/Sim.hs b/Sim.hs
new file mode 100644 (file)
index 0000000..bb96fe3
--- /dev/null
+++ b/Sim.hs
@@ -0,0 +1,18 @@
+module Sim ( ChunkData, initSimSpace, defaultChunkData ) where
+
+import qualified Data.Vector as V
+
+data ChunkData = ChunkData
+    { velocity          :: (Float, Float)
+    , density           :: Float
+    } deriving (Show)
+
+defaultChunkData = ChunkData
+    { velocity          = (0,0)
+    , density           = 0
+    }
+
+initSimSpace :: Int -> Int -> V.Vector ChunkData
+initSimSpace x y = V.replicate (y*x) defaultChunkData
+
+-- gaussSeidel