Remove distortion framebuffer/graphic resolution option

src/Dodge/Event/Test.hs

@@ -2,7 +2,7 @@ module Dodge.Event.Test (testEvent) where
 
 --import Dodge.Creature.State
 
-import Dodge.Flame
+--import Dodge.Flame
 import Data.Maybe
 import Dodge.Data.World
 import LensHelp
@@ -10,23 +10,23 @@ import Linear
 
 testEvent :: World -> World
 testEvent w = fromMaybe w $ do
-    cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos . _xy
-    return $ w & makeFlame (cpos + 25) 1
---testEvent w = fromMaybe w $ do
 --    cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos . _xy
---    let distR = 50
---        t1 = (V2 1 (-1))
---        t2 = (V2 1 1)
---        t3 = (V2 distR 0)
---        v3 = V3 t1 t2 t3
---        distortionBulge =
---            RadialDistortion
---                cpos
---                (V2 distR 0)
---                (V2 0 distR)
---                v3 v3 v3
---                20
---    return $ w & cWorld . lWorld . distortions .~ [distortionBulge
---        , distortionBulge & rdPos +~ 50 & rdTR . _1 +~ V2 (-1) 1
---        , distortionBulge & rdPos +~ (-50)
---        ]
+--    return $ w & makeFlame (cpos + 25) 1
+--testEvent w = fromMaybe w $ do
+    cpos <- w ^? cWorld . lWorld . creatures . ix 0 . crPos . _xy
+    let distR = 50
+        t1 = (V2 1 (-1))
+        t2 = (V2 1 1)
+        t3 = (V2 distR 0)
+        v3 = V3 t1 t2 t3
+        distortionBulge =
+            RadialDistortion
+                cpos
+                (V2 distR 0)
+                (V2 0 distR)
+                v3 v3 v3
+                20
+    return $ w & cWorld . lWorld . distortions .~ [distortionBulge
+        , distortionBulge & rdPos +~ 50 & rdTR . _1 +~ V2 (-1) 1
+        , distortionBulge & rdPos +~ (-50)
+        ]