19 lines
395 B
Haskell
19 lines
395 B
Haskell
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
|