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
@@ -6,6 +6,7 @@ import Dodge.Item.Weapon.InventoryDisplay
 import Dodge.Item.Attachment.Data
 import Dodge.Item.Data
 import Picture
+import ShapePicture
 defaultGun :: Item
 defaultGun = Weapon 
    { _itName = "default"
@@ -28,14 +29,14 @@ defaultGun = Weapon
    , _wpSpread = 0.02
    , _wpRange = 20
    , _itHammer = HammerUp
-    , _itFloorPict = blank
+    , _itFloorPict = emptyBlank
    , _itAmount = 1
    , _itMaxStack = 1
    , _itAimingSpeed = 1
    , _itAimingRange = 0
    , _itZoom    = ItZoom 20 0.2 1
    , _itAimZoom = ItZoom 20 0.2 1
-    , _itEquipPict = \_ _ -> blank
+    , _itEquipPict = \_ _ -> emptyBlank
    , _itScroll = \_ _ -> id
    , _itAttachment = NoItAttachment
    , _itID = Nothing