module Dodge.Wall.Draw where
import Dodge.Data.Wall
import ShapePicture
import Picture.Base

drawWall :: WallDraw -> Wall -> SPic
drawWall wd = case wd of
    DrawForceField -> drawForceField

drawForceField :: Wall -> SPic
drawForceField wl = (mempty
    , setLayer BloomLayer
        . setDepth 20
        . color (_wlColor wl)
        $ thickLine 5 [a,b]
    )
  where
    (a,b) = _wlLine wl