diff options
author | Franck Cuny <franck.cuny@gmail.com> | 2013-09-28 15:12:03 -0700 |
---|---|---|
committer | Franck Cuny <franck.cuny@gmail.com> | 2013-09-28 15:12:03 -0700 |
commit | 3b95d4aec6334b0e18eed433120fd549eaa5fa36 (patch) | |
tree | dc849b8a5e5414cda9bd7836a7b356f4948015c1 /generate_tiles.pl | |
download | cpan-explorer-master.tar.gz |
import cpan-explorer master
Diffstat (limited to 'generate_tiles.pl')
-rw-r--r-- | generate_tiles.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/generate_tiles.pl b/generate_tiles.pl new file mode 100644 index 0000000..e7dc6ca --- /dev/null +++ b/generate_tiles.pl @@ -0,0 +1,17 @@ +#!/usr/bin/perl + +sub generate { + my ($input_file,$input_format,$output_path,$output_name) = @_; + print "\nGenerating tiles for $input_file\n"; + my $tmp = "$output_path/$output_name".'_files/'; + `rm -Rf $tmp` if -f $tmp; + `rm -f $output_path/$output_name` if -e "$output_path/$output_name"; + print "./seadragon.py $input_file --format=$input_format --tile-size=512 --transform=antialias --name=$output_name --path=$output_path\n"; + `./seadragon.py $input_file --format=$input_format --tile-size=512 --transform=antialias --name=$output_name --path=$output_path\n`; +} + +#generate(inputfile, encoding, outputdir, outputfilename) +generate('packages/packages.jpg', 'jpg', '../www/packages/viz/', 'packages'); +#generate('authors/authors.jpg', 'jpg', '../www/authors/viz/', 'authors'); +#generate('community/community.jpg', 'jpg', '../www/community/viz/', 'community'); + |