Cleanup, split CWorld into separate file

2022-07-26 21:19:12 +01:00
parent c2707719fb
commit 6554d219dc
27 changed files with 1049 additions and 911 deletions
@@ -0,0 +1,159 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module Dodge.Data.CWorld where
+
+import Control.Lens
+import Data.Aeson
+import Data.Graph.Inductive
+import qualified Data.IntSet as IS
+import Dodge.Data.Beam
+import Dodge.Data.Block
+import Dodge.Data.Bounds
+import Dodge.Data.Bullet
+import Dodge.Data.Button
+import Dodge.Data.Cloud
+import Dodge.Data.Corpse
+import Dodge.Data.CrGroupParams
+import Dodge.Data.Creature
+import Dodge.Data.Damage
+import Dodge.Data.Door
+import Dodge.Data.EnergyBall
+import Dodge.Data.Flame
+import Dodge.Data.Flare
+import Dodge.Data.FloorItem
+import Dodge.Data.ForegroundShape
+import Dodge.Data.GenParams
+import Dodge.Data.Gust
+import Dodge.Data.HUD
+import Dodge.Data.Item
+import Dodge.Data.Laser
+import Dodge.Data.LightSource
+import Dodge.Data.LinearShockwave
+import Dodge.Data.Machine
+import Dodge.Data.Magnet
+import Dodge.Data.Modification
+import Dodge.Data.PathGraph
+import Dodge.Data.PosEvent
+import Dodge.Data.PressPlate
+import Dodge.Data.Projectile
+import Dodge.Data.Prop
+import Dodge.Data.RadarBlip
+import Dodge.Data.RadarSweep
+import Dodge.Data.Shockwave
+import Dodge.Data.Spark
+import Dodge.Data.Terminal
+import Dodge.Data.TeslaArc
+import Dodge.Data.TractorBeam
+import Dodge.Data.Wall
+import Dodge.Data.WorldEffect
+import Dodge.Distortion.Data
+import Dodge.GameRoom
+import GHC.Generics
+import Geometry.ConvexPoly
+import Geometry.Data
+import qualified IntMapHelp as IM
+import MaybeHelp
+import Picture.Data
+
+data CWorld = CWorld
+    { _cameraCenter :: Point2
+    , _cameraRot :: Float
+    , _cameraZoom :: Float -- smaller values zoom out
+    , _itemZoom :: Float
+    , _defaultZoom :: Float
+    , _cameraViewFrom :: Point2
+    , _viewDistance :: Float
+    , _boundBox :: [Point2]
+    , _boundDist :: (Float, Float, Float, Float) -- NSEW, S and W negative
+    , _creatures :: IM.IntMap Creature
+    , _crZoning :: IM.IntMap (IM.IntMap IS.IntSet)
+    , _creatureGroups :: IM.IntMap CrGroupParams
+    , _itemPositions :: IM.IntMap ItemPos
+    , _clouds :: [Cloud]
+    , _clZoning :: IM.IntMap (IM.IntMap [Cloud])
+    , _gusts :: IM.IntMap Gust
+    , _gsZoning :: IM.IntMap (IM.IntMap IS.IntSet)
+    , _props :: IM.IntMap Prop
+    , _projectiles :: IM.IntMap Proj
+    , _instantBullets :: [Bullet]
+    , _bullets :: [Bullet]
+    , _radarSweeps :: [RadarSweep]
+    , _energyBalls :: [EnergyBall]
+    , _posEvents :: [PosEvent]
+    , _flames :: [Flame]
+    , _sparks :: [Spark]
+    , _radarBlips :: [RadarBlip]
+    , _flares :: [Flare]
+    , _newBeams :: WorldBeams
+    , _beams :: WorldBeams
+    , _teslaArcs :: [TeslaArc]
+    , _shockwaves :: [Shockwave]
+    , _lasers :: [LaserStart]
+    , _lasersToDraw :: [Laser]
+    , _linearShockwaves :: IM.IntMap LinearShockwave
+    , _tractorBeams :: [TractorBeam]
+    , _walls :: IM.IntMap Wall
+    , _wallDamages :: IM.IntMap [Damage]
+    , _doors :: IM.IntMap Door
+    , _machines :: IM.IntMap Machine
+    , _terminals :: IM.IntMap Terminal
+    , _magnets :: IM.IntMap Magnet
+    , _blocks :: IM.IntMap Block
+    , _coordinates :: IM.IntMap Point2
+    , _triggers :: IM.IntMap Bool
+    , _wlZoning :: IM.IntMap (IM.IntMap IS.IntSet) -- Zoning IM.IntMap Wall
+    , _floorItems :: IM.IntMap FloorItem
+    , _floorTiles :: [(Point3, Point3)]
+    , _modifications :: IM.IntMap Modification
+    , _yourID :: Int
+    , _worldEvents :: [WdWd]
+    , _delayedEvents :: [(Int, WdWd)]
+    , _pressPlates :: IM.IntMap PressPlate
+    , _buttons :: IM.IntMap Button
+    , _decorations :: IM.IntMap Picture
+    , _foregroundShapes :: IM.IntMap ForegroundShape
+    , _corpses :: IM.IntMap Corpse
+    , _clickMousePos :: Point2
+    , _pathGraph :: Gr Point2 PathEdge
+    , _pnZoning :: IM.IntMap (IM.IntMap [(Int, Point2)]) --Zoning IM.IntMap Creature
+    , _peZoning :: IM.IntMap (IM.IntMap [(Int, Int, PathEdge)]) --Zoning IM.IntMap Creature
+    , _hud :: HUD
+    , _lightSources :: IM.IntMap LightSource
+    , _tempLightSources :: [TempLightSource]
+    , _closeObjects :: [Either FloorItem Button]
+    , _seenLocations :: IM.IntMap (WdP2, String)
+    , _selLocation :: Int
+    , _distortions :: [Distortion]
+    , _worldBounds :: Bounds
+    , _gameRooms :: [GameRoom] -- consider using an IntMap
+    , _roomClipping :: [ConvexPoly]
+    , _maybeWorld :: Maybe' CWorld
+    , _rewindWorlds :: [CWorld]
+    , _worldClock :: Int
+    , _genParams :: GenParams
+    , _deathDelay :: Maybe Int
+    }
+    deriving (Eq, Show, Read, Generic)
+
+instance ToJSON CWorld where
+    toEncoding = genericToEncoding defaultOptions
+
+instance FromJSON CWorld
+
+data WorldBeams = WorldBeams
+    { _blockingBeams :: [Beam]
+    , _lightBeams :: [Beam]
+    , _positronBeams :: [Beam]
+    , _electronBeams :: [Beam]
+    }
+    deriving (Eq, Ord, Show, Read, Generic)
+
+instance ToJSON WorldBeams where
+    toEncoding = genericToEncoding defaultOptions
+
+instance FromJSON WorldBeams
+
+makeLenses ''CWorld
+makeLenses ''WorldBeams