package Line
@ISA = qw()

sub new
my ($module, $width, $color) = @_;
return $this;

sub DESTROY
my $this = shift;

sub Width
return shift->{'Width'};

sub Color
return shift->{'Color'};

sub SetStyle
my ($this, $width, $color) = @_;

sub Draw
my ($this, $canvas, $x0, $y0, $x1, $y1, $tag) = @_;
package Symbol
@ISA = qw()

sub BEGIN

sub new
my ($module, $type, $size, $fillcolor, $linewidth, $linecolor) = @_;
return $this;

sub DESTROY
my $this = shift;

sub Type
return shift->{'Type'};

sub Size
return shift->{'Size'};

sub LineWidth
return shift->{'LineWidth'};

sub LineColor
return shift->{'LineColor'};

sub FillColor
return shift->{'FillColor'};

sub SetStyle
my ($this, $type, $size, $fillcolor, $linewidth, $linecolor) = @_;

sub Draw
my ($this, $canvas, $x0, $y0, $tag, $ColorIntensity) = @_;