Tweak longRoom

2022-03-20 13:46:31 +00:00
parent e811e67ff9
commit 6c3e335ded
6 changed files with 25 additions and 30 deletions
@@ -128,7 +128,7 @@ mntLSCond :: (Point2 -> Point3 -> Shape)
    -> PlacementSpot
    -> Placement
 mntLSCond shp ps = -- updatePSToLevel 1 (const $ PSLnk shift (const id) Nothing) $ 
-    mntLS shp 0 (V3 0 (-20) 96)
+    mntLS shp 0 (V3 0 (-20) 95)
    & plSpot .~ ps
    -- note that this perhaps pushes the vshape light out too far