Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Pastel / Shape.pm

package Pastel::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
    my ( $self, @args ) = @_;\r
    my ( $max_x, $max_y, $min_x, $min_y ); # Hold the maximum and\r
                                           # 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(\r
        $min_x, $min_y,\r
        ( $max_x - $min_x ),\r
        ( $max_y - $min_y )\r
    );\r
    return $bb;\r
\r
}\r
\r
sub set_stroke_color {\r
    my $self = shift;\r
    $self->{stroke_color} = $_[0];\r
}\r
\r
sub get_stroke_color {\r
    my $self = shift;\r
    if ( $self->{stroke_color} ) {\r
        return $self->{stroke_color};\r
    }\r
    else {\r
        return undef;\r
    }\r
\r
}\r
\r
sub set_stroke {\r
    my $self   = shift;\r
    my $stroke = shift;\r
    $self->{stroke} = $stroke;\r
}\r
\r
sub get_style {\r
    my $self     = shift;\r
    my $graphics = shift;\r
    my $string   = "";\r
\r
    # First check whether fill is set\r
    # "Fill" is set by the fill method of Pastel::Graphics\r
    if ( defined( $self->{fill} ) ) {\r
        my $fill = $self->{fill};\r
\r
        #If fill is a "color" object\r
        if ( $fill->isa("Pastel::Color") ) {\r
\r
            # $string .= "fill:".$self->get_fill()->to_hex().';';\r
            #	    $string .= "fill-opacity:".$self->get_fill()->get_alpha().';';\r
            $string .= $self->get_fill()->to_svg_fill() . ';';\r
        }\r
\r
        #If fill is a Gradient object\r
        if ( $fill->isa("Pastel::GradientI") ) {\r
            $string .= "fill:url(" . $self->get_fill()->get_ref() . ");";\r
            $graphics->add_to_defs($fill);\r
        }\r
\r
        #If fill rule is set\r
        if ( $self->get_fill_rule() ) {\r
            $string .= "fill-rule:" . $self->get_fill_rule() . ';';\r
        }\r
    }\r
    else {\r
        $string .= 'fill:none;';\r
    }\r
\r
    if ( $graphics->get_stroke() ) {\r
\r
        my $paint;\r
	\r
        if ( $self->get_stroke_color() ) {\r
            $paint = $self->get_stroke_color();\r
        }\r
        else {\r
            $paint = $graphics->get_paint();\r
        }\r
        if ( $paint->isa("Pastel::Color") ) {\r
            $string .= $paint->to_svg();\r
        }\r
\r
        if ( $paint->isa("Pastel::GradientI") ) {\r
            $string .= "stroke:url(" . $paint->get_ref() . ');';\r
            $graphics->add_to_defs($paint);\r
        }\r
\r
        my $stroke = $graphics->get_stroke();\r
        $string .= $stroke->to_svg();\r
\r
    }\r
\r
    return "$string";\r
}\r
\r
sub get_fill {\r
    return $_[0]->{fill};\r
}\r
\r
sub set_fill {\r
    my $self = shift;\r
    $self->{fill} = shift;\r
}\r
\r
sub set_fill_rule {\r
    my $self = shift;\r
    my $rule = shift;\r
    $self->{fill_rule} = $rule;\r
}\r
\r
sub get_fill_rule {\r
    my $self = shift;\r
    if ( $self->{fill_rule} ) {\r
        return $self->{fill_rule};\r
    }\r
    else {\r
        return undef;\r
    }\r
}\r
\r
1;\r