Mapper, ARHUD, radar sweeps update. Add dropper items

src/Dodge/Render/HUD.hs

@@ -164,13 +164,13 @@ drawSubInventory subinv cfig w = case subinv of
     ExamineInventory -> drawExamineInventory cfig w
     DisplayTerminal tid -> drawTerminalDisplay tid cfig (w ^. cWorld . lWorld)
     CombineInventory{_ciSections = sss} -> drawCombineInventory cfig sss w
-    MapperInventory p z itid -> drawMapperInventory p z itid cfig w
+    MapperInventory _ _ itid -> drawMapperInventory itid w
 
-drawMapperInventory :: Point2 -> Float -> NewInt ItmInt -> Configuration -> World -> Picture
-drawMapperInventory p z itid _ w = fold $ do
+drawMapperInventory :: NewInt ItmInt -> World -> Picture
+drawMapperInventory itid w = fold $ do
     itm <- w ^? pointerToItemID itid
     ls <- itm ^? itUse . useMapperLines
-    let r = w ^. wCam . camRot
+    let _ = w ^. wCam . camRot
     return . color red
         $ foldMap (\(x,y) -> line [f x,f y]) ls
   where