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

[af]

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";