From 3b95d4aec6334b0e18eed433120fd549eaa5fa36 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Sat, 28 Sep 2013 15:12:03 -0700 Subject: import cpan-explorer --- generate_tiles.pl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 generate_tiles.pl (limited to 'generate_tiles.pl') 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'); + -- cgit 1.4.1