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

package Pastel::Geometry::AffineTransform;\r
@ISA = qw(Pastel::Mixin::Mixin );\r
use Carp;\r
use strict;\r
\r
# Perl module for Pastel::Geometry::AffineTransform\r
# Cared for by Malay<curiouser@ccmb.ap.nic.in>\r
# Copyright 2001, Malay Kumar Basu\r
# You may distribute this module under the same terms as perl itself\r
\r
=head1 NAME\r
\r
Pastel::Geometry::AffineTranform\r
\r
This module encapsulates the 2D tranformation matrix of graphics.\r
\r
=head1 DESCRIPTION\r
\r
Every elements of the graphics object can be geometrically transformed. \r
SVG specification allows - Translation, Scaling, Roatation and Skew. \r
Transformation itself is represented by a 3 X 3 matrix. Like in Java \r
AffineTranform class we will represent it here like this-\r
\r
        [ x']   [  m00  m01  m02  ] [ x ]   [ m00x + m01y + m02 ]\r
	[ y'] = [  m10  m11  m12  ] [ y ] = [ m10x + m11y + m12 ]\r
	[ 1 ]   [   0    0    1   ] [ 1 ]   [         1         ]\r
\r
      Where x' and y' are the new coordinates and x and y are the old ones.\r
      In SVG it is represented as-\r
      <g transform="matrix(m00,m10,m01,m11,m02,m12)">...</g>\r
\r
<B>Translation:</B>\r
\r
        [ x']   [   1    0    tx  ] [ x ] \r
	[ y'] = [   0    1    ty  ] [ y ] \r
	[ 1 ]   [   0    0    1   ] [ 1 ] \r
\r
      Where tx and ty are the distances to translate. It is represented\r
      in SVG as-\r
      <g transform="translate(tx, ty)">...</g>\r
\r
<B>Scaling:</B>     \r
\r
        [ x']   [   Sx   0    0  ] [ x ] \r
	[ y'] = [   0    Sy   0  ] [ y ] \r
	[ 1 ]   [   0    0    1  ] [ 1 ]\r
\r
In SVG-\r
     <g transform="scale(Sx, Sy)">...</g>\r
     If Sy is not provided it is assumed to be equals to Sx.\r
\r
<b>Rotation:</b>\r
        [ x']   [  cos(a)   -sin(a)    0  ] [ x ] \r
	[ y'] = [  sin(a)    cos(a)    0  ] [ y ] \r
	[ 1 ]   [   0         0        1  ] [ 1 ]\r
\r
In SVG-\r
    \r
     <g transform="rotate(a, [x, y])">...</g>\r
     If x and y are provided is like translating to that point then rotating\r
     and then coming to the original position.\r
\r
<b>SkewX and Y:</b>\r
     \r
     <g transform="skewX(a)">...</g>\r
     <g transform="skewY(a)">...</g>\r
\r
=head1 SYNOPSIS\r
\r
    use Pastel;\r
    my $g2 = Pastel::Graphics->new(...);\r
    # Create two tranfoms\r
    my $transform1 = Pastel::Geometry::AffineTranform->new();\r
    my $transform2 = Pastel::Geometry::AffineTranform->new();\r
    \r
    # Modify Transfom1\r
    $transform1->set_to_indentity();\r
    $transform1->rotate(45);\r
    \r
    # Modify Transform2\r
    $transform2->scale(0.5,0.5);\r
    \r
    # Join both the transform\r
    $transform1->concatanate($transform2);\r
    \r
    # To concatanate to existing transform in $g2 call transform()\r
    $g2->transform($transform1);\r
\r
    # To replace the existing transform\r
    $g2->set_transform($transform2);\r
\r
=head1 CONSTRUCTORS \r
\r
=over 4\r
\r
=item Pastel::Geometry::AffineTransform->new()\r
\r
=item Pastel::Geometry::AffineTransform->new(-transform=>$tx)\r
\r
$tx is another Pastel::Geometry::AffineTransform object. \r
\r
=item Pastel::Geometry::AffineTransform->new(@array)\r
\r
@array is 4 or 6 elements numbers representing 4 non-tranaslatable entries\r
or the complete array of 6 specifiable entries of 3 X 3 transformation matrix.\r
\r
=item Pastel::Geometry::AffineTransform->new(-m00=>$n, -m10=>$n, -m01=>$n, -m11=>$n, -m02=>$n, -m12=>, $n)\r
\r
Complete transformation matrix. $n = numbers.\r
\r
=item Pastel::Geometry::AffineTransform->new($n1,$n2,$n3,$n4,$n5,$n6)\r
\r
=item Pastel::Geometry::AffineTransform->new(-m00=>$n, -m10=>$n, -m01=>$n, -m11=>$n)\r
\r
=back\r
\r
=cut\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(@args == 0){ # Default empty constructor\r
    return $self;\r
  }\r
    \r
  if(@args < 4){ # Another Affinetranform object passed??\r
    \r
    if( $args[0] =~ /transform/i){ # Check whther a named perl-style? \r
      \r
      if($args[1]->isa("Pastel::Geometry::AffineTransform")){\r
        $self = $args[1]->clone();\r
	return $self;\r
      }else {\r
         croak("Illegal parameters in construction of \r
                        Pastel::Geometry::AffineTransform");\r
       }\r
    \r
     } elsif(ref($args[0]) && \r
                   $args[0]->isa("Pastel::Geometry::Transform")){\r
        $self = $args[0]->clone();\r
	return $self;\r
    } else { \r
        croak("Illegal parameters in construction of \r
                    Pastel::Geometry::AffineTransform");\r
    }\r
  }\r
	\r
  if(@args >= 4){ # Definitely matrix data passed 	\r
     my(@m) = $self->_rearrange(["M00","M10","M01","M11","M02","M12"],\r
                                           @args);\r
     $self->{m00} = $m[0];\r
     $self->{m10} = $m[1];\r
     $self->{m01} = $m[2];\r
     $self->{m11} = $m[3];\r
     if(@m > 5){  # Full set of 6 data???\r
	 $self->{m02} = $m[4];\r
	 $self->{m12} = $m[5];\r
     }\r
  }     \r
		\r
}\r
\r
1;\r