Add more information to Room Positions

2022-06-15 12:34:36 +01:00
parent bf1bfa5453
commit 62dae5bebe
12 changed files with 192 additions and 112 deletions
@@ -149,7 +149,7 @@ spanLSLightI ls h a b = ps0j (PutLS $ ls & lsParam . lsPos .~ V3 x y h)
    V2 x y = 0.5 *.* (a +.+ b)

 spanLS :: LightSource -> Point2 -> Point2 -> Placement
-spanLS ls a b = Placement (PS (V2 x y) 0) (PutLS ls) Nothing
+spanLS ls a b = Placement 10 (PS (V2 x y) 0) (PutLS ls) Nothing
    $ const $ const $ Just $ sps0 $ PutShape $ thinHighBar h a b
  where
    V3 _ _ h = _lsPos (_lsParam ls) + 5