Add line shadow shader

src/Dodge/LightSources.hs

@@ -5,21 +5,22 @@ import Dodge.Picture.Layer
 import Dodge.LevelGen.Data
 --import Geometry
 import Picture
+import Geometry.Data
 
 --import qualified Data.IntMap.Strict as IM
 
-lightAt :: Point2 -> Int -> LightSource
-lightAt (x,y) i = 
+lightAt :: Point3 -> Int -> LightSource
+lightAt (x,y,z) i = 
     LS {_lsID = i
-       ,_lsPos = (x,y,0)
+       ,_lsPos = (x,y,z)
        ,_lsDir = 0
-       ,_lsRad = 600
+       ,_lsRad = 500
        ,_lsIntensity = 0.75
        }
 basicLS :: PSType
 basicLS = PutLS ls dec
   where 
-    ls = lightAt (0,0) 0
+    ls = lightAt (0,0,0) 0
     dec = onLayer PtLayer $ color white $ circleSolid 8
 
 tLightFade :: Int -> Float -> (Int -> Float) -> Point2 -> TempLightSource