Tweak drawing of backpack equipment

src/Dodge/Item/Equipment.hs

@@ -10,11 +10,13 @@ module Dodge.Item.Equipment (
     headLamp,
     jetPack,
     fuelPack,
+    batteryPack,
     speedLegs,
     jumpLegs,
     flameShield,
 ) where
 
+import Geometry.Data
 import Dodge.Data.CamouflageStatus
 import Dodge.Data.Item
 import Dodge.Default
@@ -50,17 +52,26 @@ wristArmour =
         & itUse . equipEffect . eeOnRemove .~ EoffWristShield
         & itType . iyBase .~ EQUIP WRISTARMOUR
 
+batteryPack :: Item
+batteryPack =
+    defaultEquipment
+        & itUse . equipEffect . eeSite .~ GoesOnBack
+        & itType . iyBase .~ EQUIP BATTERYPACK
+        & itUse . equipEffect . eeAttachPos .~ V3 (-8) 0 10
+
 fuelPack :: Item
 fuelPack =
     defaultEquipment
         & itUse . equipEffect . eeSite .~ GoesOnBack
         & itType . iyBase .~ EQUIP FUELPACK
+        & itUse . equipEffect . eeAttachPos .~ V3 (-9) 0 10
 
 jetPack :: Item
 jetPack =
     defaultEquipment
         & itUse . equipEffect . eeSite .~ GoesOnBack
         & itType . iyBase .~ EQUIP JETPACK
+        & itUse . equipEffect . eeAttachPos .~ V3 (-8) 0 10
 
 brainHat :: Item
 brainHat =