Implement multiple radial distortion rendering

2021-07-10 14:04:01 +02:00
parent 1c519259a1
commit c63b293ea5
8 changed files with 75 additions and 22 deletions
@@ -59,10 +59,12 @@ blinkAction
    -> World 
    -> World
 blinkAction cr w = soundOnce teleSound 
+    . set 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)]
    cid  = _crID cr
    p1 = mouseWorldPos w
    cpos = _crPos cr