Add (ugly) support for fractional volumes

2022-04-05 09:26:57 +01:00
parent 31d5bcd0bb
commit bca1236a85
12 changed files with 228 additions and 38 deletions
@@ -41,7 +41,7 @@ muzFlareAt col tranv dir w = w & instantParticles .:~ theFlare
 flareCircleAt :: Color -> Float -> Point3 -> World -> World
 flareCircleAt col alphax tranv = instantParticles .:~ Particle
    { _ptDraw = const . setLayer 1 . translate3 tranv
-                        $ circleSolidCol (withAlpha 0 0) (withAlpha alphax col) 30
+                        $ circleSolidCol (withAlpha 0 0) (withAlpha alphax col) 50
    , _ptUpdate = ptSimpleTime 1
    }