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)