Remove bloom trails

2021-07-10 15:12:51 +02:00
parent c63b293ea5
commit 50295daeba
2 changed files with 18 additions and 14 deletions
@@ -59,12 +59,16 @@ blinkAction
    -> World 
    -> World
 blinkAction cr w = soundOnce teleSound 
-    . set radDistortion distortionBulge
+    . over radDistortion (distortionBulge ++)
    . set (creatures . ix cid . crPos) p3
    . blinkShockwave cid p3
    $ inverseShockwaveAt cpos 40 2 2 2 w
  where
-    distortionBulge = [(p3,p3 +.+ (40,0), p3 +.+ (0,40),0.5)]
+    distR = 120
+    distortionBulge = 
+        [(p3,p3 +.+ (distR,0), p3 +.+ (0,distR),0.1)
+        ,(cpos,cpos +.+ (distR,0), cpos +.+ (0,distR),1.9)
+        ]
    cid  = _crID cr
    p1 = mouseWorldPos w
    cpos = _crPos cr