Abstract out block placement

src/Dodge/Wire.hs

@@ -1,10 +1,30 @@
 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
-import Control.Lens
+
+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)