1 module Sim ( ChunkData, initSimSpace, defaultChunkData ) where
3 import qualified Data.Vector as V
5 data ChunkData = ChunkData
6 { velocity :: (Float, Float)
10 defaultChunkData = ChunkData
15 initSimSpace :: Int -> Int -> V.Vector ChunkData
16 initSimSpace x y = V.replicate (y*x) defaultChunkData