module Dodge.Wall.Draw where

import Dodge.Data.Wall
import Picture.Base
import ShapePicture

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

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