Work on windows

2025-11-23 19:08:22 +00:00
parent 581d832569
commit 92e4552f66
14 changed files with 69 additions and 24 deletions
@@ -14,7 +14,6 @@ decoratedBlock decf mat col h ps = PutBlock bl wl $ reverse ps
    bl =
        defaultBlock
            & blDraw .~ (decf <> colorSH col (upperBox Medium Typical h ps))
--                BlockDraws [BlockDrawColHeightPoss col h ps, BlockDrawBlSh decf]
            & blHeight .~ h
    wl =
        defaultWall
@@ -197,4 +197,4 @@ spanLightY l x y z =
 --putColorLamp col = PutCrit (colorLamp col 90)

 putLamp :: PSType
-putLamp = PutCrit (lamp 90)
+putLamp = PutCrit (lamp 50)
@@ -49,7 +49,7 @@ Places an breakable window between two points.
 Width 8, also extends out from each point by 8.
 -}
 windowLine :: Point2 -> Point2 -> Placement
-windowLine a = sps0 . PutLineBlock defaultWindow 8 a
+windowLine a = sps0 . PutLineBlock defaultWindow 10 a

 {-
 Places an unbreakable window between two points.