{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Sound.Data where

import Data.Binary
import Flat
import LinearHelp ()
import Control.Lens
import Data.Aeson
import Data.Aeson.TH
import Data.Int (Int16)
import Data.Word (Word8)
import Geometry.Data
import qualified IntMapHelp as IM
import qualified SDL.Mixer as Mix

data SoundStatus = SoundStatus
    { _playStatus :: PlayStatus
    , _isLooping :: Bool
    }
    deriving (Eq, Ord, Show)

-- TODO make this more sensible (use product rather than union in some cases)
data PlayStatus
    = JustStartedPlaying
    | Playing
    | ToStart
    | ToContinueStart
    | ToStop
    deriving (Eq, Ord, Show, Read, Generic)

newtype SoundID = SoundID {_getSoundID :: Int}
    deriving (Eq, Ord, Show, Read, Generic, Flat)
instance Binary SoundID

newtype SoundData = SoundData
    { _loadedChunks :: IM.IntMap Mix.Chunk
    }

data ToPlaySound = ToPlaySound
    { _toPlaySoundTime :: Maybe Int
    , _toPlaySoundStatus :: SoundStatus
    , _toPlaySoundPos :: Point2 -- these exist?
    , _toPlaySoundVolume :: Float
    , _toPlaySoundVolumeFraction :: Float -- this needs cleaning up/combining
    , _toPlaySoundChunkID :: SoundID
    }
    deriving (Eq, Show)

data Sound = Sound
    { _soundTime :: Maybe Int
    , _soundStatus :: SoundStatus
    , _soundChannel :: Maybe Mix.Channel
    , _soundAngDist :: Maybe (Int16, Word8) -- why do BOTH of
    , _soundPos :: Point2 -- these exist?
    , _soundVolume :: Float
    , _soundVolumeFraction :: Float -- this needs cleaning up/combining
    , _soundChunkID :: SoundID
    }
    deriving (Eq, Ord, Show)

makeLenses ''SoundData
makeLenses ''Sound
makeLenses ''SoundID
makeLenses ''SoundStatus
deriveJSON defaultOptions ''SoundStatus
deriveJSON defaultOptions ''PlayStatus
deriveJSON defaultOptions ''SoundID
deriveJSON defaultOptions ''ToPlaySound