File Coverage

blib/lib/Math/Window2Viewport.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	3	3	100.0
total	25	25	100.0

package Math::Window2Viewport;
use strict;
use warnings FATAL => 'all';
our $VERSION = '1.01';

sub new {
    my $class = shift;
    my $self  = bless {@_}, $class;

    $self->{Sx} = ( $self->{Vr} - $self->{Vl} ) / ( $self->{Wr} - $self->{Wl} );
    $self->{Sy} = ( $self->{Vt} - $self->{Vb} ) / ( $self->{Wt} - $self->{Wb} );
    $self->{Tx} = ( $self->{Vl} * $self->{Wr} - $self->{Wl} * $self->{Vr} ) / ( $self->{Wr} - $self->{Wl} );
    $self->{Ty} = ( $self->{Vb} * $self->{Wt} - $self->{Wb} * $self->{Vt} ) / ( $self->{Wt} - $self->{Wb} );

    return $self;
}

sub Dx {
    my ($self,$x) = @_;
    return $self->{Sx} * $x + $self->{Tx};
}

sub Dy {
    my ($self,$y) = @_;
    return $self->{Sy} * $y + $self->{Ty};
}

1;

__END__