Working dynamic shadows using shape vertices buffer

2021-09-22 10:34:39 +01:00
parent 07e128bb04
commit 952ec1c579
16 changed files with 42 additions and 67 deletions
@@ -99,7 +99,7 @@ placeSpot ps w = case _psType ps of
      where 
        (q:qs) = map (shiftPointBy (p,rot)) ps'
        rmCrossPaths w' = foldr (uncurry removePathsCrossing) w' $ zip (q:qs) (qs++[q])
-    PutForeground sh -> w & foregroundDecorations %~ ((uncurryV translateSHf p . rotateSH rot) sh <>)
+    PutForeground sh -> w & foregroundShape %~ ((uncurryV translateSHf p . rotateSH rot) sh <>)
    PutNothing -> w
    PutID _ -> w
    --_   -> w