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
    
