not using stack anymore

diff --git a/Ekitai.hs b/Ekitai.hs
index e413b67..62e1341 100644 (file)
--- a/Ekitai.hs
+++ b/Ekitai.hs
@@ -1,6 +1,7 @@
 import System.Environment
 
 import Parse
+import Sim
 
 main = do
     argv <- getArgs

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