Simplify Foreground

2025-10-25 13:12:00 +01:00
parent 5fce0772f8
commit ff03efc41f
8 changed files with 6 additions and 21 deletions
@@ -14,7 +14,6 @@ floorWire :: Point2 -> Point2 -> ForegroundShape
 floorWire a b =
    defaultForeground
        & fsPos .~ m
-        & fsRad .~ dist m a
        & fsSPic .~ noPic (colorSH yellow $ thinHighBar 0 a' b')
  where
    m = midPoint a b
@@ -25,7 +24,6 @@ verticalWire :: Point2 -> Float -> Float -> ForegroundShape
 verticalWire p h1 h2 =
    defaultForeground
        & fsPos .~ p
-        & fsRad .~ 2
        & fsSPic .~ noPic (colorSH yellow $ barPP 1.5 (V3 0 0 h1) (V3 0 0 h2))

 putWireEnd :: Int -> (Point2, Float) -> Float -> Room -> Room