Move towards adding in pulse laser "rifle" (like UT shock rifle)

src/Dodge/Render/ShapePicture.hs

@@ -23,6 +23,7 @@ worldSPic cfig u =
     (mempty :!: extraPics cfig u)
         <> foldup propSPic (filtOn _prPos _props)
         <> foldup drawProjectile (filtOn _pjPos _projectiles)
+        <> foldup drawPulseBall (filtOn _pbPos _pulseBalls)
         <> foldup (shiftDraw _blPos _blDir (drawBlock . _blDraw)) (filtOn _blPos _blocks)
         <> foldup (shiftDraw _fsPos _fsDir (const _fsSPic)) (filtOn _fsPos _foregroundShapes)
         <> foldup (shiftDraw' _cpPos _cpDir _cpSPic) (filtOn _cpPos _corpses)
@@ -36,6 +37,14 @@ worldSPic cfig u =
     filtOn f g = IM.filter (pointIsClose . f) (g (_lWorld (_cWorld w)))
     pointIsClose = cullPoint cfig w
 
+drawPulseBall :: PulseBall -> SPic
+drawPulseBall pb =
+    translateSPz 20 
+    . uncurryV translateSPxy (pb ^. pbPos)
+    . noShape 
+    . setLayer BloomLayer
+    $ circleSolidCol green white 10
+
 drawCreature :: Creature -> SPic
 drawCreature cr = uncurryV translateSPxy (_crPos cr) . rotateSP (_crDir cr) $
     case cr ^. crType of