Commit before adding more debugging control

src/Dodge/Placement/Instance/LightSource.hs

@@ -11,6 +11,7 @@ module Dodge.Placement.Instance.LightSource (
     spanColLightBlackI,
     moveLSThen,
     spanLightI,
+    spanLightY,
     mntLightLnkCond',
     spanLS,
 ) where
@@ -27,6 +28,7 @@ import Geometry
 import RandomHelp
 import Shape
 import ShapePicture
+import Linear
 
 propLSThen ::
     PropUpdate ->
@@ -215,6 +217,16 @@ spanColLightBlackI col h a b =
 spanLightI :: Point2 -> Point2 -> Placement
 spanLightI = spanColLightI 0.75 50
 
+spanLightY :: Point2 -> Point2 -> Point2 -> Point2 -> Placement
+spanLightY l x y z = 
+    ps0j (PutLS $ lsColPos 0.75 (addZ (h -5) l)) $
+        ps0j (f x) $
+        ps0j (f y) $
+        sps0 $ f z
+  where
+    f p = putShape $ thinHighBar h p (l + normalize (l-p))
+    h = 50
+
 --extendAway :: Point2 -> Point2 -> Point2
 --extendAway p x = p +.+ squashNormalizeV (p -.- x)