=head1 NAME

DC::Audio - audio support for deliantra client

=head1 SYNOPSIS

 use DC::Audio;

=head1 DESCRIPTION

=over 4

=cut

package DC::Audio;

use common::sense;
use DC ();

our $SDL_MIXER;

sub init {
   unless ($::SDL_MIXER) {
      if (length $::CFG->{audio_driver}) {
         local $ENV{SDL_AUDIODRIVER} = $::CFG->{audio_driver};
         DC::SDL_Init DC::SDL_INIT_AUDIO
            and die "SDL::Init failed!\n";
      } else {
         DC::SDL_Init DC::SDL_INIT_AUDIO
            and die "SDL::Init failed!\n";
      }

      $ENV{MIX_EFFECTSMAXSPEED} = 1;
      $::SDL_MIXER = !DC::Mix_OpenAudio
         $::CFG->{audio_hw_frequency},
         DC::MIX_DEFAULT_FORMAT,
         $::CFG->{audio_hw_channels},
         $::CFG->{audio_hw_chunksize};

       DC::Mix_AllocateChannels $::CFG->{audio_mix_channels}
          if $::SDL_MIXER;
   }
}

1;

=back

=head1 AUTHOR

 Marc Lehmann <schmorp@schmorp.de>
 http://home.schmorp.de/

=cut