Commit before changing logging of placement spots

2025-09-29 21:58:02 +01:00
parent 9ed6d75853
commit bf9a2250da
14 changed files with 294 additions and 288 deletions
@@ -165,6 +165,9 @@ mntLightLnkCond ps = do
    shp <- takeOne [vShape, lShape, jShape, liShape]
    return $ mntLSCond (fmap (fmap $ colorSH black) shp) ps

+mntLightLnkCond' :: PlacementSpot -> Placement
+mntLightLnkCond' = mntLSCond (fmap (fmap $ colorSH black) vShape)
+
 spanLSLightI :: LightSource -> Float -> Point2 -> Point2 -> Placement
 spanLSLightI ls h a b =
    ps0j (PutLS $ ls & lsParam . lsPos .~ V3 x y h) $