Add more rooms

2022-06-15 14:05:59 +01:00
parent 29e1ee14a1
commit e30f7a0585
5 changed files with 39 additions and 16 deletions
@@ -161,6 +161,12 @@ spanColLightI col h a b = ps0j (PutLS $ lsColPos col (V3 x y (h-5)))
  where
    V2 x y = 0.5 *.* (a +.+ b)

+spanColLightBlackI :: Point3 -> Float -> Point2 -> Point2 -> Placement
+spanColLightBlackI col h a b = ps0j (PutLS $ lsColPos col (V3 x y (h-5)))
+    $ sps0 $ PutShape $ colorSH black $ thinHighBar h a b
+  where
+    V2 x y = 0.5 *.* (a +.+ b)
+
 spanLightI :: Point2 -> Point2 -> Placement
 spanLightI = spanColLightI 0.75 50