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

package Pastel::Geometry::Line;\r
@ISA = qw(Pastel::Mixin::Mixin Pastel::Shape);\r
use strict;\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
\r
     #If two Point objects have been passed\r
     if(@args == 2){\r
           my ($point1, $point2) = @args;\r
           $self->{x1}= $point1->get_x();\r
           $self->{x2} = $point2->get_x();\r
           $self->{y1} = $point1->get_y();\r
           $self->{y2} = $point2->get_y();\r
     }\r
\r
     #If point coordinates have been passed\r
     elsif(@args > 2){\r
       my ($x1, $y1, $x2, $y2) = \r
                    $self->_rearrange(["X1","Y1","X2","Y2"],@args);\r
       $self->{_coords} = [ $x1, $y1, $x2, $y2 ]; #Reserve the coordinates for future use\r
       $self->{x1} = $x1;\r
           $self->{x2} = $x2;\r
           $self->{y1} = $y1;\r
           $self->{y2} = $y2;\r
     }\r
      return $self;\r
}\r
\r
sub get_bounds {\r
    \r
    my $self = shift;\r
    my $bb = $self->_get_bounds(@{$self->{_coords}}); # Call method from Pastel::Geometry::Shape\r
   return $bb;\r
}\r
sub get_x1 { $_[0]->{x1}; }\r
sub get_x2 { $_[0]->{x2}; }\r
sub get_y1 { $_[0]->{y1}; }\r
sub get_y2 { $_[0]->{y2}; }\r
\r
sub get_p1 { return Pastel::Geometry::Point->new ($_[0]->{x1}, $_[0]->{y1}); }\r
sub get_p2 { return Pastel::Geometry::Point->new ($_[0]->{x2}, $_[0]->{y2}); }\r
\r
\r
# Called by the draw() method of Pastel::Graphics::draw()\r
\r
sub _draw {\r
  my $self = shift;\r
  my $x1 = $self->get_x1();\r
  my $x2 = $self->get_x2();\r
  my $y1 = $self->get_y1();\r
  my $y2 = $self->get_y2();\r
\r
\r
  my $graphics = shift; # Graphics object passed as parameter\r
  my $style =$self->get_style($graphics);\r
  #my $paint = $graphics->get_paint()->to_svg();\r
\r
  my $data = qq(<line x1="$x1" y1="$y1" x2="$x2" y2="$y2" );\r
  \r
  $data .= "style=\"".$style."\"";\r
  #if (defined($self->{stroke})){\r
#      #print "Line stroke defined\n";\r
#      my $stroke = $self->{stroke} ;\r
#      my $st=$stroke->_to_svg();\r
#      $data .= "style="."\"fill:none;".$paint.";".$st."\""." />";\r
#  }\r
#  else {\r
      $data .= qq( />);\r
#  }\r
  return $data;\r
\r
}\r
\r
1;\r