Sim.hs

   1 module Sim ( ChunkData, initSimSpace, defaultChunkData ) where
   2
   3 import qualified Data.Vector as V
   4
   5 data ChunkData = ChunkData
   6     { velocity          :: (Float, Float)
   7     , density           :: Float
   8     } deriving (Show)
   9
  10 defaultChunkData = ChunkData
  11     { velocity          = (0,0)
  12     , density           = 0
  13     }
  14
  15 initSimSpace :: Int -> Int -> V.Vector ChunkData
  16 initSimSpace x y = V.replicate (y*x) defaultChunkData
  17
  18 -- gaussSeidel