Add sounds, move data types out into separate folders

src/Dodge/Data/LightSource.hs

@@ -0,0 +1,20 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+module Dodge.Data.LightSource where
+import Geometry
+import Picture.Data
+import Control.Lens
+
+data LSParam = LSParam
+    { _lsPos        :: !Point3
+    , _lsRad        :: !Float
+    , _lsCol        :: !Point3
+    }
+data LightSource = LS  
+    { _lsID     :: !Int
+    , _lsParam  :: LSParam
+    , _lsDir    :: !Float
+    , _lsPict   :: LightSource -> Picture
+    }
+makeLenses ''LSParam
+makeLenses ''LightSource