Improve scope zooming

src/Dodge/Item/Attachment/Data.hs

@@ -28,6 +28,7 @@ data Scope = NoScope
         {_scopePos        :: Point2 -- ^ a camera offset
         ,_scopeZoomChange :: Int
         ,_scopeZoom       :: Float 
+        ,_scopeDefaultZoom  :: Float
         ,_scopeIsCamera   :: Bool   -- ^ if the camera offset is also the center of vision
         }