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

package Pastel::Geometry::EllipseIterator;\r
@ISA = qw(Pastel::Geometry::PathIteratorI Pastel::Mixin::Mixin);\r
use Pastel::Geometry::PathIteratorI;\r
use Pastel::Mixin::Mixin;\r
use strict;\r
use Carp;\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
     if (@args < 2 ){\r
	croak "Error: Isufficent argument in Pastel::Geometry::EllipseIterator!\n";\r
    }\r
     elsif ( ref($args[0]) ne "Pastel::Geometry::Ellipse"){\r
	 croak "First argument of the Pastel::Geometry::EllipseIterator::new\n\r
                has to be a Pastel::Geometry::Ellipse\n";\r
     }\r
\r
     elsif ( ref($args[1]) ne "Pastel::Geometry::AffineTransform"){\r
	 croak "Second argument of Pastel::Geometry::EllipseIterator::new\n\r
                has to be a Pastel::Geometry::AffineTransform\n";\r
     }\r
\r
     else {\r
	 $self->{x} = $args[0]->get_x();\r
	 $self->{y} = $args[0]->get_y();\r
	 $self->{w} = $args[0]->get_width();\r
	 $self->{h} = $args[0]->get_height();\r
	 $self->{affine} = $args[1];\r
	 $self->{index} = 0;\r
\r
	 if ( $self->{w} < 0 || $self->{h} < 0){\r
	     $self->{index} = 6;\r
	 }\r
     }\r
\r
     return $self;\r
}\r
\r
sub get_winding_rule {\r
    my ($self, @args)= @_;\r
    #print "winding rule called\n";\r
    #print $WIND_NON_ZERO;\r
    return  $Pastel::Geometry::PathIteratorI::WIND_NON_ZERO;\r
}\r
\r
sub is_done {\r
    my $self = shift;\r
    return $self->{index} > 5;\r
}\r
\r
sub next {\r
    my $self = shift;\r
    $self->{index}++;\r
}\r
\r
\r
1;\r
\r
    \r
    \r