Add indexed world modifications, example use in flicker lights

2021-11-17 11:24:40 +00:00
parent 559d7e3a23
commit 9db091597d
10 changed files with 110 additions and 32 deletions
@@ -101,6 +101,12 @@ unusedLnkToPS rp = case rp of
    UnusedLink p a -> Just $ PS p a
    _ -> Nothing

+spanLSLightI :: LightSource -> Float -> Point2 -> Point2 -> Placement
+spanLSLightI ls h a b = ps0j (PutLS ls {_lsPos = V3 x y h})
+    $ sps0 $ PutForeground $ thinHighBar h a b
+  where
+    V2 x y = 0.5 *.* (a +.+ b)
+
 spanColLightI :: Point3 -> Float -> Point2 -> Point2 -> Placement
 spanColLightI col h a b = ps0j (PutLS $ colorLightAt col (V3 x y (h-5)) 0)
    $ sps0 $ PutForeground $ thinHighBar h a b