From 19625d0c9e1d31e1966815bfefba8af794b3dba2 Mon Sep 17 00:00:00 2001
From: Daniel Liu <mr.picklepinosaur@gmail.com>
Date: Sat, 1 May 2021 08:48:31 -0400
Subject: [PATCH] not using stack anymore
---
Ekitai.hs | 1 +
Sim.hs | 18 ++++++++++++++++++
2 files changed, 19 insertions(+)
create mode 100644 Sim.hs
diff --git a/Ekitai.hs b/Ekitai.hs
index e413b67..62e1341 100644
--- 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
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
--
2.20.1