21 lines
500 B
Haskell
21 lines
500 B
Haskell
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
|