Add destruction to mounted lights

src/Dodge/Placement/Instance/LightSource.hs

@@ -1,6 +1,8 @@
 module Dodge.Placement.Instance.LightSource (
     mntLSOn,
     aShape,
+    aBar,
+    lShape,
     mntLightLnkCond,
     mntLS,
     vShape,
@@ -93,6 +95,9 @@ lShape wp (V3 x y z) =
     wallposUp = wp +.+ n
     turnpos = V2 x y +.+ n
 
+aBar :: Float -> [Point2] -> Shape
+aBar h ps = foldMap (uncurry $ thinHighBar (h+0.1)) $ zip ps $ tail ps
+
 jShape :: Point2 -> Point3 -> Shape
 jShape wallpos (V3 x y z) =
     thinHighBar z wallposUp turn1