Clamp framebuffer textures to edges

src/Dodge/Distortion.hs

@@ -1,9 +1,10 @@
-module Dodge.Distortion where
+{-# LANGUAGE LambdaCase #-}
+module Dodge.Distortion (updateDistortion) where
 
 import Dodge.Data.Distortion
 
 updateDistortion :: Distortion -> Maybe Distortion
-updateDistortion dt = case dt of
+updateDistortion = \case
     RadialDistortion a b c v
         | v > 1 -> Just $ RadialDistortion a b c $ max 1 (v - 0.05)
         | v < 1 -> Just $ RadialDistortion a b c $ min 1 (v + 0.05)

src/Dodge/Event/Test.hs

@@ -1,11 +1,14 @@
-module Dodge.Event.Test (
-    testEvent,
-) where
+module Dodge.Event.Test (testEvent) where
 
 --import Dodge.Creature.State
 import Dodge.Data.World
---import Control.Lens
+import Linear
+import LensHelp
+import Data.Maybe
 
 testEvent :: World -> World
-testEvent w = w
-
+testEvent w = fromMaybe w $ do
+    cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos . _xy
+    let distR = 50
+        distortionBulge = RadialDistortion cpos (cpos + V2 distR 0) (cpos + V2 0 distR) 1.9
+    return $ w & cWorld . lWorld . distortions .~ [distortionBulge]