Panotools-Script
view release on metacpan or search on metacpan
- enblend-svg, render just masks, use enblend-mask to merge
- nona-mask, allow full command-line parameters
- pto2fulla align_image_stack based tca calculator
- ptoinfo hugin project reporting tool and gui wrapper
- erect2planet output pto project instead of rendering image
- read and write hugin image metadata and options in comment lines
- remove pto2tiff-gui due to conflict with hugin_stitch_project
- add .desktop files for Linux gui integration
0.11
- replace Image::Magick with Image::Size for sizing images
- jpeg2qtvr fix CRLF bug on windows
- fix cubic2erect (Peter Crowley)
0.09
- Stitch() method, fix stupid bug introduced by trying to fix windows bugs
0.08
- tif2svg uses autotrace to generate initail vector masks
- enblend-svg converts to tiff and runs enblend rather than enblend-mask
- tif2svg and enblend-svg support creating jpg proxy images
#!/usr/bin/perl
use strict;
use warnings;
use Image::Magick;
my $image = new Image::Magick;
$image->Read (shift);
my $path_prefix = shift || 't';
my $pix_tile = shift || 256;
my ($pix_width, $pix_height) = $image->Get ('width', 'height');
my $pix_size = 1;
$pix_size *= 2 while ($pix_size < $pix_width || $pix_size < $pix_height);
( run in 0.630 second using v1.01-cache-2.11-cpan-beeb90c9504 )