module Eg.Music.MusicPlayer where

import Eg.Music.Music
import Eg.Music.Simulator

play :: Double -> Maybe Music -> Simulator -> Music -> (String, Double, Simulator)
play paused playing sim music =
  if paused == 0.0
    then
      let secs = if (Just music) == playing then 0.3 else 2.5
          next = schedule sim secs
          sim' = sim { nextPlayStarted = next }
      in ("loading", paused, sim')
    else
      let next = schedule sim paused
          sim' = sim { nextPlayComplete = next }
      in ("playing", 0.0, sim')