#!/usr/bin/perl -w

#############################################################################
# Decal - a decal is a texture sprayed at a wall
#
# Copyright (C) 1999-2000 by Tels. All rights reserved.
#############################################################################

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

use base CoW::Item;
use strict;
use vars qw($AUTOLOAD);

use CoW::Texture;

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

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
  $self->SUPER::_default( {
    texture => CoW::Texture->new(),
   } );
  $self->{l} = 0;
  return $self;
  }

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

1; 

__END__

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

=pod

=head1 NAME

Decal -- a texture sprayed at a wall or something.

=head1 SYNOPSIS

	use CoW::Decal;

	$decal = new CoW::Decal ( w => 128, h => 0, name => 'blood',
          texture => 'bloodstain', );

	print $decal->as_string(),"\n";

=head1 REQUIRES

perl5.005, L<Bunch|Bunch>, L<Item|Item>

=head1 EXPORTS

Exports nothing.

=head1 DESCRIPTION

This represents a texture/spray logo, with a thickness (l) of 0. It can be
applied to walls etc.

=head1 FIELDS

=head1 METHODS

=head1 BUGS

None known yet.

=head1 AUTHOR

Tels http://bloodgate.com 1999-2000.

=cut

