module Dodge.Wall.Draw (drawWall) where

import Dodge.Material.Color
import Dodge.Data.Wall
import Picture.Base
import ShapePicture
import Control.Lens

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

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