#! /usr/bin/perl # e dziewa august 2009 use warnings; use strict; if ( ! @ARGV ) { print " usage: $0 [images in image] [filename] [width] [width count] [height] [height count] creates an HTML file which you redirect output > to a file. you can reverse animation with negative values. todo: add another option for which image to place first. \n"; exit; } # one image per file or multiple images per line one file my $images = $ARGV[0] - 1; my $filename = $ARGV[1]; my $x_increment = $ARGV[2]; my $x_times = $ARGV[3] - 1; my $y_increment = $ARGV[4]; my $y_times = $ARGV[5] - 1; my (@xarr, @yarr); for ( 0..$x_times ) { push(@xarr, $_*$x_increment) } for ( 0..$y_times ) { push(@yarr, $_*$y_increment) } print ' '; $" = ','; if ( $images > 1 ) { for (0..$images) { print "
\n"; } } else { print "
\n"; } print '';