# MusicPlayer.pm
#
# Copyright (c) 2002 Cunningham & Cunningham, Inc.
# Released under the terms of the GNU General Public License version 2 or later.
#
# Perl translation by Dave W. Smith <dws@postcognitive.com>

package Test::C2FIT::eg::music::MusicPlayer;

use strict;
use vars qw($playing $paused);

$playing = undef;
$paused  = 0;

sub play {
    my ($music) = @_;
    my $seconds;

    if ( 0 == $paused ) {
        $Test::C2FIT::eg::music::Music::status = "loading";
        $seconds = ( $playing && $music == $playing ) ? 0.3 : 2.5;
        $Test::C2FIT::eg::music::Simulator::nextPlayStarted =
          Test::C2FIT::eg::music::Simulator->schedule($seconds);
    }
    else {
        $Test::C2FIT::eg::music::Music::status               = "playing";
        $Test::C2FIT::eg::music::Simulator::nextPlayComplete =
          Test::C2FIT::eg::music::Simulator->schedule($paused);
        $paused = 0;
    }
}

sub playing {
    my $self = shift;
    return $playing;
}

sub pause {
    $Test::C2FIT::eg::music::Music::status = "pause";
    if ( $playing && $paused == 0 ) {
        $paused =
          ( $Test::C2FIT::eg::music::Simulator::nextPlayComplete -
              $Test::C2FIT::eg::music::Simulator::time );
        $Test::C2FIT::eg::music::Simulator::nextPlayComplete = 0;
    }
}

sub stop {
    $Test::C2FIT::eg::music::Simulator::nextPlayStarted  = 0;
    $Test::C2FIT::eg::music::Simulator::nextPlayComplete = 0;
    playComplete();
}

# Status

sub secondsRemaining {
    return $paused if $paused;
    return ( $Test::C2FIT::eg::music::Simulator::nextPlayComplete -
          $Test::C2FIT::eg::music::Simulator::time )
      if $playing;
    return 0;
}

sub minutesRemaining {
    return int( secondsRemaining() / 0.6 + 0.5 ) / 100;
}

# Events

sub playStarted {
    $Test::C2FIT::eg::music::Music::status = "playing";
    $playing = Test::C2FIT::eg::music::MusicLibrary::looking();
    $Test::C2FIT::eg::music::Simulator::nextPlayComplete =
      Test::C2FIT::eg::music::Simulator->schedule( $playing->seconds() );
}

sub playComplete {
    $Test::C2FIT::eg::music::Music::status = "ready";
    $playing                               = undef;
}

1;

__END__

// Copyright (c) 2002 Cunningham & Cunningham, Inc.
// Read license.txt in this directory.

package eg.music;

public class MusicPlayer {

    static Music playing = null;
    static double paused = 0;

    // Controls /////////////////////////////////

    static void play(Music m) {
        if (paused == 0) {
            Music.status = "loading";
            double seconds = m == playing ? 0.3 : 2.5 ;
            Simulator.nextPlayStarted = Simulator.schedule(seconds);
        } else {
            Music.status = "playing";
            Simulator.nextPlayComplete = Simulator.schedule(paused);
            paused = 0;
        }
    }

    static void pause() {
        Music.status = "pause";
        if (playing != null && paused == 0) {
            paused = (Simulator.nextPlayComplete - Simulator.time) / 1000.0;
            Simulator.nextPlayComplete = 0;
        }
    }

    static void stop() {
        Simulator.nextPlayStarted = 0;
        Simulator.nextPlayComplete = 0;
        playComplete();
    }

    // Status ///////////////////////////////////

    static double secondsRemaining() {
        if (paused != 0) {
            return paused;
        } else if (playing != null) {
            return (Simulator.nextPlayComplete - Simulator.time) / 1000.0;
        } else {
            return 0;
        }
    }

    static double minutesRemaining() {
        return Math.round(secondsRemaining() / .6) / 100.0;
    }

    // Events ///////////////////////////////////

    static void playStarted() {
        Music.status = "playing";
        playing = MusicLibrary.looking;
        Simulator.nextPlayComplete = Simulator.schedule(playing.seconds);
    }

    static void playComplete() {
        Music.status = "ready";
        playing = null;
    }
}