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 / Point.pm

package Pastel::Geometry::Point;\r
@ISA = ("Pastel::Mixin::Mixin");\r
use strict;\r
\r
sub new \r
    {\r
    my( $class) = shift;\r
    my $self = {};\r
    bless $self, ref($class) || $class;\r
    $self = $self->_init(@_);\r
    return $self;\r
    }\r
\r
sub _init\r
    {\r
    my ($self) = shift;\r
    \r
    if (@_ == 1){ #If only one parameter left after shifting\r
         \r
         if(ref($_[0]) =~ /Point/i){\r
           $self-> _clone_point($_[0]);\r
           return $self;\r
         } \r
         else{\r
         return undef;\r
         }\r
    }   \r
    else {\r
         my ($x, $y) = $self->_rearrange(["X", "Y"], @_);\r
         \r
         $self->{x} = $x ? $x : 0;\r
         $self->{y} = $y ? $y :0;\r
         return $self;\r
    }\r
}\r
\r
sub _clone_point {\r
    my $self = shift;\r
    $self->{x} = $_[0]->get_x();\r
    $self->{y} = $_[0]->get_y();\r
    }\r
    \r
sub get_x {\r
    my $self = shift;\r
    return $self->{x};\r
}\r
\r
sub get_y {\r
    my $self = shift;\r
    return $self->{y};\r
}\r
\r
sub set_x {\r
    my $self = shift;\r
    my ($x) = $self->_rearrange(["X"], @_);\r
    $self->{x} = $x;\r
}\r
\r
sub set_y {\r
    my $self = shift;\r
    my ($y) = $self->_rearrange(["Y"], @_);\r
    $self->{y} = $y;\r
}\r
sub move {\r
    my $self = shift;\r
    my ($x, $y) = $self->_rearrange(["X", "Y"], @_);\r
    $self->{x} = $x;\r
    $self->{y} = $y;\r
}\r
\r
sub translate {\r
    my $self = shift;\r
    my ($x, $y) = $self->_rearrange(["X", "Y"], @_);\r
    $self->{x} += $x;\r
    $self->{y} += $y;\r
}\r
\r
sub set_location {\r
    my $self = shift;\r
    $self->move(@_);\r
}\r
\r
sub equals {\r
    my $self = shift;\r
    my $x = $_[0]->get_x();\r
    my $y = $_[0]->get_y();\r
    if ( ($self->{x} == $x) && ($self->{y} == $y) ){\r
       return 1;\r
    }    \r
    else {\r
         return undef;\r
    }\r
}\r
\r
sub to_string {\r
    my $self = shift;\r
    my $r = ref($self)."[x=".$self->{x}.",y=".$self->{y}."]";\r
    return $r;\r
}\r
\r
\r
sub distance {\r
    my ($self, @args) = @_;\r
=head1    \r
    if (($_[0] =~ /:point/i) || (ref($_[0]) =~ /:point/i)){\r
       ($self, @args) = @_;\r
    }\r
    else {\r
         @args = @_;\r
    }\r
=cut   \r
    my $d = undef;\r
    if (@args == 1){ #Passed a reference\r
      \r
       my $x = $args[0]->get_x();\r
       my $y = $args[0]->get_y();\r
       $d =_calculate_distance ($self->{x}, $self->{y},\r
                             $x, $y);\r
    }\r
    elsif (@args == 2) {\r
       $d = _calculate_distance($self->{x}, $self->{y}, @args);\r
    }\r
    else {\r
    \r
         my ($x1, $y1, $x2, $y2) =  \r
                         Pastel::Mixin::Mixin::_rearrange("static",["X1","Y1","X2","Y2"],@_);\r
    \r
         $d = _calculate_distance($x1, $y1, $x2, $y2);\r
    \r
    }\r
    return $d;\r
}\r
\r
sub _calculate_distance {\r
    my ($x1, $y1, $x2, $y2) = @_;\r
    return sqrt ( ($x1 - $x2)**2 + ($y1 - $y2)**2 );\r
}\r
\r
1;\r
    \r