Move GenWorld update of placements into product type

2022-03-16 09:39:07 +00:00
parent 5aeb04ba05
commit 2dc94b85da
8 changed files with 32 additions and 35 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 (PS (V2 x y) 0) (PutLS ls) Nothing Nothing
    $ const $ Just $ sps0 $ PutShape $ thinHighBar h a b
  where
    V3 _ _ h = _lsPos (_lsParam ls) + 5