#!/usr/bin/perl -w

#############################################################################
# Room - a thing that is a sound room (or short room)
#
# Copyright (C) 1999-2000 by Tels. All rights reserved.
#############################################################################

package CoW::Room;
use vars qw($VERSION);
$VERSION = 1.00;    # Current version of this package
require  5.005;     # requires this Perl version or later

use base CoW::Thing;
#use base Exporter;
#@EXPORT_OK	= qw( );
#@EXPORT	= qw( );
use strict;
use vars qw($AUTOLOAD);

#############################################################################
# constants

#############################################################################
# private, initialize self 

my $id = 1;

sub _init
  {
  my $self = shift;
  my $args = shift;

  $self->SUPER::_init($args); 	# use things _init to make copy and checks
  # now imply some more checks
  my $eax = new EAX;
  $self->SUPER::_default( {
    eax => $eax,
    gravity => 1.0,
    id => $id;
    name => 'room_'.$id,
   } );
  $id++; 
  return $self;
  }

#############################################################################
# public

1; 

__END__

#############################################################################

=pod

=head1 NAME

SoundRoom -- a brush is the basic building block for terrain.

=head1 SYNOPSIS

	use Brush qw(AIR CUBE);

=head1 REQUIRES

perl5.005, Exporter, L<Bunch|Bunch>, L<Thing|Thing>, L<Constants::Dromed|Constants::Dromed>

=head1 EXPORTS

Exports nothing.

=head1 DESCRIPTION

This represents one sound room, which is defines how the sound flows.

=head1 FIELDS

=over 2

=back

=head1 METHODS

=head1 BUGS

None known yet.

=head1 AUTHOR

Tels http://bloodgate.com in late 2000.

=cut

