Tweak bloom, remove pistol spread

2021-08-21 11:32:50 +02:00
parent 778d18276b
commit a730dd66e0
9 changed files with 46 additions and 45 deletions
@@ -50,6 +50,7 @@ module Picture
    , light
    , dark
    , bright
+    , brightX
    , mixColors
    , zeroZ
    , setDepth
@@ -381,6 +382,10 @@ dim :: Color -> Color
 {-# INLINE dim #-}
 dim (V4 r g b a) = V4 (r/1.2) (g/1.2) (b/1.2) a

+brightX :: Float -> Float -> Color -> Color
+{-# INLINE brightX #-}
+brightX cm am (V4 r g b a) = V4 (r*cm) (g*cm) (b*cm) (a*am)
+
 bright :: Color -> Color
 {-# INLINE bright #-}
 bright (V4 r g b a) = V4 (r*1.2) (g*1.2) (b*1.2) a