Globally assign attachment orientations

src/Dodge/Item/Draw/SPic.hs

@@ -5,6 +5,7 @@ module Dodge.Item.Draw.SPic (
     itemTreeSPic,
 ) where
 
+import Dodge.Item.Orientation
 import Dodge.Item.MaxAmmo
 import Color
 import Data.Maybe
@@ -28,7 +29,7 @@ itemTreeSPic (LDT (itm,_,_) l r) =
 itemRotTreeSPic :: Item -> (ItemLink, LabelDoubleTree ItemLink CItem) -> SPic
 itemRotTreeSPic par (il, t) = translateSP p . overPosSP (Q.rotate q) $ itemTreeSPic t
   where
-    (p, q) = _iatOrient il par (_iatType il) itm
+    (p, q) = orientAttachment par (_iatType il) itm
     itm = t ^. ldtValue . _1
 
 itemSPic :: Item -> SPic