Correct room link position numbering

2021-11-22 16:42:19 +00:00
parent b4759e4a27
commit 5d9ea4b733
23 changed files with 184 additions and 85 deletions
@@ -10,6 +10,17 @@ import Color
 import Data.List
 import Control.Lens

+heightWallPS :: PlacementSpot -> Float -> [Point2] -> Placement
+heightWallPS spot h ps = psj spot (PutForeground . colorSH col $ upperPrismPoly h ps)
+    $ sps spot $ PutWall ps theWall
+  where
+    col = _wlColor defaultWall
+    theWall = defaultWall
+        { _wlOpacity = SeeAbove
+        , _wlDraw = False
+        , _wlHeight = h
+        }
+
 heightWall :: Float -> [Point2] -> Placement
 heightWall h ps = ps0j (PutForeground . colorSH col $ upperPrismPoly h ps)
    $ sps0 $ PutWall ps theWall