Tweak drawing parameters

2021-06-25 18:43:45 +02:00
parent 06a92e70ee
commit 726cd425f2
8 changed files with 36 additions and 31 deletions
@@ -33,12 +33,8 @@ lamp = defaultInanimate
    }
 lampPic :: Picture
 lampPic = pictures
-    [ setDepth 0 $ color white $ p
-    , setDepth (negate 0.1) $ color yellow $ p
-    , setDepth (negate 0.5) $ color green $ p
-    , setDepth (negate 0.4) $ color red $ p
-    , setDepth (negate 0.2) $ color blue $ p
-    , setDepth (negate 1) $ color white $ p
+    [ setDepth (0.09) $ color white $ p
+    , setDepth (0) $ color yellow $ p
    ]
  where
    p = pictures [circleSolid 3, polygon $ rectNSEW 5 0 5 0]