Allow for items to cast shadows

2021-09-18 11:00:52 +01:00
parent 6ac53c052c
commit 2d8f1089a1
18 changed files with 236 additions and 172 deletions
@@ -196,7 +196,7 @@ rectangleSolid x y = polygon $ map toV2 [(x,y),(x,-y),(-x,-y),(-x,y)]

 drawItem :: FloorItem -> Picture
 drawItem flit = uncurryV translate (_flItPos flit) 
-                    $ rotate (_flItRot flit)  (_itFloorPict (_flIt flit))
+                    $ rotate (_flItRot flit)  (_spPicture $ _itFloorPict (_flIt flit))


 ffToDraw :: World -> [ForceField]