Cleanup

2022-06-08 21:51:00 +01:00
parent 91f426e56e
commit b90e8a2118
4 changed files with 40 additions and 45 deletions
@@ -25,12 +25,11 @@ import LensHelp
 import System.Random

 muzFlareAt :: Color -> Point3 -> Float -> World -> World
-muzFlareAt col tranv dir w = w & instantParticles .:~ theFlare
+muzFlareAt col tranv dir w = w & instantParticles .:~ Particle
+    { _ptDraw = const $ setLayer BloomNoZWrite . translate3 tranv $ theShape
+    , _ptUpdate = ptSimpleTime 2
+    }
  where
-    theFlare = Particle
-        { _ptDraw = const $ setLayer BloomNoZWrite . translate3 tranv $ theShape
-        , _ptUpdate = ptSimpleTime 2
-        }
    theShape = rotate dir . color col $ polygon
        [ V2 0 0
        , V2 a (-b)