Cleanup, only commented out char sequence scrolling code

2024-09-21 16:59:56 +01:00
parent 27e07a10c4
commit 9df60d62ab
6 changed files with 28 additions and 50 deletions
@@ -121,15 +121,7 @@ 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
+    = CharScrollParams
        { _scrollChar :: Seq.Seq Char}
    deriving (Eq, Show, Read) --Generic, Flat)