Add wall dust when destroying a block

src/Dodge/Wall/Dust.hs

@@ -0,0 +1,12 @@
+module Dodge.Wall.Dust where
+import Dodge.Data
+import Dodge.WorldEvent.Cloud
+import Geometry
+import Geometry.Vector3D
+import Control.Lens
+
+wlDustAt :: Wall -> Point2 -> World -> World
+wlDustAt wl p = smokeCloudAt dustcol 20 200 1 (addZ 20 p)
+  where
+    dustcol = _wlColor wl & _4 .~ 1
+