Work on windows

2025-11-23 19:08:22 +00:00
parent 581d832569
commit 92e4552f66
14 changed files with 69 additions and 24 deletions
@@ -86,7 +86,7 @@ barrelShape = noPic $ cylinderPoly Medium Important (map (addZ 20) ps) (map (add

 lampCrSPic :: Float -> SPic
 lampCrSPic h =
-    colorSH blue (upperBox Small Typical h $ rectWH 5 5)
+    colorSH blue (upperBox Small Undesired h $ rectWH 5 5)
        :!: setLayer BloomLayer (setDepth h . color white $ circleSolid 3)

 shiftDraw :: (a -> Point2) -> (a -> Float) -> (a -> a -> SPic) -> a -> SPic