Remove _plGenUpdate field, instead allow Placements to take World arg

2022-06-02 20:00:03 +01:00
parent 7c4a853d70
commit 024f72da20
13 changed files with 54 additions and 53 deletions
@@ -149,8 +149,8 @@ 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 Nothing
-    $ const $ Just $ sps0 $ PutShape $ thinHighBar h a b
+spanLS ls a b = Placement (PS (V2 x y) 0) (PutLS ls) Nothing
+    $ const $ const $ Just $ sps0 $ PutShape $ thinHighBar h a b
  where
    V3 _ _ h = _lsPos (_lsParam ls) + 5
    V2 x y = 0.5 *.* (a +.+ b)