34 lines
970 B
Haskell
34 lines
970 B
Haskell
module Dodge.Wire where
|
|
--import Dodge.LevelGen.Data
|
|
import Dodge.Default.Foreground
|
|
import Dodge.Data
|
|
import Geometry
|
|
import LensHelp
|
|
import ShapePicture
|
|
import Shape
|
|
import Color
|
|
import Dodge.Room.Foreground
|
|
|
|
import qualified Data.IntMap.Strict as IM
|
|
|
|
floorWire :: Point2 -> Point2 -> ForegroundShape
|
|
floorWire a b = defaultForeground
|
|
& fsPos .~ m
|
|
& fsRad .~ dist m a
|
|
& fsSPic .~ noPic (colorSH yellow $ thinHighBar 0 a' b')
|
|
where
|
|
m = midPoint a b
|
|
a' = a - m
|
|
b' = b - m
|
|
verticalWire :: Point2 -> Float -> Float -> ForegroundShape
|
|
verticalWire p h1 h2 = defaultForeground
|
|
& fsPos .~ p
|
|
& fsRad .~ 2
|
|
& fsSPic .~ noPic (colorSH yellow $ barPP 1.5 (V3 0 0 h1) (V3 0 0 h2))
|
|
|
|
putWireEnd :: Int -> (Point2,Float) -> Float -> Room -> Room
|
|
putWireEnd i (p,a) h = rmEndWires %~ IM.insert i (WallWire p a h)
|
|
|
|
putWireStart :: Int -> (Point2,Float) -> Float -> Room -> Room
|
|
putWireStart i (p,a) h = rmStartWires %~ IM.insert i (WallWire p a h)
|