Added options to create subset of full animation set.

slideshow/qa/tools/mktransitions.pl

@@ -31,6 +31,8 @@ use File::Temp;
 use File::Path;
 
 $TempDir = "";
+my $FirstTransitionIndex = 0;
+my $LastTransitionIndex = -1;
 
 
 # all the XML package generation is a blatant rip from AF's
@@ -98,7 +100,7 @@ sub zip_dirtree
         #   Remove .. directories from the middle of the path.
         while ($zip_name =~ /\/[^\/][^\.\/][^\/]*\/\.\.\//)
         {
-            $zip_name = $` . "/" . $';
+            $zip_name = $` . "/" . $'; # $'
         }
     }
 
@@ -143,6 +145,8 @@ sub writeSlideStyles
     my $transitionType = pop @_;
     my $slideNum = pop @_;
 
+    return if $slideNum<$FirstTransitionIndex || ($LastTransitionIndex>=0 && $slideNum>$LastTransitionIndex);
+
     print $OUT "  <style:style style:name=\"dp",$slideNum,"\" style:family=\"drawing-page\">\n";
     print $OUT "   <style:drawing-page-properties presentation:transition-type=\"automatic\" presentation:duration=\"PT00H00M01S\" presentation:background-visible=\"true\" presentation:background-objects-visible=\"true\" draw:fill=\"solid\" draw:fill-color=\"#ff",$slideNum % 2 ? "ff99" : "cc99","\" smil:type=\"",$transitionType,"\" smil:subtype=\"",$transitionSubType,"\" ",$direction == 0 ? "" : "smil:direction=\"reverse\" ",$mode == 0 ? "" : "smil:mode=\"out\"","/>\n";
     print $OUT "  </style:style>\n";
@@ -217,6 +221,8 @@ sub writeSlide
     my $transitionType = pop @_;
     my $slideNum = pop @_;
 
+    return if $slideNum<$FirstTransitionIndex || ($LastTransitionIndex>=0 && $slideNum>$LastTransitionIndex);
+
     print $OUT "   <draw:page draw:name=\"page",$slideNum,"\" draw:style-name=\"dp",$slideNum,"\" draw:master-page-name=\"Default\" presentation:presentation-page-layout-name=\"AL1T19\">";
 
     print $OUT "    <draw:frame presentation:style-name=\"pr1\" draw:layer=\"layout\" svg:width=\"25.199cm\" svg:height=\"3.256cm\" svg:x=\"1.4cm\" svg:y=\"0.962cm\" presentation:class=\"title\">\n";
@@ -555,6 +561,8 @@ output-file-name defaults to alltransitions.odp.
 options: -a    Generate _all_ combinations of type, subtype,
                direction, and mode
          -h    Print this usage information.
+         -f    First transition to include, defaults to 0
+         -l    Last transition to include
 END_OF_USAGE
 }
 
@@ -582,6 +590,14 @@ sub process_command_line
         {
             $global_gen_all=1;
         }
+        elsif ($ARGV[$i] eq "-f")
+        {
+            $FirstTransitionIndex = $ARGV[++$i];
+        }
+        elsif ($ARGV[$i] eq "-l")
+        {
+            $LastTransitionIndex = $ARGV[++$i];
+        }
         elsif ($ARGV[$i] =~ /^-/)
         {
             print "Unknown option $ARGV[$i]\n";