Refactor crPos to be a V3

src/Dodge/Item/BackgroundEffect.hs

@@ -6,6 +6,7 @@ module Dodge.Item.BackgroundEffect (
     removeShieldWall,
 ) where
 
+import Linear
 import Color
 import Control.Lens
 import Dodge.Creature.Radius
@@ -46,7 +47,7 @@ createShieldWall it cr w = case it ^? itParams . flatShieldWlMIX . _Just of
     crid = _crID cr
     wlline = (a, b)
     crdirv = unitVectorAtAngle $ _crDir cr
-    crpos = _crPos cr
+    crpos =cr ^. crPos . _xy
     rad = crRad (cr ^. crType) + 2
     a = crpos +.+ rad *.* crdirv -.- 10 *.* therot crdirv
     b = crpos +.+ rad *.* crdirv +.+ 10 *.* therot crdirv