Image::Magick results from the CPAN

lib/Acme/CPANModules/FireDiamond.pm view on Meta::CPAN

our $VERSION = '0.002'; # VERSION

our $LIST = {
    summary => 'List of modules related to fire diamond (NFPA 704 standard)',
    entries => [
        {module => "Image::Magick::NFPADiamond"},
        {module => "Parse::FireDiamond"},
        {module => "App::FireDiamondUtils"},
    ],
};

lib/Acme/CPANModules/FireDiamond.pm view on Meta::CPAN


=head1 ACME::CPANMODULES ENTRIES

=over

=item L<Image::Magick::NFPADiamond>

Author: L<ESTRELOW|https://metacpan.org/author/ESTRELOW>

=item L<Parse::FireDiamond>

view all matches for this distribution

Acme-DependOnEverything

4 results

lib/Acme/DependOnEverything.pm view on Meta::CPAN

use Catalyst::Plugin::Twitter;
use Catalyst::Plugin::Unicode;
use Catalyst::Plugin::Upload::Audio::File::targ;
use Catalyst::Plugin::Upload::Basename;
use Catalyst::Plugin::Upload::Digest;
use Catalyst::Plugin::Upload::Image::Magick::tar;
use Catalyst::Plugin::Upload::MD;
use Catalyst::Plugin::Upload::MIME;
use Catalyst::Plugin::UploadProgress;
use Catalyst::Plugin::URI;
use Catalyst::Plugin::URLMap;

lib/Acme/DependOnEverything.pm view on Meta::CPAN

use Image::LibExif;
use Image::Libpuzzle;
use Image::LibRaw;
use Image::LibRSVG;
use Image::libsiftfast;
use Image::Magick::Brand;
use Image::Magick::Chart::tgz;
use Image::Magick::CommandParser::tgz;
use Image::Magick::Info;
use Image::Magick::Iterator;
use Image::Magick::NFPADiamond;
use Image::Magick::PixelMosaic;
use Image::Magick::PolyText::tgz;
use Image::Magick::Safer;
use Image::Magick::Square;
use Image::Magick::Stencilize;
use Image::Magick::Thumbnail::e;
use Image::Magick::Thumbnail::Fixed;
use Image::Magick::Thumbnail::NotFound;
use Image::Magick::Thumbnail::PDF;
use Image::Magick::Thumbnail::Simple;
use Image::Magick::Tiler::tgz;
use Image::Maps::Plot::FromLatLong;
use Image::Maps::Plot::FromPostcode;
use Image::Match;
use Image::Mate;
use Image::Math::Constrain;

lib/Acme/DependOnEverything.pm view on Meta::CPAN

use PP::Transmission::Remote;
use PrayMind;
use Prima;
use Prima::Cairo;
use Prima::codecs::win;
use Prima::Image::Magick;
use Prima::IPA;
use Prima::OpenGL;
use Prima::prigraph::win::zip;
use PrimeTime::Report;
use Printer;

view all matches for this distribution

Acme-MITHALDU-BleedingOpenGL

2 results

BleedingOpenGL.pm view on Meta::CPAN

  }
  return 0;
}
use Import::Into;
*OpenGL::import = sub {
   my %known = map { $_ => 1 } qw (OpenGL::Shader::Objects OpenGL::Shader::GLSL OpenGL::Shader::CG OpenGL::Shader::ARB OpenGL::Image::Magick OpenGL::Image::Targa);
   shift;
   my $target = caller;
   die "use Acme::MITHALDU::BleedingOpenGL" if !$known{$target};
   __PACKAGE__->import::into($target, @_);
};

view all matches for this distribution

Album

4 results

lib/Album.pm view on Meta::CPAN


Image::Info

=item *

Image::Magick (PerlMagick). Of course, this requires an ImageMagick
install as well.

=back

The following tools / packages will be used if available:

view all matches for this distribution

Alien-ImageMagick

4 results

lib/Alien/ImageMagick.pm view on Meta::CPAN


use parent 'Alien::Base';

=head1 NAME

Alien::ImageMagick - cpanm compatible Image::Magick packaging.

=head1 VERSION

Version 0.10

lib/Alien/ImageMagick.pm view on Meta::CPAN


If you use cpanm or perlbrew, this will not conflict with your system's Image Magick installation.

=head1 INSTALLATION

To use this package and use Image::Magick from your application code:

Instead of depending on 'Image::Magick', just B<depend on 'Alien::ImageMagick'>.

Then see L<http://www.imagemagick.org/script/perl-magick.php#overview> for more on using image magic with perl.

=over

=item With System Perl

If you need to use Image::Magick and use system perl and system PerlMagick, you only
need this package if you want the freshest version of Image Magick.

Install Alien::ImageMagick with your favorite package manager.

=item With cpanm

If you need to use Image::Magick and use cpanm, you only need this package
if you want the freshest version of Image Magick. Otherwise you can install
your system's one.

   cpanm Alien::ImageMagick

=item With perlbrew + cpanm

If you need to use Image::Magick and use perlbrew w/ cpanm, you will need this
package.

   cpanm Alien::ImageMagick

=back

lib/Alien/ImageMagick.pm view on Meta::CPAN


   PERL_ALIEN_IMAGEMAGICK_VERSION=7.1.1-29 perl Build.PL

=head1 SYNOPSIS

  use Image::Magick
  ...

=head1 AUTHOR

Jerome Eteve, C<< <jerome.eteve at gmail.com> >>

view all matches for this distribution

Apache-Album

3 results

# It may be used and modified freely, but I do request that this copyright
# notice remain attached to the file.  You may modify this module as you 
# wish, but if you redistribute a modified version, please attach a note
# listing the modifications you have made.

use Image::Magick;
use vars qw($VERSION);

use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::SubRequest ();

      # Make sure the thumbnail directory exists
      &mymkdir("$thumb_dir/$path_info", 0755) 
	unless -d "$thumb_dir/$path_info";

      # Create a new thumbnail
      my $q = new Image::Magick;
      unless ($q) {
	$r->log_error("Couldn't create a new Image::Magick object");
	return Apache2::Const::SERVER_ERROR;
      }
     
      # Setting the size before reading the image is dramatically
      # faster.  The trade-off is that the quality of the resized


      undef $q;

      # Create smaller versions of the full size image if requested
      if ($settings{'AllowFinalResize'}) {
	my $q = new Image::Magick;
	unless ($q) {
	  $r->log_error("Couldn't create a new Image::Magick object");
	  return Apache2::Const::SERVER_ERROR;
	}

	my $filename = $_;
	push (@cleanup_subs, sub {&create_final_resize($r, \%settings, $album_dir, $thumb_dir, $path_info, $filename, $o_width, $o_height);});

}

sub create_final_resize {
  my ($r, $settings, $album_dir, $thumb_dir, $path_info, $filename, $o_width, $o_height) = @_;

  my $q = new Image::Magick;
  $q->Read("$album_dir/$path_info/$filename");

  my $ratio = $o_width / $o_height if $o_height;

  # X-Large is 1600x1200

    my $f_height = 0;
    $f_height = 1600 / $ratio if $ratio;
    
    my $q = $q->Clone();
    unless ($q) {
      $r->log_error("Couldn't create a new Image::Magick object");
      return Apache2::Const::SERVER_ERROR;
    }
    
    $q->Scale( width => 1600, height => $f_height );
    $q->Write("$thumb_dir/$path_info/"

    my $f_height = 0;
    $f_height = 1024 / $ratio if $ratio;
    
    my $q = $q->Clone();
    unless ($q) {
      $r->log_error("Couldn't create a new Image::Magick object");
      return Apache2::Const::SERVER_ERROR;
    }
    
    $q->Scale( width => 1024, height => $f_height );
    $q->Write("$thumb_dir/$path_info/"

    my $f_height = 0;
    $f_height = 800 / $ratio if $ratio;
    
    my $q = $q->Clone();
    unless ($q) {
      $r->log_error("Couldn't create a new Image::Magick object");
      return Apache2::Const::SERVER_ERROR;
    }
    
    $q->Scale( width => 800, height => $f_height );
    $q->Write("$thumb_dir/$path_info/"

    my $f_height = 0;
    $f_height = 640 / $ratio if $ratio;
    
    my $q = $q->Clone();
    unless ($q) {
      $r->log_error("Couldn't create a new Image::Magick object");
      return  Apache2::Const::SERVER_ERROR;
    }
    
    $q->Scale( width => 640, height => $f_height );
    $q->Write("$thumb_dir/$path_info/"


Jim Woodgate woody@realtime.net

=head1 SEE ALSO

perl(1), L<Image::Magick>(3).

=cut

view all matches for this distribution

Apache-AutoIndex

2 results

		
        $list{$file}{mode} = write_mod((stat _)[2]);
    	
        $list{$file}{type}  = $subr->content_type;
	    
        if(($list{$file}{type} =~ m:^image/:) && ($cfg->{options} & THUMBNAILS ) && Apache->module("Image::Magick"))
            {
            if ($config->{cache_ok}){
                ($list{$file}{icon},$list{$file}{width},$list{$file}{height}) = get_thumbnail($r, $file, $list{$file}{mod}, $list{$file}{type}, @accept);
               }
            }

    my $cachedir = $config->{cache_dir};
   
    my $xresize;
    my $yresize;
    
    my $img = Image::Magick->new;
    my($imgx, $imgy, $img_size, $img_type) = split(',', $img->Ping($dir . $filename));
    #Is the image OK?
    return "/icons/broken.gif" unless ($imgx && $imgy);
    
    if (($content =~ /$content/) && ($img_type =~ /JPE?G|GIF|PNG/i)){


=head1 SYNOPSIS

  PerlModule Apache::Icon
  PerlModule Apache::AutoIndex
  (PerlModule Image::Magick) optionnal
  PerlTransHandler Apache::AutoIndex::transhandler
  PerlHandler Apache::AutoIndex

=head1 DESCRIPTION


That can be done in 2 ways.  In the case the image is pretty small, no actual thumbnail will
be created.  Instead the image will be resized with the HEIGHT and WIDTH attributes of the IMG 
tag.

If the image is big enough, it is resized with Image::Magick and saved in the .thumbnails directory
for the next requests.

Change in the configuration of the indexing options will correctly refresh the thumbnails stored.
Also if an original image is modified, the thumbnail will be modified accordingly.  Still, the
browser might screw things up if it preserves the cached images.


Find new things to add...

=head1 SEE ALSO

perl(1), L<Apache>(3), L<Apache::Icon>(3), L<Image::Magick>(3) .

=head1 SUPPORT

Please send any questions or comments to the Apache modperl 
mailing list <modperl@apache.org> or to me at <gozer@ectoplasm.dyndns.com>

view all matches for this distribution

Apache-AxKit-Language-Svg2AnyFormat

4 results

lib/Apache/AxKit/Language/Svg2AnyFormat.pm view on Meta::CPAN

sub serializeWithImageMagick {
    my $infile         = shift;
    my $converted_file = "$TEMPDIR_/temp." . shift;
    my $local_dir;
    
    require Image::Magick;
    
    AxKit::Debug(8, "Serializer is ImageMagick");
    
    $infile =~ s%$TEMPDIR_/%%;
    $local_dir = cwd;
    
    chdir( $TEMPDIR_ );
    
    my $image = new Image::Magick();
    my $retval = $image->Read( $infile );
        
    if( "$retval" ) {
        chdir( $local_dir );
        fail( "ImageMagick Read of file '$infile' failed. Reason: $retval" );

lib/Apache/AxKit/Language/Svg2AnyFormat.pm view on Meta::CPAN

    ## PNG
    ## Supported Values(Native Formats):
    ##    image/png
    ## If you specify any other format:
    ##   svg->png is done by Image::LibRSVG
    ##   png->chosen format Image::Magick
    PerlSetVar SVGOutputMimeType image/jpeg
    
    PerlSetVar SVGOutputSerializer LibRSVG
    
    ## optional module to pass the format using cgi-parameters

lib/Apache/AxKit/Language/Svg2AnyFormat.pm view on Meta::CPAN



=head1 DESCRIPTION

Svg2AnyFormat is a serializer which can transform SVG to many different
output formats(e.g. png, jpg, ... ). At the moment it uses Image::Magick or LibRSVG as conversion libraries
which do not support the whole set of svg features. In one case the conversion
could work in another not. You have to give it a try. Please note because 
Svg2AnyFormat to any format is a searializer it HAS TO BE LAST in the transformer 
chain!!!!

Please note when referencing external material (e.g. Images) you'll have to use an absolute path

=head2 Image::Magick

If no SVGOutputSerializer is set Image::Magick is used as default. The reason is simply
because of backward compatility. You could also set Image::Magick explicitly with

=head3 Example:

  PerlSetVar SVGOutputSerializer ImageMagick

lib/Apache/AxKit/Language/Svg2AnyFormat.pm view on Meta::CPAN


=over

=item 

supports more of SVG-spec than Image::Magick

=item

not that big

lib/Apache/AxKit/Language/Svg2AnyFormat.pm view on Meta::CPAN

* Perl-Module highly experimental

=item

only PNG supported as output format. This is solved by using
Image::Magick in a second transformation step (LOW Performance!!!).

=back

=head1 VERSION

view all matches for this distribution

Apache-Image

3 results

lib/Apache/Image.pm view on Meta::CPAN

# 	If /z/image does not, it is all broken
# 	If /z/image/thubnail exists it drops the first part of path info !
# 	all bad

# XXX We should use Image::Thumbnail !!!
use Image::Magick;

use Carp;
use version; our $VERSION = qv('0.0.4');

# TODO Can this be made to be Apaceh 1.3 (mod_perl 1) ? If not document the reason

lib/Apache/Image.pm view on Meta::CPAN

	# to get them - only problem may be that a tif wants to be a jpg
	# thumbnail
	# $r->internal_redirect("/unknown.jpg");

        # Process the image into a thumbnail and output
        my $im = Image::Magick->new;
        $im->BlobToImage($image);

	# Resize if Force or Too big !
	if ($Force || ($im->Get('width') > $MaxSize) || ($im->Get('height') > $MaxSize)) {
		$im->Scale(geometry => $MaxSize . 'x' . $MaxSize);

lib/Apache/Image.pm view on Meta::CPAN

Apache::Image requires no configuration files or environment variables.


=head1 DEPENDENCIES

Currently Image::Magick but soon to be Image::Thumbnail to allow independence
of backend.

Future to include another Image Thumbnail module for non images (movie frames,
word doc, pdf and others).

view all matches for this distribution

Apache-ImageMagick

2 results



use strict;
use vars qw{$VERSION %scriptmtime %scriptsub $packnum $debug} ;

use Image::Magick ();
use File::Basename qw(fileparse);
use DirHandle ();
use Digest::MD5 ;
use Text::ParseWords ;

    #return OK if $r->header_only;
    


    # Read the image
    my $q = Image::Magick->new;
    my $err ;
    $err = $q->Read($source) if (!$arguments{-new}) ;
    my $errfilter ;

    execute_script ($script, $r, $q, \@filters, \%arguments) or return SERVER_ERROR if ($script) ;

 http://localhost/images/whatever.jpg


=head1 DESCRIPTION

This module uses the Image::Magick library to process an image on the fly. 
It is able to convert the source image to any type you request that is supported
by Image::Magick (e.g. TIFF, PPM, PGM, PPB, GIF, JPEG and more). The requested
fileformat is determinated by the fileextention of the request and 
Apache::ImageMagick will search for an image with the same basename and convert it
automaticly (unless you set C<AIMDisableSearch>).
Addtionaly you can specify (multiple) image manipulation filters in the additional path info,
and format options in the query string. All filters applied in the order they apear in

executed, so the Perl code has to be compiled only when the script changes.
If C<AIMScriptDir> is not set, Apache::ImageMagick doesn't search for a per image
script. There is a second sort of script the default one. The full path of this script
is specfied by the C<AIMScriptDefault> directive and is executed after the per image
script was executed. So it is able to force some default values.
Both sort of scripts takes four parameters. The Apache request record, the Image::Magick
object of the loaded image, an arrayref which contains the names of all filters and a
hashref that contains all arguments. You can use the Apache object to retrives any
information about the request. You can make any operation on the image object and you
can modify the filters and arguments parameters. Here is an example that forces any fontname
to be searched in a certain directory with the extention ttf. This actualy causes 
Image::Magick to use true type fonts:


    use constant FONTPATH    => '/usr/images/fonts/' ; 
    use constant FONTDEFAULT => 'arial' ;


=over 4

=item Perl(1)

=item Image::Magick

=item http://perl.apache.org

=item http://www.modperl.com

view all matches for this distribution

Apache-ImgIndex

1 match

ImgIndex.pm view on Meta::CPAN

use Apache::RequestIO;
use Apache::Const qw(:common HTTP_OK);
use Apache::Log;
use APR::Const qw(:filetype);
use APR::Finfo;
use Image::Magick ();
use DirHandle ();
use FileHandle ();
use File::Basename qw(fileparse);

use vars qw(%gOptions @gOutput $gOutputStarted $VERSION);

ImgIndex.pm view on Meta::CPAN

    $path =~ s/\/$//g;
    $ext =~ s/^\.//g;
 
    (my $imgName = $name) =~ s/-thumb$//i;
    my($thumbName) = "$name.$ext";
    my($Img) = Image::Magick->new();
    my($tw, $th) = (0, 0);

    if(-f "$path/$thumbName") {
        ($tw, $th) = $Img->Ping("$path/$thumbName");
    }

ImgIndex.pm view on Meta::CPAN

    if(%in) {
       my($tmpfile) = "/tmp/$name." . time . ".$$.$ext";
      
       my $scale = $in{'scale'} + 100; 
 
       my($Img) = Image::Magick->new;
       $Img->Read($imgfile);
       $Img->Rotate(degrees=>$in{'rot'}) if($in{'rot'});
       $Img->Scale(geometry=>"${scale}%x${scale}%") if($in{'scale'});
       $Img->Write("$tmpfile");

view all matches for this distribution

Apache-MiniWiki

3 results

		# Don't call ImageMagick to check the size.
		# Use the existing thumb.
		return send_file($r, $thumburi);
	}

	use Image::Magick;
	my $image = Image::Magick->new;

	my ($width, $height, $size, $format) = $image->Ping($fileuri);

	if ($width < $max_width && $height < $max_height) {
		# don't scale it down


  Apache::Htpasswd
  Apache::Constants
  CGI
  Date::Manip
  Image::Magick (Optional)
  HTML::FromText
  HTML::Template
  Rcs

=head1 SYNOPSIS

instead of template. You will need to create the template by going to
/wiki/your-wiki-vroot/(edit)/template-<the_template> first.

(Optional) To disable file uploads such as binary attachments and inline images,
set uploads to no. By default it is yes. Note that inline images requires the
Image::Magick module to be installed for generating thumbnails.

  PerlAddVar uploads no

(Optional) Pre-caching can be done by a periodic (eg every 5 minutes) cronjob
to refresh the cached version of the .list* pages (see below) in the background,


Brian Lauer, E<lt>fozbaca@yahoo.comE<gt>

=head1 SEE ALSO

L<perl>, L<Apache::Registry>, L<HTML::FromText>, L<HTML::LinkExtor>, L<HTML::Template>, L<Rcs>, L<CGI>, L<Date::Manip>, L<Image::Magick>.

=cut

view all matches for this distribution

Apache-Throttle

3 results

Makefile.PL view on Meta::CPAN

# $Id: Makefile.PL,v 1.1.1.1 1998/09/11 07:49:57 don Exp $

use ExtUtils::MakeMaker;

eval "use Image::Magick ();";
if ($@) {
    print <<"EndOfMSG";
*** Warning:
    The throttleimg script that comes with Apache::Throttle requires
    the Image::Magick module, which does not seem to be installed.
    You can get it from http://www.cpan.org if you wish to use this
    script.  (It is optional, you don't need the script to run
    Apache::Throttle, but it is recommended to have it just in case).

EndOfMSG

view all matches for this distribution

Apache-UploadSvr

2 results

lib/Apache/UploadSvr/Directory.pm view on Meta::CPAN

use CGI;
use Data::Dumper;
use DirHandle;
use File::Basename qw(basename dirname);
use File::Path;
use Image::Magick;
use IO::File;
use strict;
use vars qw( $VERSION @ISA );

$VERSION = sprintf "%d.%03d", q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;

lib/Apache/UploadSvr/Directory.pm view on Meta::CPAN

    my($display_as,$href,$size,$mtime,$localtime,$imgsize,$pic,$line);
#### STAT ####
    stat "$directory/$dirent";
    $mtime = (stat _)[9];
    $display_as = $dirent; # speak for yourself
    my $imq = Image::Magick->new;
    if (ref($cache) && $cache->{$dirent}{mtime} == $mtime) {
      $line = $cache->{$dirent}{line};
      # I believe, we do not need to check if the thumbnail's still there
    } else {
      if (-d _) {

view all matches for this distribution

Apache-UpnpImgBrowser

4 results

UpnpImgBrowser.pm view on Meta::CPAN

use Apache::RequestIO;
use Apache::Const qw(:common HTTP_OK);
use Apache::Log;
use APR::Const qw(:filetype);
use APR::Finfo;
use Image::Magick ();
use DirHandle ();
use FileHandle ();
use File::Basename qw(fileparse);
use Net::UPnP::ControlPoint;
use Net::UPnP::AV::MediaServer;

UpnpImgBrowser.pm view on Meta::CPAN

    $path =~ s/\/$//g;
    $ext =~ s/^\.//g;
 
    (my $imgName = $name) =~ s/-thumb$//i;
    my($thumbName) = "$name.$ext";
    my($Img) = Image::Magick->new();
    my($tw, $th) = (0, 0);

    if(-f "$path/$thumbName") {
        ($tw, $th) = $Img->Ping("$path/$thumbName");
    }

UpnpImgBrowser.pm view on Meta::CPAN

    if(%in) {
       my($tmpfile) = "/tmp/$name." . time . ".$$.$ext";
      
       my $scale = $in{'scale'} + 100; 
 
       my($Img) = Image::Magick->new;
       $Img->Read($imgfile);
       $Img->Rotate(degrees=>$in{'rot'}) if($in{'rot'});
       $Img->Scale(geometry=>"${scale}%x${scale}%") if($in{'scale'});
       $Img->Write("$tmpfile");

view all matches for this distribution

Apache2-ApacheMobileFilter

2 results

lib/Apache2/AMFImageRendering.pm view on Meta::CPAN

  use APR::Table (); 
  use APR::Base64 (); 
  use LWP::Simple;
  use Image::Resize;
  use Image::Scale;
  use Image::Magick;
  use File::Copy;
  use Imager;
  use Apache2::Const -compile => qw(OK REDIRECT DECLINED HTTP_MOVED_TEMPORARILY);
  use constant BUFF_LEN => 1024;

lib/Apache2/AMFImageRendering.pm view on Meta::CPAN

                    if ($typeGraphicLibrary eq 'gd') {
                      my $img = Image::Scale->new("$imageToConvert") ;
                      $img->resize_gd( { width => $width } );
                      $img->save_png("$imagefile");
                    } else {
                        my $img = Image::Magick->new;
                        $img->Read($imageToConvert);
                        $img->Comment("Resized by AMF (http://www.apachemobilefilter.org)");
                        $img->Set(quality=>$qualityImage);
                        $img->Resize(geometry => $width);
                        $img->Write($imagefile);

lib/Apache2/AMFImageRendering.pm view on Meta::CPAN

                    if ($typeGraphicLibrary eq 'gd') {
                        my $img = Image::Scale->new("$imageToConvert");
                        $img->resize_gd( { width => $width } );
										    $img->save_jpeg("$imagefile",$qualityImage);
                    } else {
                        my $img = Image::Magick->new;
                        $img->Read($imageToConvert);
                        #unsharp  0x2+1+0
                        $img->Comment("Resized by AMF (http://www.apachemobilefilter.org)");
                        $img->UnsharpMask(radius=>0,sigma=>2,gain=>1,threshold=>0);
                        $img->Set(quality=>$qualityImage);

view all matches for this distribution

App-CopyrightImage

1 match

doc/install_image_magick.txt view on Meta::CPAN

./configure --with-perl
sudo apt-get install libperl-dev
make
sudo make install

cpan force install Image::Magick

view all matches for this distribution

App-Gallery

6 results

lib/App/Gallery.pm view on Meta::CPAN

use File::Copy qw/cp/;
use File::Path qw/make_path/;
use File::Slurp;
use File::Spec::Functions qw/catdir catfile/;
use HTML::Template::Compiled;
use Image::Magick;

our $VERSION = '0.001001';

my $default_template;
my %default_args = (tmpl => '', title => 'Gallery', width => 600, height => 600);

lib/App/Gallery.pm view on Meta::CPAN

		my $thumb_path = catfile $thumb, $basename;
		my $dest_path = catfile $full, $basename;

		link $path, $dest_path or cp $path, $dest_path or die "$!";

		my $img = Image::Magick->new;
		$img->Read($path);
		my ($width, $height) = $img->Get('width', 'height');
		my $aspect_ratio = $width / $height;
		if ($width > $args{width}) {
			$width = $args{width};

view all matches for this distribution

App-MaMGal

11 results

lib/App/MaMGal/Entry/Dir.pm view on Meta::CPAN

use warnings;
use base 'App::MaMGal::Entry';
use Carp;
use App::MaMGal::Entry::Picture;
use App::MaMGal::DirIcon;
use Image::Magick;
use App::MaMGal::Exceptions;

sub child            { $_[0]->{path_name}.'/'.$_[1]     }
sub page_path        { $_[0]->{base_name}.'/index.html' }
sub thumbnail_path   { $_[0]->{base_name}.'/.mamgal-index.png'  }

lib/App/MaMGal/Entry/Dir.pm view on Meta::CPAN

	return if $self->fresher_than_me($montage_path, consider_interesting_only => 1) and $pruned_files == 0;

	# Get just a bunch of images, not all of them.
	my $montage_count = scalar @images > 36 ? 36 : scalar @images;
	# Stack them all together
	my $stack = Image::Magick->new;
	push @$stack, map {
		my $img = Image::Magick->new;
		my $rr;
		$rr = $img->Read($_->tile_path) and App::MaMGal::SystemException->throw(message => '%s: %s', objects => [$_->tile_path, $rr]);
		$img->[0] or $img } @images[0..($montage_count-1)];

	my $side = $self->_side_length($montage_count);

view all matches for this distribution

App-SweeperBot

1 match

lib/App/SweeperBot.pm view on Meta::CPAN

package App::SweeperBot;

# minesweeper.pl
#
# Win32::Screenshot, Win32::GuiTest, and Image::Magick are needed for this
# program. Use ActivePerl's PPM to install the first two:
#   ppm> install Win32-GuiTest
#   ppm> install http://theoryx5.uwinnipeg.ca/ppms/Win32-Screenshot.ppd
#
# The version of Image-Magick used by this code can be found at

lib/App/SweeperBot.pm view on Meta::CPAN


	my $image = $sweeperbot->capture_square($x,$y);

Captures the square ($x,$y) of the minesweeper board.  (1,1) is
the top-left of the grid.  No checking is done to see if the square
is actually on the board.  Returns the image as an L<Image::Magick>
object.

=head3 Bugs in capture_square

On failure to capture the image, this returns an empty
L<Image::Magick> object.  This is considered a bug; in the future
C<capture_square> will throw an exception on error.

C<capture_square> depends upon calibration routines that are
currently implemented in the L</value> method; calling it before
the first call to L</value> can result in incorrect or inconsistent
results.  In future releases C<capture_square> will automatically
calibrate itself if required.

=cut

# TODO GuiTest doesn't check the Image::Magick return codes, it
# just assumes everything works.  We should consider writing our
# own code that _does_ test, since these diagnostics are very
# useful when things go wrong.

sub capture_square {

view all matches for this distribution

App-cpanminus

1 match

Changes view on Meta::CPAN

   - Falls back to search.cpan.org/meta service when (and only when) META.yml is not
     included or unparsable. Now it can handle distributions like AnyEvent::HTTP or
     ancient packages better.
   - Fixed a bug where nmake is doubly quoted on Win32 (charsbar) #76
   - Makes the wget/curl execution safer (J. Nick Koston)
   - Support archives where tar list begins with ./ like Image::Magick (Reported by doy) #80

1.30_11  Sun Mar  6 01:34:59 PST 2011
   - Fix SIGNATURE testing for Module::Build 0.38 or later
   - Implemented EXPERIMENTAL --scandeps command and --format option
   - Implemented EXPERIMENTAL --save-tarballs option

view all matches for this distribution

App-pandoc-preprocess

2 results

lib/App/pandoc/preprocess.pm view on Meta::CPAN


ditaa

=item *

Image::Magick (for downscaling of large images)

=back

=head1 BACKGROUND

view all matches for this distribution

Barcode-ZBar

7 results

examples/paginate.pl view on Meta::CPAN

#------------------------------------------------------------------------
use warnings;
use strict;

use Barcode::ZBar;
use Image::Magick;

warn("no input files specified?\n") if(!@ARGV);

# running output document
my $out = undef;

examples/paginate.pl view on Meta::CPAN

# barcode scanner
my $scanner = Barcode::ZBar::ImageScanner->new();

foreach my $file (@ARGV) {
    print "scanning from \"$file\"\n";
    my $imseq = Image::Magick->new();
    my $err = $imseq->Read($file);
    warn($err) if($err);

    foreach my $page (@$imseq) {
        # convert ImageMagick page to ZBar image

examples/paginate.pl view on Meta::CPAN

            my $data = ($zimg->get_symbols())[0]->get_data();
            my $idx = $page->Get('scene') + 1;
            print "splitting $data from page $idx\n";

            # create new output document
            $out = Image::Magick->new(filename => $data);
        }

        # append this page to current output
        push(@$out, $page) if($out);
    }

view all matches for this distribution

Bootylicious-Plugin-Gallery

5 results

lib/Bootylicious/Plugin/Gallery.pm view on Meta::CPAN

use strict;
use warnings;
use base 'Mojolicious::Plugin';

use Digest::MD5 qw( md5_hex );
use Image::Magick::Thumbnail::Fixed;

our $VERSION = '0.07';

my %content_types = (
    'jpg'  => 'image/jpeg',

lib/Bootylicious/Plugin/Gallery.pm view on Meta::CPAN

sub _create_thubnail {
    my $self = shift;
    my $c    = shift;
    my $opts = shift;

    my $t = Image::Magick::Thumbnail::Fixed->new();

    $t->thumbnail(
        input   => $opts->{source_file},
        output  => $opts->{cached_file},
        width   => $self->thumb_width,

view all matches for this distribution

Bundle-DadaMailXXL

1 match

lib/Bundle/DadaMailXXL.pm view on Meta::CPAN


Image::Resize - used for resizing images

Image::Scale - used for resizing images

Image::Magick - used for resizing images

LWP::Protocol::https

LWP::Protocol::Net::Curl

view all matches for this distribution

Bundle-Everything

1 match

Everything.pm view on Meta::CPAN


Image::Info

Image::Kimdaba

Image::Magick

Image::Magick::BarChart

Image::Magick::Chart

Image::Magick::NFPADiamond

Image::Magick::PolyText

Image::Magick::Square

Image::Magick::Thumbnail::NotFound

Image::Magick::Tiler

Image::Maps::Plot::FromLatLong

Image::Maps::Plot::FromPostcode

view all matches for this distribution

Bundle-FinalTest

1 match

lib/Bundle/FinalTest.pm view on Meta::CPAN

Geography::Countries
Geo::IP
Getopt::Std
HTML::HTMLDoc
HTML::Tagset
Image::Magick
integer
IO::Dir
IO::File
IO::Scalar
IO::Socket::INET

view all matches for this distribution

Bundle-KohaSupport

1 match

lib/Bundle/KohaSupport.pm view on Meta::CPAN

Getopt::Std 1.05
HTML::Template::Pro 0.69
HTML::Scrubber 0.08
HTTP::Cookies 1.39
HTTP::Request::Common 1.26
Image::Magick 6.2
LWP::Simple 1.41
LWP::UserAgent 2.033
Lingua::Stem 0.82
List::Util 1.18
List::MoreUtils 0.21

view all matches for this distribution

Bundle-Melody-extlib

1 match