Reify shockwaves

src/Dodge/Render/ShapePicture.hs

@@ -1,6 +1,7 @@
 module Dodge.Render.ShapePicture
     ( worldSPic
     ) where
+import Dodge.Shockwave.Draw
 import Dodge.Tesla.Arc.Draw
 import Dodge.Laser.Draw
 import Dodge.Cloud.Draw
@@ -128,6 +129,7 @@ cullPoint cfig w p
 
 extraPics :: Configuration -> World -> Picture
 extraPics cfig w = pictures (_decorations w)
+    <> concatMapPic drawShockwave (_shockwaves w)
     <> concatMapPic drawLaser (_lasersToDraw w)
     <> concatMapPic drawTeslaArc (_teslaArcs w)
     <> concatMapPic drawParticle (_particles    w)