Add source files, commit before reverting pictures to lists

src/Dodge/LightSources.hs

@@ -0,0 +1,25 @@
+module Dodge.LightSources where
+import Dodge.Data
+import Dodge.Base
+
+import Geometry
+import Picture
+
+--import Graphics.Gloss
+--import Graphics.Gloss.Data.Vector
+--import Graphics.Gloss.Geometry.Line
+--import Graphics.Gloss.Geometry.Angle
+
+import qualified Data.IntMap.Strict as IM
+
+lightAt p i = 
+    LS {_lsID = i
+       ,_lsPos = p
+       ,_lsDir = 0
+       ,_lsRad = 300
+       ,_lsIntensity = 0.25
+       }
+
+basicLS = PutLS ls dec
+    where ls = lightAt (0,0) 0
+          dec = onLayer PtLayer $ color white $ circleSolid 8