package BDSM::Shape::Hall;
use strict;
use warnings;
use include;

use BDSM::Util;

use BDSM::Transform;

use Exporter;
our @ISA = ("Exporter");
our @EXPORT = ("new_hall", "new_corridor");

# Returns a hall with specified dimensions. (A hall is rectangular.)
sub new_hall {
  my ($height, $width) = @_;
  my $map = bdsm_map($height, $width, ".");
  border($map);
  findwalls($map, 0, 0, 0, 0);
  $map->{Type} = "Hall";
  return $map;
}

# TODO: makeme
# Returns a corridor with specified dimensions. (A corridor is diagonal.)
sub new_corridor {
}

42;
