14 lines
412 B
Haskell
14 lines
412 B
Haskell
module Dodge.Wire where
|
|
--import Dodge.LevelGen.Data
|
|
import Dodge.Data
|
|
import Geometry
|
|
|
|
import qualified Data.IntMap.Strict as IM
|
|
import Control.Lens
|
|
|
|
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)
|