Work on rooms

2026-03-21 18:48:44 +00:00
parent b52964f606
commit 5394450800
9 changed files with 170 additions and 173 deletions
@@ -16,6 +16,7 @@ module Dodge.Placement.Instance.LightSource (
    spanLightY,
    mntLightLnkCond',
    spanLS,
+    mntLightLnkShape,
 ) where

 import Color
@@ -148,6 +149,9 @@ mntLightLnkCond ps = do
    shp <- takeOne [vShape, lShape, jShape, liShape]
    return $ mntLSCond (fmap (fmap $ colorSH black) shp) ps

+mntLightLnkShape :: (Point2 -> Point3 -> Shape) -> PlacementSpot -> Placement
+mntLightLnkShape shp ps = mntLSCond (fmap (fmap $ colorSH black) shp) ps
+
 mntLightLnkCond' :: PlacementSpot -> Placement
 mntLightLnkCond' = mntLSCond (fmap (fmap $ colorSH black) vShape)