Add lights to buttons, cleanup

2021-11-02 19:38:22 +00:00
parent 9eda8c81a9
commit 59f43a3602
25 changed files with 356 additions and 349 deletions
@@ -276,8 +276,8 @@ defaultLS = LS
    { _lsID = 0
    , _lsPos = 0
    , _lsDir = 0
-    , _lsRad = 4
-    , _lsIntensity = 0.5
+    , _lsRad = 700
+    , _lsIntensity = 0.6
    , _lsPict = defLSPic 
    }
 defLSPic :: LightSource -> Picture