Make optical scope relative to camera rotation

2024-09-21 16:52:04 +01:00
parent 9dff2fcd7a
commit 27e07a10c4
11 changed files with 200 additions and 832 deletions
@@ -12,8 +12,16 @@ import Geometry.Data

 data Scope
    = NoScope
-    | RemoteScope
+    | OpticScope
        { -- | a camera offset
+          _opticPos :: Point2  -- this should be relative to the camera rotation
+                                -- this means that when the camera rotates when firing etc,
+                                -- this doesn't need to be changed
+        , _opticZoom :: Float
+        , _opticDefaultZoom :: Float
+        }
+    | RemoteScope
+        { -- | a camera offset, note unlike the optic pos this is absolute
          _remotePos :: Point2
        , _remoteZoom :: Float
        }