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
@@ -5,7 +5,7 @@ import Dodge.Data
 import Picture

 drawBul :: Particle -> Picture
-drawBul pt = setLayer 1
+drawBul pt = setLayer BloomNoZWrite
    . setDepth 20 
    . color (_ptColor pt) 
    $ thickLine (_ptWidth pt) (take 3 $ _ptTrail pt)
@@ -31,7 +31,7 @@ aTeslaArcAt col thearc = LinearParticle
    }

 drawTeslaArc :: Particle -> Picture
-drawTeslaArc pt = setLayer 1 $ pictures 
+drawTeslaArc pt = setLayer BloomNoZWrite $ pictures 
    [ setDepth 20.5 $ color (brightX 2 1 $ _ptColor pt) $ thickLine  3 ps
    , setDepth 20   $ color (V4 0 0 0 0.5)              $ thickLine 10 ps
    ]