Add explicit layer datatype

2022-04-10 10:48:17 +01:00
parent edd82fb3ac
commit 77c3f83d20
27 changed files with 75 additions and 70 deletions
@@ -231,7 +231,7 @@ shellShape = colorSH black $ upperPrismPoly 4 $ map toV2 [(-6,4),(-6,-4),(6,-4),

 remoteShellShape :: Color -> SPic
 remoteShellShape col = (shellShape
-    , setLayer 1 . setDepth 4.5 . color col $ circleSolid 3
+    , setLayer BloomNoZWrite . setDepth 4.5 . color col $ circleSolid 3
    )

 drawRemoteShell :: Prop -> SPic