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
@@ -46,7 +46,7 @@ smokeCloudAt
 smokeCloudAt col = makeCloudAt (drawCloudWith (4/3) 800 col)

 drawCloudWith :: Float -> Float -> Color -> Cloud -> Picture
-drawCloudWith radMult fadet col cl = setLayer 2 
+drawCloudWith radMult fadet col cl = setLayer MidLayer 
    . setDepth 25
    $ circleSolidCol (withAlpha 0 col) (withAlpha a col) (radMult * _clRad cl)
  where