svn commit: r1378588 - /incubator/ooo/trunk/main/slideshow/qa/tools/mktransitions.pl

[af...@apache.org]

Author: af
Date: Wed Aug 29 14:51:27 2012
New Revision: 1378588

URL: http://svn.apache.org/viewvc?rev=1378588&view=rev
Log:
Added options to create subset of full animation set.

Modified:
    incubator/ooo/trunk/main/slideshow/qa/tools/mktransitions.pl

Modified: incubator/ooo/trunk/main/slideshow/qa/tools/mktransitions.pl
URL: http://svn.apache.org/viewvc/incubator/ooo/trunk/main/slideshow/qa/tools/mktransitions.pl?rev=1378588&r1=1378587&r2=1378588&view=diff
==============================================================================
--- incubator/ooo/trunk/main/slideshow/qa/tools/mktransitions.pl (original)
+++ incubator/ooo/trunk/main/slideshow/qa/tools/mktransitions.pl Wed Aug 29 14:51:27 2012
@@ -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 alltransiti
 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";