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

package Pastel::Geometry::Shape;\r
use strict;\r
\r
# Perl interface for the Geometry objects. The function get_bounds()\r
# Called by all the Geometry objects. Parameters passed are the\r
# Point coordinates\r
\r
sub _get_bounds\r
{\r
    my ($self, @args) = @_;\r
    my ($max_x, $max_y, $min_x, $min_y); # Hold the maximum and the minimum coordinates\r
\r
     $max_x = $args[0];\r
     $max_y = $args[1];\r
     $min_x = $args [0];\r
     $min_y = $args[1];\r
\r
    for (my $i = 0; $i < @args; $i +=2) { #Pick even number X values\r
	if ($args[$i] > $max_x) {\r
	    $max_x = $args[$i];\r
	}\r
	elsif ($args[$i] < $min_x){\r
	    $min_x = $args[$i];\r
	}\r
\r
    }\r
\r
    for (my $i = 1; $i <@args; $i +=2) { #Pick odd number Y values\r
	if ($args[$i] > $max_y) {\r
	    $max_y = $args[$i];\r
	}\r
	elsif ($args[$i] < $min_y) {\r
	    $min_y = $args[$i];\r
	}\r
    }\r
    \r
    my $bb = Pastel::Geometry::Rectangle->new($min_x, $min_y, ($max_x - $min_x), ($max_y - $min_y));\r
    return $bb;\r
\r
}\r
\r
sub set_stroke {\r
    my $self = shift;\r
    my $stroke = shift;\r
    $self->{stroke} = $stroke;\r
}\r
\r
\r
1;\r