init III

Perl OTRS/Kernel/cpan-lib/PDF/API2/Matrix.pm

@@ -0,0 +1,72 @@
+#=======================================================================
+#
+#   PDF::API2::Matrix
+#   Original Copyright 1995-96 Ulrich Pfeifer.
+#   modified by Alfred Reibenschuh <areibens@cpan.org> for PDF::API2
+#
+#   This library is free software; you can redistribute it
+#   and/or modify it under the same terms as Perl itself.
+#
+#=======================================================================
+package PDF::API2::Matrix;
+
+use strict;
+
+our $VERSION = '2.033'; # VERSION
+
+sub new {
+    my $type = shift;
+    my $self = [];
+    my $len = scalar(@{$_[0]});
+    for (@_) {
+        return if scalar(@{$_}) != $len;
+        push(@{$self}, [@{$_}]);
+    }
+    bless $self, $type;
+}
+
+sub transpose {
+    my $self = shift;
+    my @result;
+    my $m;
+
+    for my $col (@{$self->[0]}) {
+        push @result, [];
+    }
+    for my $row (@{$self}) {
+        $m = 0;
+        for my $col (@{$row}) {
+            push(@{$result[$m++]}, $col);
+        }
+    }
+    return PDF::API2::Matrix->new(@result);
+}
+
+sub vekpro {
+    my ($a, $b) = @_;
+    my $result = 0;
+
+    for my $i (0 .. $#{$a}) {
+        $result += $a->[$i] * $b->[$i];
+    }
+    return $result;
+}
+
+sub multiply {
+    my $self  = shift;
+    my $other = shift->transpose;
+    my @result;
+    my $m;
+
+    return if $#{$self->[0]} != $#{$other->[0]};
+    for my $row (@{$self}) {
+        my $rescol = [];
+        for my $col (@{$other}) {
+            push(@{$rescol}, vekpro($row,$col));
+        }
+        push(@result, $rescol);
+    }
+    return PDF::API2::Matrix->new(@result);
+}
+
+1;