Cleanup. Start tweaking flares, glares and flashes

2021-10-29 21:47:03 +01:00
parent 78f91e522b
commit 502be6f64f
18 changed files with 59 additions and 153 deletions
@@ -8,17 +8,14 @@ import Control.Lens
 import Geometry.Data
 import Data.Word (Word8)
 import Data.Int (Int16)
-
 data SoundStatus 
    = JustStartedPlaying
    | Playing
    | ToStart
    | ToContinueStart
  deriving (Eq,Ord,Show)
-
 newtype SoundID = SoundID { _getSoundID :: Int }
  deriving (Eq,Ord,Show)
-
 newtype SoundData = SoundData
    {_loadedChunks :: IM.IntMap Mix.Chunk
    }
@@ -32,6 +29,5 @@ data Sound = Sound
    , _soundChunkID     :: SoundID
    }
  deriving (Eq,Ord,Show)
-
 makeLenses ''SoundData
 makeLenses ''Sound