Image::Size::FillFullSelect - Choose wether a image fill setting for a image should be fill or full.

Image-Size-FillFullSelect documentation Contained in the Image-Size-FillFullSelect distribution.

Index

Code Index:

NAME

Top

Image::Size::FillFullSelect - Choose wether a image fill setting for a image should be fill or full.

VERSION

Top

Version 0.1.0

SYNOPSIS

Top

Decides if the fill setting for a image should be either fill, in meaning the image should be resized to fix the screen, or full which means it should be scaled to fit the screen.

    use Image::Size::FillFullSelect;

    my $iffs = Image::Size::FillFullSelect->new();
    my $FFselection = $iffs->select("someImage.gif");

FUNCTIONS

Top

new

This creates a new Image::Size::FillFullSelect object.

It takes one optional arguement, which is a integer that represents the maximum difference between the X and Y dimensions of a image. The default is .2, which means the maximum differce between either can be 20%.

select

This makes the selection between the two.

It takes two arguements and three optional ones.

The first arguement is the image.

The second is the max difference when the size of the picture is used to devide each other.

The third is continuation of the second, but defaults what ever the second is if it is not specified.

The fourth is comparative X resolution to use.

The fifth is the comparative Y resolution to use.

Upon a error, it returns undef.

    my $filltype=$iffs->select($image, '.2', undef, '800', '600');

AUTHOR

Top

Zane C. Bowers, <vvelox at vvelox.net>

BUGS

Top

Please report any bugs or feature requests to bug-image-size-fillfullselect at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Image-Size-FillFullSelect. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

Top

You can find documentation for this module with the perldoc command.

    perldoc Image::Size::FillFullSelect

You can also look for information at:

* RT: CPAN's request tracker

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Image-Size-FillFullSelect

* AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Image-Size-FillFullSelect

* CPAN Ratings

http://cpanratings.perl.org/d/Image-Size-FillFullSelect

* Search CPAN

http://search.cpan.org/dist/Image-Size-FillFullSelect

ACKNOWLEDGEMENTS

Top

COPYRIGHT & LICENSE

Top

Copyright 2008 Zane C. Bowers, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Image-Size-FillFullSelect documentation Contained in the Image-Size-FillFullSelect distribution. 
package Image::Size::FillFullSelect;

use Image::Size;
use warnings;
use strict;


our $VERSION = '0.1.0';



sub new {
	my $hash;
	
	if(defined($_[1])){
		$hash={maxdiff=>$_[1]};
	}else{
		$hash={maxdiff=>".2"};
	}

	bless $hash;
	return $hash;
}


sub select{ #arg1=the image to use  arg2=the max difference
	my ($self, $image, $maxdiff, $maxdiff2, $xres, $yres)=@_;
	my ($imageX, $imageY)=imgsize("$image");

	#use the default if it is defined.
	if(!defined($maxdiff)){
		$maxdiff=$self->{maxdiff};
	};

	if (!$imageX){
		warn($image." is not a image\n");
		return undef;
	};
	#this needs done twice since one direction only can't be trusted...
	my $ixydiff1;
	my $ixydiff2;
	if (!defined($xres)) {
		$ixydiff1=$imageX/$imageY - 1; #gets the scale difference...
		$ixydiff1=abs($ixydiff1); #make the scale differ into a absolute value for easier use
		$ixydiff2=$imageY/$imageX - 1; #gets the scale in the other directions...
		$ixydiff2=abs($ixydiff2); #abs the other one also
	}else {
		$ixydiff1=$xres/$imageY - 1; #gets the scale difference...
		$ixydiff1=abs($ixydiff1); #make the scale differ into a absolute value for easier use
		$ixydiff2=$yres/$imageX - 1; #gets the scale in the other directions...
		$ixydiff2=abs($ixydiff2); #abs the other one also		
	}

	if (!defined($maxdiff2)) {
		if ($ixydiff1 <= $maxdiff || $ixydiff2 <= $maxdiff){
			return "fill";
		}else{
			return "full";
		}
	}
	if ($ixydiff1 <= $maxdiff || $ixydiff2 <= $maxdiff2){
		return "fill";
	}else{
		return "full";
	}
}



1; # End of Image::Size::FillFullSelect