X-Git-Url: https://git.danieliu.xyz/?p=ekitaihs.git;a=blobdiff_plain;f=Sim.hs;fp=Sim.hs;h=bb96fe387c6a89a8099afb7beb79e4a8c7977b3f;hp=0000000000000000000000000000000000000000;hb=19625d0c9e1d31e1966815bfefba8af794b3dba2;hpb=5b8e53984e97f64f62f5c5f607322006dbddfabc

diff --git a/Sim.hs b/Sim.hs
new file mode 100644
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