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

# Pastel::Geometry::Ellipse\r
# Copyright 2001, Malay Kumar Basu curiouser@ccmb.ap.nic.in\r
\r
package Pastel::Geometry::Ellipse;\r
@ISA = qw(Pastel::Mixin::Mixin Pastel::Shape);\r
#use Pastel::Geometry::Shape;\r
use Carp;\r
use strict;\r
\r
sub new {\r
    my $class = shift;\r
    #print STDERR "Ellipse called\n@_\n";\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
     #print STDERR "Ellipse init called\n";\r
     \r
     #If no argument supplied, an empty constructor-\r
     if ( @args < 1){\r
       $self->{x} = 0;\r
       $self->{y} = 0;\r
       $self->{w} = 0;\r
       $self->{h} = 0;\r
     } else {\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
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 { return $_[0]->{x}; }\r
sub get_y { return $_[0]->{y}; }\r
sub get_width { return $_[0]->{w}; }\r
sub get_height { return $_[0]->{h}; }\r
\r
sub get_bounds {\r
  my $self = shift;\r
  \r
  #Create a new Rectangle and return\r
  my $bb = Pastel::Geometry::Rectangle->new(\r
					    $self->get_x(),\r
					    $self->get_y(),\r
					    $self->get_width(),\r
					    $self->get_height());\r
  return $bb;\r
}\r
\r
sub isEmpty {\r
  my $self = shift;\r
  return if ( $self->get_width() <= 0 || $self->get_height() <= 0 );\r
}\r
\r
\r
sub contains {\r
    my $self = shift;\r
    \r
    my ($x, $y, $w, $h) = $self->_rearrange(["X", "Y", "WIDTH", "HEIGHT"], @_);\r
\r
    if ( defined($x) &&\r
	 defined($y) &&\r
	 defined($w) &&\r
	 defined($h) )\r
      {\r
	  return ( $self->_contains($x, $y) &&\r
		   $self->_contains( $x + $w, $y) &&\r
		   $self->_contains( $x, $y + $h) &&\r
		   $self->_contains( $x + $w, $y + $h) );\r
      }\r
\r
    elsif ( defined( $x) &&\r
	 defined( $y) &&\r
	 !defined($w) &&\r
	 !defined ( $h) )\r
      {\r
	return ( $self->_contains( $x, $y) );\r
    }\r
\r
    else {\r
	croak "Illegal parameter in Pastel::Ellipse::contains()\n";\r
	}\r
	 \r
\r
}\r
\r
\r
sub _contains {\r
    my $self = shift;\r
    my ($x, $y ) =@_;  \r
    \r
    my $width = $self->get_width();\r
    if ($width <= 0){\r
	return undef;\r
    }\r
    my $normalized_x = ($x - $self->get_x() ) / $width - 0.5;\r
\r
    my $height = $self->get_height();\r
    if( $height <= 0 ){\r
	return undef;\r
    }\r
\r
    my $normalized_y = ($y - $self->get_y() ) / $height - 0.5;\r
    return ( $normalized_x * $normalized_x + $normalized_y * $normalized_y) < 0.25;\r
}\r
\r
sub intersects {\r
    my ($self, @args) = @_;\r
    my ($x, $y, $width, $height) =\r
      $self->_rearrange( ["X","Y","WIDTH","HEIGHT"],\r
			 @args);\r
\r
    if($width <= 0 || $height <= 0){\r
	return undef;\r
    }\r
\r
    my $w = $self->get_width();\r
    my $h = $self->get_height();\r
    if( $w <= 0 || $h <= 0){\r
	return undef;\r
    }\r
\r
    my $norm_x1 = ( $x - $self->get_x() ) / $w - 0.5;\r
    my $norm_x2 = $norm_x1 + $width / $w;\r
\r
    my $norm_y1 = ( $y - $self->get_y() ) / $h - 0.5;\r
    my $norm_y2 = $norm_y1 + $height/ $h;\r
\r
    my ($near_x, $near_y);\r
\r
    if ( $norm_x1 > 0 ){\r
	$near_x = $norm_x1;\r
    } elsif ( $norm_x2 < 0 ){\r
	$near_x = $norm_x2;\r
    } else {\r
	$near_x = 0;\r
    }\r
\r
    if( $norm_y1 > 0 ){\r
	$near_y = $norm_y1;\r
    } elsif ( $norm_y2 < 0 ) {\r
	$near_y = $norm_y2;\r
    } else {\r
	$near_y = 0;\r
    }\r
\r
    return ( $near_x * $near_x + $near_y * $near_y ) < 0.25;\r
}\r
\r
\r
sub get_center {\r
    my $self = shift;\r
    my $x = $self->get_x() + ($self->get_width() / 2);\r
    my $y = $self->get_y() + ($self->get_height()/ 2);\r
    return Pastel::Geometry::Point->new(-x=>$x, -y=>$y);\r
    \r
}\r
\r
sub _draw{\r
  my ($self,$g) = @_;\r
  my $style = $self->get_style($g);\r
  my $s = "<ellipse cx=\"".$self->get_center()->get_x()."\" cy=\"";\r
  $s   .= $self->get_center()->get_y()."\" rx=\"";\r
  $s   .= eval($self->get_width()/2) ."\" ry=\"".eval($self->get_height()/2). "\" style=\"$style\" />";\r
  return $s;\r
}\r
\r
\r
1;\r