Tweak lighting shaders, add commented versions without normal mapping

src/Dodge/Default/LightSource.hs

@@ -10,7 +10,7 @@ defaultLS =
         , _lsParam =
             LSParam
                 { _lsPos = V3 0 0 50
-                , _lsRad = 450
+                , _lsRad = 200
                 , _lsCol = 0.6
                 }
         , _lsDir = 0

src/Dodge/Default/World.hs.orig

@@ -130,7 +130,7 @@ youLight :: TempLightSource
 youLight = TLS 
     { _tlsParam = LSParam
         {_lsPos = V3 0 0 0
-        ,_lsRad = 300
+        ,_lsRad = 150
         ,_lsCol = 0.1
         }
     ,_tlsUpdate = \w _ -> Just (youLight & tlsParam . lsPos .~ f (_crPos $ you w))

src/Dodge/Placement/Instance/Button.hs

@@ -78,7 +78,7 @@ putLitButOnPos col theps subpl =
                     .~ _plSpot plmnt
   where
     changeLight lsid = SetLSCol (V3 0 0.5 0) lsid
-    ls = lsRadCol 75 (V3 0.5 0 0)
+    ls = lsRadCol 50 (V3 0.5 0 0)
 
 -- creates a lit external trigger, passes the trigger placement forward
 extTrigLitPos :: PlacementSpot -> (Placement -> Maybe Placement) -> Placement
@@ -128,4 +128,4 @@ putLitButOnPosExtTrig' col thePS cnt =
     trigid tp = fromJust $ _plMID tp
     oneff tid = SetTrigger True tid
     changeLight = SetLSCol (V3 0 0.5 0)
-    ls = lsRadCol 75 (V3 0.5 0 0)
+    ls = lsRadCol 50 (V3 0.5 0 0)