import cpan-explorer master

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');
+