Cleanup

2021-10-31 13:34:22 +00:00
parent a6867b1fad
commit 8dd6379d8e
8 changed files with 68 additions and 105 deletions
@@ -30,9 +30,9 @@ colorLightAt col pos i =
       ,_lsPict = lightSourcePicture
       }
 lightSourcePicture :: LightSource -> Picture
-lightSourcePicture ls = setLayer 1 . translate3 (_lsPos ls) . color col $ circleSolid 3
+lightSourcePicture ls = setLayer 1 . translate3 (_lsPos ls) . color col $ circleSolid 4
  where
-    col = V4 r g b 1
+    col = V4 r g b 2
    V3 r g b = _lsIntensity ls

 lightAt :: Point3 -> Int -> LightSource