18 lines
388 B
Haskell
18 lines
388 B
Haskell
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
|