Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Pastel / Geometry / Rectangle.pm

package Pastel::Geometry::Rectangle;\r
@ISA = qw (Pastel::Mixin::Mixin Pastel::Shape);\r
use strict;\r
\r
use constant OUT_BOTTOM => 8;\r
use constant OUT_LEFT => 1;\r
use constant OUT_RIGHT=> 4;\r
use constant OUT_TOP => 2;\r
\r
sub new {\r
    my $class = shift;\r
    my $self = {};\r
    bless $self, ref($class) || $class;\r
    $self->_init(@_);\r
    return $self;\r
}\r
\r
sub _init {\r
    my ($self, @args) =@_;\r
    my ($x, $y, $width, $height)=\r
	$self->_rearrange(["X", "Y", "WIDTH", "HEIGHT"], @args);\r
    $self->{x} = defined($x)     ? $x      : 0;\r
    $self->{y} = defined($y)     ? $y      : 0;\r
    $self->{w} = defined($width) ? $width  : 0;\r
    $self->{h} = defined($height)? $height : 0;\r
\r
    return $self;\r
}\r
\r
\r
sub to_string {\r
    my $self = shift;\r
    return ref($self)." Location:[".$self->{x}.",".$self->{y}."] Width:".$self->{w}." Height:".$self->{h};\r
    }\r
\r
sub get_x {\r
    return $_[0]->{x};\r
}\r
\r
sub set_x {\r
    $_[0]->{x} = $_[1];\r
}\r
\r
sub get_y {\r
    return $_[0]->{y};\r
}\r
\r
sub set_y {\r
    $_[0]->{y} = $_[1];\r
}\r
\r
sub get_width {\r
    return $_[0]->{w};\r
}\r
\r
sub set_width {\r
    $_[0]->{w} = $_[1];\r
}\r
\r
sub get_height {\r
    return $_[0]->{h};\r
}\r
\r
sub set_height {\r
    $_[0]->{h} = $_[1];\r
}\r
\r
sub _draw {\r
    my $self = shift;\r
    my $graphics = shift;\r
    my $style = $self->get_style($graphics);\r
my $data = "<rect x=\"".$self->get_x()."\" y=\"".$self->get_y()."\" width=\"".$self->get_width()."\" height=\"".$self->get_height()."\" style=\"".$style."\" \/>";\r
return $data;\r
 \r
}\r
\r
sub is_empty {\r
    my $self = shift;\r
    return ($self->get_width() <= 0) || ($self->get_height() <= 0);\r
}\r
\r
sub set_rect {\r
    my $self = shift;\r
    my @args = @_;\r
    #If argument is a Pastel::Geometry::Rectangle\r
    if ($args[0]->isa("Pastel::Geometry::Rectangle") ){\r
	    $self->set_x($args[0]->get_x());\r
	    $self->set_y($args[0]->get_y());\r
	    $self->set_width($args[0]->get_width());\r
	    $self->set_height($args[0]->get_height());\r
	}\r
    else{\r
	$self->set_x($args[0]);\r
	$self->set_y($args[1]);\r
	$self->set_width($args[2]);\r
	$self->set_height($args[3]);\r
    }\r
}\r
 \r
sub _outcode {\r
    my $self = shift;\r
    my ($x, $y) = @_;\r
    my $out = 0;\r
    \r
    if($self->get_width() <= 0){\r
	$out |= $self->OUT_LEFT | $self->OUT_RIGHT;\r
    }elsif ( $x < $self->{x}){\r
	$out |= $self->OUT_LEFT;\r
    }elsif ( $x > ($self->{x} + $self->{w})){\r
	$out |= $self->OUT_RIGHT;\r
    }\r
\r
    if($self->get_height() <=0 ){\r
	$out |= $self->OUT_TOP | $self->OUT_BOTTOM;\r
    } elsif ($y < $self->{y}){\r
	$out |= $self->OUT_TOP;\r
    } elsif ($y > ( $self->{y} + $self->{h})){\r
	$out |= $self->OUT_BOTTOM;\r
    }\r
  #  print "Inside outcode\n";\r
#    print $self->OUT_LEFT;\r
    return $out;\r
}\r
    \r
\r
1;\r