Add sounds, move data types out into separate folders

src/Dodge/Data/Block.hs

@@ -0,0 +1,23 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.Block where
+import Dodge.Data.Material
+import Dodge.Data.PathGraph
+import ShapePicture
+import Geometry
+import Control.Lens
+import qualified Data.IntSet as IS
+data Block = Block
+    { _blID         :: Int
+    , _blWallIDs    :: IS.IntSet
+    , _blHP         :: Int
+    , _blShadows    :: [Int]   -- a list of blocks/walls? that are not shown when this block exists
+    , _blFootprint  :: [Point2]
+    , _blPos        :: Point2
+    , _blDir        :: Float
+    , _blHeight     :: Float
+    , _blMaterial   :: Material
+    , _blDraw       :: Block -> SPic
+    , _blObstructs  :: [(Int,Int,PathEdge)]
+    }
+makeLenses ''Block