Start adding DT versions of LDT functions

src/Dodge/Item/Draw.hs

@@ -4,6 +4,7 @@ module Dodge.Item.Draw (
     itemEquipPict,
 ) where
 
+import Dodge.DoubleTree
 import Dodge.Data.Equipment.Misc
 import Dodge.Data.ComposedItem
 import Dodge.Data.DoubleTree
@@ -22,7 +23,7 @@ itemEquipPict cr itmtree
     , Just attachpos <- equipAttachPos <$> itm ^? itType . ibtEquip
         = equipPosition esite cr attachpos (itemSPic itm)
     | itm ^? itLocation . ilInvID == cr ^? crManipulation . manObject . imRootSelectedItem
-        = overPosSP (heldItemOffset loc cr) (itemTreeSPic itmtree)
+        = overPosSP (heldItemOffset loc cr) (itemTreeSPic $ ldtToDT itmtree)
     | otherwise = mempty
   where
     itm = itmtree ^. ldtValue . _1