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
@@ -121,15 +121,15 @@ data AmmoParams = BulletParams {_ampBullet :: Bullet}
    deriving (Eq, Show, Read) --Generic, Flat)

 data ScrollAttachParams
-    = ZoomScrollParams
-        { -- | a camera offset
-          _opticPos :: Point2  -- this should be relative to the camera rotation
-                                -- then when the camera rotates when firing etc,
-                                -- this doesn't need to be changed
-        , _opticZoom :: Float
-        , _opticDefaultZoom :: Float
-        }
-    | CharScrollParams
+    = -- ZoomScrollParams
+--        { -- | a camera offset
+--          _opticPos :: Point2  -- this should be relative to the camera rotation
+--                                -- then when the camera rotates when firing etc,
+--                                -- this doesn't need to be changed
+--        , _opticZoom :: Float
+--        , _opticDefaultZoom :: Float
+--        }
+     CharScrollParams
        { _scrollChar :: Seq.Seq Char}
    deriving (Eq, Show, Read) --Generic, Flat)