Cleanup scope zooming

src/Dodge/Item/Held/Utility.hs

@@ -4,6 +4,7 @@ import Dodge.Default.Item
 import Color
 import Control.Lens
 import Dodge.Data.Item
+import Geometry.Data
 
 flatShield :: Item
 flatShield =
@@ -32,6 +33,18 @@ latchkey _ =
     defaultHeldItem
         & itInvColor .~ yellow
 
+binoculars :: Item
+binoculars =
+    defaultHeldItem
+        & itScope .~ ZoomScope (V2 0 0) 0 1 0.5 False
+        & itType . iyBase .~ HELD BINOCULARS
+        & itUse . heldAim . aimHandlePos .~ 5
+        & itUse . heldAim . aimMuzPos .~ 10
+        & itUse . heldAim . aimStance .~ TwoHandFlat
+        & itUse . heldScroll .~ HeldScrollZoom -- zoomLongGun
+        & itUse . heldAim . aimZoom .~ defaultItZoom{_izMax = 0.5, _izMin = 0.5, _izFac = 1}
+
+
 torch :: Item
 torch =
     defaultHeldItem