Mosaic Animation Sample

#!/usr/local/bin/perl ####################################### ###Mosaic-like Effect with IE Filter### ###K.Tsuada 2003/5/4 ### ####################################### require "./cgi-lib.pl"; #### Constants #### $DEFAULT_IMG = "http://mobiquitous.com/~tsuka/programming/ponyo.jpg"; $DEFAULT_STEP = 5; $DEFAULT_SIZE =25; $DEFAULT_INTERVAL = 2000; #### Main Routine #### &get_query; &print_html; exit (0); #### Sub Routine #### sub get_query{ &ReadParse; $image = $in{"image"}; if($image eq ""){ $image=$DEFAULT_IMG; } $step = $in{"step"}; if($step eq ""){ $step=$DEFAULT_STEP; } $size = $in{"size"}; if($size eq ""){ $size=$DEFAULT_SIZE; } $interval = $in{"interval"}; if($interval eq ""){ $interval=$DEFAULT_INTERVAL; } } sub print_html{ print "Content-type: text/html\n\n"; print < Mosaic Animation Sample EOF #print " image$i

\n"; print "

\n"; print "\n"; } #### End ####