Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
Basic	[ DIR ]	drwxr-xr-x
Content	[ DIR ]	drwxr-xr-x
Resource	[ DIR ]	drwxr-xr-x
Annotation.pm	8.52 KB	-rw-r--r--
Content.pm	64.69 KB	-rw-r--r--
Lite.pm	11.86 KB	-rw-r--r--
Matrix.pm	1.33 KB	-rw-r--r--
NamedDestination.pm	8.88 KB	-rw-r--r--
Outline.pm	11.12 KB	-rw-r--r--
Outlines.pm	384 B	-rw-r--r--
Page.pm	19.98 KB	-rw-r--r--
Resource.pm	1.28 KB	-rw-r--r--
UniWrap.pm	9.12 KB	-rw-r--r--
Util.pm	15.87 KB	-rw-r--r--
ViewerPreferences.pm	10.02 KB	-rw-r--r--

Code Editor : Matrix.pm

package PDF::API2::Matrix;

use strict;

use Carp;

our $VERSION = '2.043'; # VERSION

sub new {
    my $type = shift();
    my $self = [];
    my $col_count = scalar(@{$_[0]});
    foreach my $row (@_) {
        unless (scalar(@$row) == $col_count) {
            carp 'Inconsistent column count in matrix';
            return;
        }
        push @$self, [@$row];
    }

return 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 vector_product {
    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;

unless ($#{$self->[0]} == $#{$other->[0]}) {
        carp 'Mismatched dimensions in matrix multiplication';
        return;
    }
    for my $row (@$self) {
        my $result_col = [];
        for my $col (@$other) {
            push @$result_col, vector_product($row, $col);
        }
        push @result, $result_col;
    }

return PDF::API2::Matrix->new(@result);
}

${this.title}

Code Editor : Matrix.pm