AOO410/main/slideshow/qa/tools/mktransitions.pl - openoffice - Git at Google

 :
 eval 'exec perl -wS $0 ${1+"$@"}'
     if 0;
 # *************************************************************
 #
 #  Licensed to the Apache Software Foundation (ASF) under one
 #  or more contributor license agreements.  See the NOTICE file
 #  distributed with this work for additional information
 #  regarding copyright ownership.  The ASF licenses this file
 #  to you under the Apache License, Version 2.0 (the
 #  "License"); you may not use this file except in compliance
 #  with the License.  You may obtain a copy of the License at
 #
 #    http://www.apache.org/licenses/LICENSE-2.0
 #
 #  Unless required by applicable law or agreed to in writing,
 #  software distributed under the License is distributed on an
 #  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
 #  KIND, either express or implied.  See the License for the
 #  specific language governing permissions and limitations
 #  under the License.
 #
 # *************************************************************


 use	IO::File;
 use	Cwd;
 use File::Spec;
 use File::Spec::Functions;
 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
 # write-calc-doc.pl


 ###############################################################################
 #	Open a file with the given name.
 #	First it is checked if the temporary directory, in which all files for
 #	the document are gathered, is already present and create it if it is not.
 #	Then create the path to the file inside the temporary directory.
 #	Finally open the file and return a file handle to it.
 #
 sub	open_file
 {
 	my	$filename = pop @_;

 	#	Create base directory of temporary directory tree if not alreay
 	#	present.
 	if ($TempDir eq "")
 	{
 		$TempDir = File::Temp::tempdir (CLEANUP => 1);
 	}

 	#	Create the path to the file.
 	my $fullname = File::Spec->catfile ($TempDir, $filename);
 	my ($volume,$directories,$file) = File::Spec->splitpath ($fullname);
 	mkpath (File::Spec->catpath ($volume,$directories,""));

 	#	Open the file and return a file handle to it.
 	return new IO::File ($fullname, "w");
 }


 ###############################################################################
 #	Zip the files in the directory tree into the given file.
 #
 sub	zip_dirtree
 {
 	my	$filename = pop @_;

 	my	$cwd = getcwd;
 	my	$zip_name = $filename;

 	#	We are about to change the directory.
 	#	Therefore create an absolute pathname for the zip archive.

 	#	First transfer the drive from $cwd to $zip_name.  This is a
 	#	workaround for a bug in file_name_is_absolute which thinks
 	#	the the path \bla is an absolute path under DOS.
 	my ($volume,$directories,$file) = File::Spec->splitpath ($zip_name);
 	my ($volume_cwd,$directories_cwd,$file_cwd) = File::Spec->splitpath ($cwd);
 	$volume = $volume_cwd if ($volume eq "");
 	$zip_name = File::Spec->catpath ($volume,$directories,$file);

 	#	Add the current working directory to a relative path.
 	if ( ! file_name_is_absolute ($zip_name))
 	{
 		$zip_name = File::Spec->catfile ($cwd, $zip_name);

 		#	Try everything to clean up the name.
 		$zip_name = File::Spec->rel2abs ($filename);
 		$zip_name = File::Spec->canonpath ($zip_name);

 		#	Remove .. directories from the middle of the path.
 		while ($zip_name =~ /\/[^\/][^\.\/][^\/]*\/\.\.\//)
 		{
 			$zip_name = $` . "/" . $'; # $'
 		}
 	}

 	#	Just in case the zip program gets confused by an existing file with the
 	#	same name as the one to be written that file is removed first.
 	if ( -e $filename)
 	{
 		if (unlink ($filename) == 0)
 		{
 			print "Existing file $filename could not be deleted.\n";
 			print "Please close the application that uses it, then try again.\n";
 			return;
 		}
 	}

 	#	Finally create the zip file.  First change into the temporary directory
 	#	so that the resulting zip file contains only paths relative to it.
 	print "zipping [$ZipCmd $ZipFlags $zip_name *]\n";
 	chdir ($TempDir);
 	system ("$ZipCmd $ZipFlags $zip_name *");
 	chdir ($cwd);

 }


 sub writeHeader
 {
 	print $OUT qq~<?xml version="1.0" encoding="UTF-8"?>

 <office:document-content xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0" xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0" xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0" xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0" xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0" xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0" xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0" xmlns:presentation="urn:oasis:names:tc:opendocument:xmlns:presentation:1.0" xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0" xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0" xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0" xmlns:math="http://www.w3.org/1998/Math/MathML" xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0" xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0" xmlns:ooo="http://openoffice.org/2004/office" xmlns:ooow="http://openoffice.org/2004/writer" xmlns:oooc="http://openoffice.org/2004/calc" xmlns:dom="http://www.w3.org/2001/xml-events" xmlns:xforms="http://www.w3.org/2002/xforms" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:smil="urn:oasis:names:tc:opendocument:xmlns:smil-compatible:1.0" xmlns:anim="urn:oasis:names:tc:opendocument:xmlns:animation:1.0" office:version="1.0">
  <office:scripts/>
  <office:automatic-styles>
 ~;

 }

 sub writeSlideStyles
 {
 	my $mode = pop @_;
 	my $direction = pop @_;
 	my $transitionSubType = pop @_;
 	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";
 }

 sub writeIntermediate
 {
 	print $OUT qq~  <style:style style:name="gr1" style:family="graphic">
    <style:graphic-properties style:protect="size"/>
   </style:style>
   <style:style style:name="pr1" style:family="presentation" style:parent-style-name="Default-title">
    <style:graphic-properties draw:fill-color="#ffffff" draw:auto-grow-height="true" fo:min-height="3.508cm"/>
   </style:style>
   <style:style style:name="pr2" style:family="presentation" style:parent-style-name="Default-notes">
    <style:graphic-properties draw:fill-color="#ffffff" draw:auto-grow-height="true" fo:min-height="13.367cm"/>
   </style:style>
   <style:style style:name="P1" style:family="paragraph">
    <style:paragraph-properties fo:margin-left="0cm" fo:margin-right="0cm" fo:text-indent="0cm"/>
   </style:style>
   <style:style style:name="P2" style:family="paragraph">
    <style:paragraph-properties fo:margin-left="0.6cm" fo:margin-right="0cm" fo:text-indent="-0.6cm"/>
   </style:style>
   <text:list-style style:name="L1">
    <text:list-level-style-bullet text:level="1" text:bullet-char="●">
     <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
    </text:list-level-style-bullet>
    <text:list-level-style-bullet text:level="2" text:bullet-char="●">
     <style:list-level-properties text:space-before="0.6cm" text:min-label-width="0.6cm"/>
     <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
    </text:list-level-style-bullet>
    <text:list-level-style-bullet text:level="3" text:bullet-char="●">
     <style:list-level-properties text:space-before="1.2cm" text:min-label-width="0.6cm"/>
     <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
    </text:list-level-style-bullet>
    <text:list-level-style-bullet text:level="4" text:bullet-char="●">
     <style:list-level-properties text:space-before="1.8cm" text:min-label-width="0.6cm"/>
     <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
    </text:list-level-style-bullet>
    <text:list-level-style-bullet text:level="5" text:bullet-char="●">
     <style:list-level-properties text:space-before="2.4cm" text:min-label-width="0.6cm"/>
     <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
    </text:list-level-style-bullet>
    <text:list-level-style-bullet text:level="6" text:bullet-char="●">
     <style:list-level-properties text:space-before="3cm" text:min-label-width="0.6cm"/>
     <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
    </text:list-level-style-bullet>
    <text:list-level-style-bullet text:level="7" text:bullet-char="●">
     <style:list-level-properties text:space-before="3.6cm" text:min-label-width="0.6cm"/>
     <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
    </text:list-level-style-bullet>
    <text:list-level-style-bullet text:level="8" text:bullet-char="●">
     <style:list-level-properties text:space-before="4.2cm" text:min-label-width="0.6cm"/>
     <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
    </text:list-level-style-bullet>
    <text:list-level-style-bullet text:level="9" text:bullet-char="●">
     <style:list-level-properties text:space-before="4.8cm" text:min-label-width="0.6cm"/>
     <style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
    </text:list-level-style-bullet>
   </text:list-style>
  </office:automatic-styles>
  <office:body>
   <office:presentation>
 ~;

 }

 sub writeSlide
 {
 	my $mode = pop @_;
 	my $direction = pop @_;
 	my $transitionSubtype = pop @_;
 	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";
 	print $OUT "     <draw:text-box>\n";
 	print $OUT "      <text:p text:style-name=\"P1\">Transition “",$slideNum-1,"”</text:p>\n";
 	print $OUT "     </draw:text-box>\n";
 	print $OUT "    </draw:frame>\n";
 	print $OUT "    <draw:frame presentation:style-name=\"pr2\" draw:layer=\"layout\" svg:width=\"25.199cm\" svg:height=\"13.609cm\" svg:x=\"1.4cm\" svg:y=\"4.914cm\" presentation:class=\"outline\">\n";
 	print $OUT "     <draw:text-box>\n";
 	print $OUT "      <text:list text:style-name=\"L2\">\n";
 	print $OUT "       <text:list-item>\n";
 	print $OUT "        <text:p text:style-name=\"P2\">Transition: ",$transitionType,"</text:p>\n";
 	print $OUT "       </text:list-item>\n";
 	print $OUT "      </text:list>\n";
 	print $OUT "      <text:list text:style-name=\"L2\">\n";
 	print $OUT "       <text:list-item>\n";
 	print $OUT "        <text:list>\n";
 	print $OUT "         <text:list-item>\n";
 	print $OUT "          <text:p text:style-name=\"P3\">Subtype: ",$transitionSubtype,"</text:p>\n";
 	print $OUT "         </text:list-item>\n";
 	print $OUT "        </text:list>\n";
 	print $OUT "       </text:list-item>\n";
 	print $OUT "      </text:list>\n";
 	print $OUT "      <text:list text:style-name=\"L2\">\n";
 	print $OUT "       <text:list-item>\n";
 	print $OUT "        <text:list>\n";
 	print $OUT "         <text:list-item>\n";
 	print $OUT "          <text:p text:style-name=\"P3\">Direction: ",$direction == 0 ? "forward" : "reverse","</text:p>\n";
 	print $OUT "         </text:list-item>\n";
 	print $OUT "        </text:list>\n";
 	print $OUT "       </text:list-item>\n";
 	print $OUT "      </text:list>\n";
 	print $OUT "      <text:list text:style-name=\"L2\">\n";
 	print $OUT "       <text:list-item>\n";
 	print $OUT "        <text:list>\n";
 	print $OUT "         <text:list-item>\n";
 	print $OUT "          <text:p text:style-name=\"P3\">Mode: ",$mode == 0 ? "in" : "out","</text:p>\n";
 	print $OUT "         </text:list-item>\n";
 	print $OUT "        </text:list>\n";
 	print $OUT "       </text:list-item>\n";
 	print $OUT "      </text:list>\n";
 	print $OUT "     </draw:text-box>\n";
 	print $OUT "    </draw:frame>\n";
 	print $OUT "    <presentation:notes draw:style-name=\"dp2\">\n";
 	print $OUT "     <draw:page-thumbnail draw:style-name=\"gr1\" draw:layer=\"layout\" svg:width=\"14.851cm\" svg:height=\"11.138cm\" svg:x=\"3.068cm\" svg:y=\"2.257cm\" draw:page-number=\"1\" presentation:class=\"page\"/>\n";
 	print $OUT "     <draw:frame presentation:style-name=\"pr3\" draw:layer=\"layout\" svg:width=\"16.79cm\" svg:height=\"13.116cm\" svg:x=\"2.098cm\" svg:y=\"14.109cm\" presentation:class=\"notes\" presentation:placeholder=\"true\">\n";
 	print $OUT "      <draw:text-box/>\n";
 	print $OUT "     </draw:frame>\n";
 	print $OUT "    </presentation:notes>\n";
 	print $OUT "   </draw:page>\n";

 }

 sub writeFooter
 {
 	print $OUT qq~   <presentation:settings presentation:full-screen="false"/>
   </office:presentation>
  </office:body>
 </office:document-content>
 ~;

 }

 sub writeManifest
 {
 	my $outFile = open_file("META-INF/manifest.xml");

 	print $outFile qq~<?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE manifest:manifest PUBLIC "-//OpenOffice.org//DTD Manifest 1.0//EN" "Manifest.dtd">
 <manifest:manifest xmlns:manifest="urn:oasis:names:tc:opendocument:xmlns:manifest:1.0">
  <manifest:file-entry manifest:media-type="application/vnd.oasis.opendocument.presentation" manifest:full-path="/"/>
  <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="content.xml"/>
 </manifest:manifest>
 ~;

 	$outFile->close;
 }


 $transitionsRef = [

 				["barWipe",
 				 ["leftToRight",
 				  "topToBottom"]],

 				["blindsWipe",
 				 ["vertical",
 				  "horizontal"]],

 				["boxWipe",
 				 ["topLeft",
 				  "topRight",
 				  "bottomRight",
 				  "bottomLeft",
 				  "topCenter",
 				  "rightCenter",
 				  "bottomCenter",
 				  "leftCenter"]],

 				["fourBoxWipe",
 				 ["cornersIn",
 				  "cornersOut"]],

 				["barnDoorWipe",
 				 ["vertical",
 				  "horizontal",
 				  "diagonalBottomLeft",
 				  "diagonalTopLeft"]],

 				["bowTieWipe",
 				 ["vertical",
 				  "horizontal"]],

 				["miscDiagonalWipe",
 				 ["doubleBarnDoor",
 				  "doubleDiamond"]],

 				["veeWipe",
 				 ["down",
 				  "left",
 				  "up",
 				  "right"]],

 				["barnVeeWipe",
 				 ["top",
 				  "left",
 				  "up",
 				  "right"]],

 				["zigZagWipe",
 				 ["leftToRight",
 				  "topToBottom"]],

 				["barnZigZagWipe",
 				 ["vertical",
 				  "horizontal"]],

 				["irisWipe",
 				 ["rectangle",
 				  "diamond"]],

 				["triangleWipe",
 				 ["up",
 				  "right",
 				  "down",
 				  "left"]],

 				["arrowHeadWipe",
 				 ["up",
 				  "right",
 				  "down",
 				  "left"]],

 				["pentagonWipe",
 				 ["up",
 				  "down"]],

 				["hexagonWipe",
 				 ["horizontal",
 				  "vertical"]],

 				["ellipseWipe",
 				 ["circle",
 				  "horizontal",
 				  "vertical"]],

 				["eyeWipe",
 				 ["vertical",
 				  "horizontal"]],

 				["roundRectWipe",
 				 ["horizontal",
 				  "vertical"]],

 				["starWipe",
 				 ["fourPoint",
 				  "fivePoint",
 				  "sixPoint"]],

 				["miscShapeWipe",
 				 ["heart",
 				  "keyhole"]],

 				["clockWipe",
 				 ["clockwiseTwelve",
 				  "clockwiseThree",
 				  "clockwiseSix",
 				  "clockwiseNine"]],

 				["pinWheelWipe",
 				 ["oneBlade",
 				  "twoBladeVertical",
 				  "twoBladeHorizontal",
 				  "threeBlade",
 				  "fourBlade",
 				  "eightBlade"]],

 				["singleSweepWipe",
 				 ["clockwiseTop",
 				  "clockwiseRight",
 				  "clockwiseBottom",
 				  "clockwiseLeft",
 				  "clockwiseTopLeft",
 				  "counterClockwiseBottomLeft",
 				  "clockwiseBottomRight",
 				  "counterClockwiseTopRight"]],

 				["fanWipe",
 				 ["centerTop",
 				  "centerRight",
 				  "top",
 				  "right",
 				  "bottom",
 				  "left"]],

 				["doubleFanWipe",
 				 ["fanOutVertical",
 				  "fanOutHorizontal",
 				  "fanInVertical",
 				  "fanInHorizontal"]],

 				["doubleSweepWipe",
 				 ["parallelVertical",
 				  "parallelDiagonal",
 				  "oppositeVertical",
 				  "oppositeHorizontal",
 				  "parallelDiagonalTopLeft",
 				  "parallelDiagonalBottomLeft"]],

 				["saloonDoorWipe",
 				 ["top",
 				  "left",
 				  "bottom",
 				  "right"]],

 				["windshieldWipe",
 				 ["right",
 				  "up",
 				  "vertical",
 				  "horizontal"]],

 				["snakeWipe",
 				 ["topLeftHorizontal",
 				  "topLeftVertical",
 				  "topLeftDiagonal",
 				  "topRightDiagonal",
 				  "bottomRightDiagonal",
 				  "bottomLeftDiagonal"]],

 				["spiralWipe",
 				 ["topLeftClockwise",
 				  "topRightClockwise",
 				  "bottomRightClockwise",
 				  "bottomLeftClockwise",
 				  "topLeftCounterClockwise",
 				  "topRightCounterClockwise",
 				  "bottomRightCounterClockwise",
 				  "bottomLeftCounterClockwise"]],

 				["parallelSnakesWipe",
 				 ["verticalTopSame",
 				  "verticalBottomSame",
 				  "verticalTopLeftOpposite",
 				  "verticalBottomLeftOpposite",
 				  "horizontalLeftSame",
 				  "horizontalRightSame",
 				  "horizontalTopLeftOpposite",
 				  "horizontalTopRightOpposite",
 				  "diagonalBottomLeftOpposite",
 				  "diagonalTopLeftOpposite"]],

 				["boxSnakesWipe",
 				 ["twoBoxTop",
 				  "twoBoxLeft",
 				  "twoBoxRight",
 				  "fourBoxVertical",
 				  "fourBoxHorizontal"]],

 				["waterfallWipe",
 				 ["verticalLeft",
 				  "verticalRight",
 				  "horizontalLeft",
 				  "horizontalRight"]],

 				["pushWipe",
 				 ["fromLeft",
 				  "fromTop",
 				  "fromRight",
 				  "fromBottom",
 				  "fromBottomRight",
 				  "fromBottomLeft",
 				  "fromTopRight",
 				  "fromTopLeft",
 				  "combHorizontal",
 				  "combVertical"]],

 				["slideWipe",
 				 ["fromLeft",
 				  "fromTop",
 				  "fromRight",
 				  "fromBottom",
 				  "fromBottomRight",
 				  "fromBottomLeft",
 				  "fromTopRight",
 				  "fromTopLeft"]],

 				["fade",
 				 ["crossfade",
 				  "fadeToColor",
 				  "fadeFromColor",
 				  "fadeOverColor"]],

 				["randomBarWipe",
 				 ["vertical",
 				  "horizontal"]],

 				["checkerBoardWipe",
 				 ["down",
 				  "across"]],

 				["dissolve",
 				 ["default"]]
 ];


 ###############################################################################
 #	Print usage information.
 #
 sub	usage	()
 {
 	print <<END_OF_USAGE;
 usage: $0 <option>* [<output-file-name>]

 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
 }

 ###############################################################################
 #	Process the command line.
 #
 sub	process_command_line
 {
 	foreach (@ARGV)
 	{
 		if (/^-h/)
 		{
 			usage;
 			exit 0;
 		}
 	}

 	$global_gen_all=0;
 	$global_output_name = "alltransitions.odp";

 	my	$j = 0;
 	for (my $i=0; $i<=$#ARGV; $i++)
 	{
 		if ($ARGV[$i] eq "-a")
 		{
 			$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";
 			usage;
 			exit 1;
 		}
 		elsif ($#ARGV == $i )
 		{
 			$global_output_name = $ARGV[$i];
 		}
 	}

 	print "output to $global_output_name\n";
 }


 ###############################################################################
 #	Main
 ###############################################################################

 $ZipCmd = $ENV{LOG_FILE_ZIP_CMD};
 $ZipFlags = $ENV{LOG_FILE_ZIP_FLAGS};
 #	Provide default values for the zip command and it's flags.
 if ( ! defined $ZipCmd)
 {
 	$ZipCmd = "zip" unless defined $ZipCmd;
 	$ZipFlags = "-r -q" unless defined $ZipFlags;
 }

 process_command_line();

 writeManifest();

 $OUT = open_file( "content.xml" );

 writeHeader();

 $slideNum=1;
 foreach $transitionRef (@$transitionsRef)
 {
 	$transitionType = @$transitionRef[0];

 	foreach $subtype (@{$transitionRef->[1]})
 	{
 		if( $global_gen_all != 0 )
 		{
 			writeSlideStyles($slideNum++,
 							 $transitionType,
 							 $subtype,
 							 0, 0);
 			writeSlideStyles($slideNum++,
 							 $transitionType,
 							 $subtype,
 							 1, 0);
 			writeSlideStyles($slideNum++,
 							 $transitionType,
 							 $subtype,
 							 0, 1);
 			writeSlideStyles($slideNum++,
 							 $transitionType,
 							 $subtype,
 							 1, 1);
 		}
 		else
 		{
 			writeSlideStyles($slideNum++,
 							 $transitionType,
 							 $subtype,
 							 0, 0);
 		}
 	}
 }

 writeIntermediate();

 $slideNum=1;
 foreach $transitionRef (@$transitionsRef)
 {
 	$transitionType = @$transitionRef[0];

 	foreach $subtype (@{$transitionRef->[1]})
 	{
 		if( $global_gen_all != 0 )
 		{
 			writeSlide($slideNum++,
 					   $transitionType,
 					   $subtype,
 					   0, 0);
 			writeSlide($slideNum++,
 					   $transitionType,
 					   $subtype,
 					   1, 0);
 			writeSlide($slideNum++,
 					   $transitionType,
 					   $subtype,
 					   0, 1);
 			writeSlide($slideNum++,
 					   $transitionType,
 					   $subtype,
 					   1, 1);
 		}
 		else
 		{
 			writeSlide($slideNum++,
 					   $transitionType,
 					   $subtype,
 					   0, 0);
 		}
 	}
 }

 writeFooter();

 $OUT->close;

 zip_dirtree ($global_output_name);
	:
	eval 'exec perl -wS $0 ${1+"$@"}'
	if 0;
	# *************************************************************
	#
	# Licensed to the Apache Software Foundation (ASF) under one
	# or more contributor license agreements. See the NOTICE file
	# distributed with this work for additional information
	# regarding copyright ownership. The ASF licenses this file
	# to you under the Apache License, Version 2.0 (the
	# "License"); you may not use this file except in compliance
	# with the License. You may obtain a copy of the License at
	#
	# http://www.apache.org/licenses/LICENSE-2.0
	#
	# Unless required by applicable law or agreed to in writing,
	# software distributed under the License is distributed on an
	# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
	# KIND, either express or implied. See the License for the
	# specific language governing permissions and limitations
	# under the License.
	#
	# *************************************************************


	use IO::File;
	use Cwd;
	use File::Spec;
	use File::Spec::Functions;
	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
	# write-calc-doc.pl


	###############################################################################
	# Open a file with the given name.
	# First it is checked if the temporary directory, in which all files for
	# the document are gathered, is already present and create it if it is not.
	# Then create the path to the file inside the temporary directory.
	# Finally open the file and return a file handle to it.
	#
	sub open_file
	{
	my $filename = pop @_;

	# Create base directory of temporary directory tree if not alreay
	# present.
	if ($TempDir eq "")
	{
	$TempDir = File::Temp::tempdir (CLEANUP => 1);
	}

	# Create the path to the file.
	my $fullname = File::Spec->catfile ($TempDir, $filename);
	my ($volume,$directories,$file) = File::Spec->splitpath ($fullname);
	mkpath (File::Spec->catpath ($volume,$directories,""));

	# Open the file and return a file handle to it.
	return new IO::File ($fullname, "w");
	}


	###############################################################################
	# Zip the files in the directory tree into the given file.
	#
	sub zip_dirtree
	{
	my $filename = pop @_;

	my $cwd = getcwd;
	my $zip_name = $filename;

	# We are about to change the directory.
	# Therefore create an absolute pathname for the zip archive.

	# First transfer the drive from $cwd to $zip_name. This is a
	# workaround for a bug in file_name_is_absolute which thinks
	# the the path \bla is an absolute path under DOS.
	my ($volume,$directories,$file) = File::Spec->splitpath ($zip_name);
	my ($volume_cwd,$directories_cwd,$file_cwd) = File::Spec->splitpath ($cwd);
	$volume = $volume_cwd if ($volume eq "");
	$zip_name = File::Spec->catpath ($volume,$directories,$file);

	# Add the current working directory to a relative path.
	if ( ! file_name_is_absolute ($zip_name))
	{
	$zip_name = File::Spec->catfile ($cwd, $zip_name);

	# Try everything to clean up the name.
	$zip_name = File::Spec->rel2abs ($filename);
	$zip_name = File::Spec->canonpath ($zip_name);

	# Remove .. directories from the middle of the path.
	while ($zip_name =~ /\/[^\/][^\.\/][^\/]*\/\.\.\//)
	{
	$zip_name = $` . "/" . $'; # $'
	}
	}

	# Just in case the zip program gets confused by an existing file with the
	# same name as the one to be written that file is removed first.
	if ( -e $filename)
	{
	if (unlink ($filename) == 0)
	{
	print "Existing file $filename could not be deleted.\n";
	print "Please close the application that uses it, then try again.\n";
	return;
	}
	}

	# Finally create the zip file. First change into the temporary directory
	# so that the resulting zip file contains only paths relative to it.
	print "zipping [$ZipCmd $ZipFlags $zip_name *]\n";
	chdir ($TempDir);
	system ("$ZipCmd $ZipFlags $zip_name *");
	chdir ($cwd);

	}


	sub writeHeader
	{
	print $OUT qq~<?xml version="1.0" encoding="UTF-8"?>

	<office:document-content xmlns:office="urn:oasis:names:tc:opendocument:xmlns:office:1.0" xmlns:style="urn:oasis:names:tc:opendocument:xmlns:style:1.0" xmlns:text="urn:oasis:names:tc:opendocument:xmlns:text:1.0" xmlns:table="urn:oasis:names:tc:opendocument:xmlns:table:1.0" xmlns:draw="urn:oasis:names:tc:opendocument:xmlns:drawing:1.0" xmlns:fo="urn:oasis:names:tc:opendocument:xmlns:xsl-fo-compatible:1.0" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:meta="urn:oasis:names:tc:opendocument:xmlns:meta:1.0" xmlns:number="urn:oasis:names:tc:opendocument:xmlns:datastyle:1.0" xmlns:presentation="urn:oasis:names:tc:opendocument:xmlns:presentation:1.0" xmlns:svg="urn:oasis:names:tc:opendocument:xmlns:svg-compatible:1.0" xmlns:chart="urn:oasis:names:tc:opendocument:xmlns:chart:1.0" xmlns:dr3d="urn:oasis:names:tc:opendocument:xmlns:dr3d:1.0" xmlns:math="http://www.w3.org/1998/Math/MathML" xmlns:form="urn:oasis:names:tc:opendocument:xmlns:form:1.0" xmlns:script="urn:oasis:names:tc:opendocument:xmlns:script:1.0" xmlns:ooo="http://openoffice.org/2004/office" xmlns:ooow="http://openoffice.org/2004/writer" xmlns:oooc="http://openoffice.org/2004/calc" xmlns:dom="http://www.w3.org/2001/xml-events" xmlns:xforms="http://www.w3.org/2002/xforms" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:smil="urn:oasis:names:tc:opendocument:xmlns:smil-compatible:1.0" xmlns:anim="urn:oasis:names:tc:opendocument:xmlns:animation:1.0" office:version="1.0">
	<office:scripts/>
	<office:automatic-styles>
	~;

	}

	sub writeSlideStyles
	{
	my $mode = pop @_;
	my $direction = pop @_;
	my $transitionSubType = pop @_;
	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";
	}

	sub writeIntermediate
	{
	print $OUT qq~ <style:style style:name="gr1" style:family="graphic">
	<style:graphic-properties style:protect="size"/>
	</style:style>
	<style:style style:name="pr1" style:family="presentation" style:parent-style-name="Default-title">
	<style:graphic-properties draw:fill-color="#ffffff" draw:auto-grow-height="true" fo:min-height="3.508cm"/>
	</style:style>
	<style:style style:name="pr2" style:family="presentation" style:parent-style-name="Default-notes">
	<style:graphic-properties draw:fill-color="#ffffff" draw:auto-grow-height="true" fo:min-height="13.367cm"/>
	</style:style>
	<style:style style:name="P1" style:family="paragraph">
	<style:paragraph-properties fo:margin-left="0cm" fo:margin-right="0cm" fo:text-indent="0cm"/>
	</style:style>
	<style:style style:name="P2" style:family="paragraph">
	<style:paragraph-properties fo:margin-left="0.6cm" fo:margin-right="0cm" fo:text-indent="-0.6cm"/>
	</style:style>
	<text:list-style style:name="L1">
	<text:list-level-style-bullet text:level="1" text:bullet-char="●">
	<style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
	</text:list-level-style-bullet>
	<text:list-level-style-bullet text:level="2" text:bullet-char="●">
	<style:list-level-properties text:space-before="0.6cm" text:min-label-width="0.6cm"/>
	<style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
	</text:list-level-style-bullet>
	<text:list-level-style-bullet text:level="3" text:bullet-char="●">
	<style:list-level-properties text:space-before="1.2cm" text:min-label-width="0.6cm"/>
	<style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
	</text:list-level-style-bullet>
	<text:list-level-style-bullet text:level="4" text:bullet-char="●">
	<style:list-level-properties text:space-before="1.8cm" text:min-label-width="0.6cm"/>
	<style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
	</text:list-level-style-bullet>
	<text:list-level-style-bullet text:level="5" text:bullet-char="●">
	<style:list-level-properties text:space-before="2.4cm" text:min-label-width="0.6cm"/>
	<style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
	</text:list-level-style-bullet>
	<text:list-level-style-bullet text:level="6" text:bullet-char="●">
	<style:list-level-properties text:space-before="3cm" text:min-label-width="0.6cm"/>
	<style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
	</text:list-level-style-bullet>
	<text:list-level-style-bullet text:level="7" text:bullet-char="●">
	<style:list-level-properties text:space-before="3.6cm" text:min-label-width="0.6cm"/>
	<style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
	</text:list-level-style-bullet>
	<text:list-level-style-bullet text:level="8" text:bullet-char="●">
	<style:list-level-properties text:space-before="4.2cm" text:min-label-width="0.6cm"/>
	<style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
	</text:list-level-style-bullet>
	<text:list-level-style-bullet text:level="9" text:bullet-char="●">
	<style:list-level-properties text:space-before="4.8cm" text:min-label-width="0.6cm"/>
	<style:text-properties fo:font-family="StarSymbol" style:use-window-font-color="true" fo:font-size="45%"/>
	</text:list-level-style-bullet>
	</text:list-style>
	</office:automatic-styles>
	<office:body>
	<office:presentation>
	~;

	}

	sub writeSlide
	{
	my $mode = pop @_;
	my $direction = pop @_;
	my $transitionSubtype = pop @_;
	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";
	print $OUT " <draw:text-box>\n";
	print $OUT " <text:p text:style-name=\"P1\">Transition “",$slideNum-1,"”</text:p>\n";
	print $OUT " </draw:text-box>\n";
	print $OUT " </draw:frame>\n";
	print $OUT " <draw:frame presentation:style-name=\"pr2\" draw:layer=\"layout\" svg:width=\"25.199cm\" svg:height=\"13.609cm\" svg:x=\"1.4cm\" svg:y=\"4.914cm\" presentation:class=\"outline\">\n";
	print $OUT " <draw:text-box>\n";
	print $OUT " <text:list text:style-name=\"L2\">\n";
	print $OUT " <text:list-item>\n";
	print $OUT " <text:p text:style-name=\"P2\">Transition: ",$transitionType,"</text:p>\n";
	print $OUT " </text:list-item>\n";
	print $OUT " </text:list>\n";
	print $OUT " <text:list text:style-name=\"L2\">\n";
	print $OUT " <text:list-item>\n";
	print $OUT " <text:list>\n";
	print $OUT " <text:list-item>\n";
	print $OUT " <text:p text:style-name=\"P3\">Subtype: ",$transitionSubtype,"</text:p>\n";
	print $OUT " </text:list-item>\n";
	print $OUT " </text:list>\n";
	print $OUT " </text:list-item>\n";
	print $OUT " </text:list>\n";
	print $OUT " <text:list text:style-name=\"L2\">\n";
	print $OUT " <text:list-item>\n";
	print $OUT " <text:list>\n";
	print $OUT " <text:list-item>\n";
	print $OUT " <text:p text:style-name=\"P3\">Direction: ",$direction == 0 ? "forward" : "reverse","</text:p>\n";
	print $OUT " </text:list-item>\n";
	print $OUT " </text:list>\n";
	print $OUT " </text:list-item>\n";
	print $OUT " </text:list>\n";
	print $OUT " <text:list text:style-name=\"L2\">\n";
	print $OUT " <text:list-item>\n";
	print $OUT " <text:list>\n";
	print $OUT " <text:list-item>\n";
	print $OUT " <text:p text:style-name=\"P3\">Mode: ",$mode == 0 ? "in" : "out","</text:p>\n";
	print $OUT " </text:list-item>\n";
	print $OUT " </text:list>\n";
	print $OUT " </text:list-item>\n";
	print $OUT " </text:list>\n";
	print $OUT " </draw:text-box>\n";
	print $OUT " </draw:frame>\n";
	print $OUT " <presentation:notes draw:style-name=\"dp2\">\n";
	print $OUT " <draw:page-thumbnail draw:style-name=\"gr1\" draw:layer=\"layout\" svg:width=\"14.851cm\" svg:height=\"11.138cm\" svg:x=\"3.068cm\" svg:y=\"2.257cm\" draw:page-number=\"1\" presentation:class=\"page\"/>\n";
	print $OUT " <draw:frame presentation:style-name=\"pr3\" draw:layer=\"layout\" svg:width=\"16.79cm\" svg:height=\"13.116cm\" svg:x=\"2.098cm\" svg:y=\"14.109cm\" presentation:class=\"notes\" presentation:placeholder=\"true\">\n";
	print $OUT " <draw:text-box/>\n";
	print $OUT " </draw:frame>\n";
	print $OUT " </presentation:notes>\n";
	print $OUT " </draw:page>\n";

	}

	sub writeFooter
	{
	print $OUT qq~ <presentation:settings presentation:full-screen="false"/>
	</office:presentation>
	</office:body>
	</office:document-content>
	~;

	}

	sub writeManifest
	{
	my $outFile = open_file("META-INF/manifest.xml");

	print $outFile qq~<?xml version="1.0" encoding="UTF-8"?>
	<!DOCTYPE manifest:manifest PUBLIC "-//OpenOffice.org//DTD Manifest 1.0//EN" "Manifest.dtd">
	<manifest:manifest xmlns:manifest="urn:oasis:names:tc:opendocument:xmlns:manifest:1.0">
	<manifest:file-entry manifest:media-type="application/vnd.oasis.opendocument.presentation" manifest:full-path="/"/>
	<manifest:file-entry manifest:media-type="text/xml" manifest:full-path="content.xml"/>
	</manifest:manifest>
	~;

	$outFile->close;
	}


	$transitionsRef = [

	["barWipe",
	["leftToRight",
	"topToBottom"]],

	["blindsWipe",
	["vertical",
	"horizontal"]],

	["boxWipe",
	["topLeft",
	"topRight",
	"bottomRight",
	"bottomLeft",
	"topCenter",
	"rightCenter",
	"bottomCenter",
	"leftCenter"]],

	["fourBoxWipe",
	["cornersIn",
	"cornersOut"]],

	["barnDoorWipe",
	["vertical",
	"horizontal",
	"diagonalBottomLeft",
	"diagonalTopLeft"]],

	["bowTieWipe",
	["vertical",
	"horizontal"]],

	["miscDiagonalWipe",
	["doubleBarnDoor",
	"doubleDiamond"]],

	["veeWipe",
	["down",
	"left",
	"up",
	"right"]],

	["barnVeeWipe",
	["top",
	"left",
	"up",
	"right"]],

	["zigZagWipe",
	["leftToRight",
	"topToBottom"]],

	["barnZigZagWipe",
	["vertical",
	"horizontal"]],

	["irisWipe",
	["rectangle",
	"diamond"]],

	["triangleWipe",
	["up",
	"right",
	"down",
	"left"]],

	["arrowHeadWipe",
	["up",
	"right",
	"down",
	"left"]],

	["pentagonWipe",
	["up",
	"down"]],

	["hexagonWipe",
	["horizontal",
	"vertical"]],

	["ellipseWipe",
	["circle",
	"horizontal",
	"vertical"]],

	["eyeWipe",
	["vertical",
	"horizontal"]],

	["roundRectWipe",
	["horizontal",
	"vertical"]],

	["starWipe",
	["fourPoint",
	"fivePoint",
	"sixPoint"]],

	["miscShapeWipe",
	["heart",
	"keyhole"]],

	["clockWipe",
	["clockwiseTwelve",
	"clockwiseThree",
	"clockwiseSix",
	"clockwiseNine"]],

	["pinWheelWipe",
	["oneBlade",
	"twoBladeVertical",
	"twoBladeHorizontal",
	"threeBlade",
	"fourBlade",
	"eightBlade"]],

	["singleSweepWipe",
	["clockwiseTop",
	"clockwiseRight",
	"clockwiseBottom",
	"clockwiseLeft",
	"clockwiseTopLeft",
	"counterClockwiseBottomLeft",
	"clockwiseBottomRight",
	"counterClockwiseTopRight"]],

	["fanWipe",
	["centerTop",
	"centerRight",
	"top",
	"right",
	"bottom",
	"left"]],

	["doubleFanWipe",
	["fanOutVertical",
	"fanOutHorizontal",
	"fanInVertical",
	"fanInHorizontal"]],

	["doubleSweepWipe",
	["parallelVertical",
	"parallelDiagonal",
	"oppositeVertical",
	"oppositeHorizontal",
	"parallelDiagonalTopLeft",
	"parallelDiagonalBottomLeft"]],

	["saloonDoorWipe",
	["top",
	"left",
	"bottom",
	"right"]],

	["windshieldWipe",
	["right",
	"up",
	"vertical",
	"horizontal"]],

	["snakeWipe",
	["topLeftHorizontal",
	"topLeftVertical",
	"topLeftDiagonal",
	"topRightDiagonal",
	"bottomRightDiagonal",
	"bottomLeftDiagonal"]],

	["spiralWipe",
	["topLeftClockwise",
	"topRightClockwise",
	"bottomRightClockwise",
	"bottomLeftClockwise",
	"topLeftCounterClockwise",
	"topRightCounterClockwise",
	"bottomRightCounterClockwise",
	"bottomLeftCounterClockwise"]],

	["parallelSnakesWipe",
	["verticalTopSame",
	"verticalBottomSame",
	"verticalTopLeftOpposite",
	"verticalBottomLeftOpposite",
	"horizontalLeftSame",
	"horizontalRightSame",
	"horizontalTopLeftOpposite",
	"horizontalTopRightOpposite",
	"diagonalBottomLeftOpposite",
	"diagonalTopLeftOpposite"]],

	["boxSnakesWipe",
	["twoBoxTop",
	"twoBoxLeft",
	"twoBoxRight",
	"fourBoxVertical",
	"fourBoxHorizontal"]],

	["waterfallWipe",
	["verticalLeft",
	"verticalRight",
	"horizontalLeft",
	"horizontalRight"]],

	["pushWipe",
	["fromLeft",
	"fromTop",
	"fromRight",
	"fromBottom",
	"fromBottomRight",
	"fromBottomLeft",
	"fromTopRight",
	"fromTopLeft",
	"combHorizontal",
	"combVertical"]],

	["slideWipe",
	["fromLeft",
	"fromTop",
	"fromRight",
	"fromBottom",
	"fromBottomRight",
	"fromBottomLeft",
	"fromTopRight",
	"fromTopLeft"]],

	["fade",
	["crossfade",
	"fadeToColor",
	"fadeFromColor",
	"fadeOverColor"]],

	["randomBarWipe",
	["vertical",
	"horizontal"]],

	["checkerBoardWipe",
	["down",
	"across"]],

	["dissolve",
	["default"]]
	];


	###############################################################################
	# Print usage information.
	#
	sub usage ()
	{
	print <<END_OF_USAGE;
	usage: $0 <option>* [<output-file-name>]

	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
	}

	###############################################################################
	# Process the command line.
	#
	sub process_command_line
	{
	foreach (@ARGV)
	{
	if (/^-h/)
	{
	usage;
	exit 0;
	}
	}

	$global_gen_all=0;
	$global_output_name = "alltransitions.odp";

	my $j = 0;
	for (my $i=0; $i<=$#ARGV; $i++)
	{
	if ($ARGV[$i] eq "-a")
	{
	$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";
	usage;
	exit 1;
	}
	elsif ($#ARGV == $i )
	{
	$global_output_name = $ARGV[$i];
	}
	}

	print "output to $global_output_name\n";
	}


	###############################################################################
	# Main
	###############################################################################

	$ZipCmd = $ENV{LOG_FILE_ZIP_CMD};
	$ZipFlags = $ENV{LOG_FILE_ZIP_FLAGS};
	# Provide default values for the zip command and it's flags.
	if ( ! defined $ZipCmd)
	{
	$ZipCmd = "zip" unless defined $ZipCmd;
	$ZipFlags = "-r -q" unless defined $ZipFlags;
	}

	process_command_line();

	writeManifest();

	$OUT = open_file( "content.xml" );

	writeHeader();

	$slideNum=1;
	foreach $transitionRef (@$transitionsRef)
	{
	$transitionType = @$transitionRef[0];

	foreach $subtype (@{$transitionRef->[1]})
	{
	if( $global_gen_all != 0 )
	{
	writeSlideStyles($slideNum++,
	$transitionType,
	$subtype,
	0, 0);
	writeSlideStyles($slideNum++,
	$transitionType,
	$subtype,
	1, 0);
	writeSlideStyles($slideNum++,
	$transitionType,
	$subtype,
	0, 1);
	writeSlideStyles($slideNum++,
	$transitionType,
	$subtype,
	1, 1);
	}
	else
	{
	writeSlideStyles($slideNum++,
	$transitionType,
	$subtype,
	0, 0);
	}
	}
	}

	writeIntermediate();

	$slideNum=1;
	foreach $transitionRef (@$transitionsRef)
	{
	$transitionType = @$transitionRef[0];

	foreach $subtype (@{$transitionRef->[1]})
	{
	if( $global_gen_all != 0 )
	{
	writeSlide($slideNum++,
	$transitionType,
	$subtype,
	0, 0);
	writeSlide($slideNum++,
	$transitionType,
	$subtype,
	1, 0);
	writeSlide($slideNum++,
	$transitionType,
	$subtype,
	0, 1);
	writeSlide($slideNum++,
	$transitionType,
	$subtype,
	1, 1);
	}
	else
	{
	writeSlide($slideNum++,
	$transitionType,
	$subtype,
	0, 0);
	}
	}
	}

	writeFooter();

	$OUT->close;

	zip_dirtree ($global_output_name);