From 13054f438bd65f5a27a2e84d3bba37a59e9a3002 Mon Sep 17 00:00:00 2001 From: Oliver Bolte Date: Tue, 17 Jul 2007 13:33:10 +0000 Subject: INTEGRATION: CWS presfixes12 (1.1.2); FILE ADDED 2007/04/16 09:40:02 thb 1.1.2.1: #i64783# Added generator script for effect test; fixed subtle issue with shapes missing a repaint when being set invisible and animated in the same update cycle; fixed container base node bug with indefinite state (both issues found with generated effects script) --- slideshow/qa/tools/mkeffects.pl | 810 ++++++++++++++++++++++++++++++++++++++++ 1 file changed, 810 insertions(+) create mode 100755 slideshow/qa/tools/mkeffects.pl diff --git a/slideshow/qa/tools/mkeffects.pl b/slideshow/qa/tools/mkeffects.pl new file mode 100755 index 000000000000..38673aea473d --- /dev/null +++ b/slideshow/qa/tools/mkeffects.pl @@ -0,0 +1,810 @@ +: +eval 'exec perl -wS $0 ${1+"$@"}' + if 0; + + +use IO::File; +use Cwd; +use File::Spec; +use File::Spec::Functions; +use File::Temp; +use File::Path; + +$TempDir = ""; + + +# 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~ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +~; + +} + +sub writeSlideHeader +{ + my $titleText = pop @_; + my $slideNum = pop @_; + + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " Slide: $slideNum\n"; + print $OUT " Topic: $titleText\n"; + print $OUT " Some text to show text effects\n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; +} + + +sub writeSlideFooter +{ + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; +} + +sub writeFooter +{ + print $OUT qq~ + + + +~; + +} + +sub writeTransitionAnimation +{ + my $transitionSubtype = pop @_; + my $transitionType = pop @_; + my $slideNum = pop @_; + + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; +} + +sub writePropertyAnimation +{ + my $propertyEnd = pop @_; + my $propertyStart = pop @_; + my $propertyName = pop @_; + my $slideNum = pop @_; + + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; +} + +sub writeTransformAnimation +{ + my $propertyBy = pop @_; + my $propertyName = pop @_; + my $slideNum = pop @_; + + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; +} + +sub writePathMotionAnimation +{ + my $slideNum = pop @_; + + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; + print $OUT " \n"; +} + +sub writeManifest +{ + my $outFile = open_file("META-INF/manifest.xml"); + + print $outFile qq~ + + + + + +~; + + $outFile->close; +} + + +############################################################################### +# Print usage information. +# +sub usage () +{ + print <* [] + +output-file-name defaults to alltransitions.odp. + +options: -a Generate _all_ combinations of type, subtype, + direction, and mode + -h Print this usage information. +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] =~ /^-/) + { + print "Unknown option $ARGV[$i]\n"; + usage; + exit 1; + } + elsif ($#ARGV == $i ) + { + $global_output_name = $ARGV[$i]; + } + } + + print "output to $global_output_name\n"; +} + +$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"]], + + ["fade", + ["crossfade", + "fadeToColor", + "fadeFromColor", + "fadeOverColor"]], + + ["randomBarWipe", + ["vertical", + "horizontal"]], + + ["checkerBoardWipe", + ["down", + "across"]], + + ["dissolve", + ["default"]] +]; + +$propertiesRef = [ + [ "value", "color", "#000000", "#FF0000" ], + + [ "string", "font-family", "Helvetica", "Times New Roman" ], + + [ "value", "font-size", "1pt", "1.5pt" ], + + [ "string", "font-style", "normal", "italic" ], + + [ "string", "text-underline", "none", "solid" ], + + [ "string", "font-weight", "normal", "bold" ], + + [ "value", "fill-color", "#000000", "#00FF00" ], + + [ "string", "fill", "none", "solid" ], + + [ "value", "height", "0.5*height", "height" ], + + [ "value", "stroke-color", "#000000", "#0000FF" ], + + [ "string", "stroke", "none", "solid" ], + + [ "value", "opacity", "0.0", "0.9" ], + + [ "value", "rotate", "0", "90" ], + + [ "value", "skewX", "0", "-1" ], + + [ "value", "skewY", "0", "-1" ], + + [ "string", "visibility", "hidden", "visible" ], + + [ "value", "width", "0.5*width", "width" ], + + [ "value", "x", "x-0.1", "x+0.1" ], + + [ "value", "y", "y-0.1", "y+0.1" ] + ]; + +$transformsRef = [ + ["translate", "0.5*width,0.5*height"], + ["scale", "0.5*width,0.5*height"], + ["rotate", "270"], + ["skewX", "-1"], + ["skewY", "1"] +]; + + +############################################################################### +# 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(); + +$transitionNum=0; +writeSlideHeader($transitionNum, "Transition effects"); + +foreach $transitionRef (@$transitionsRef) +{ + $transitionType = @$transitionRef[0]; + + foreach $subtype (@{$transitionRef->[1]}) + { + writeTransitionAnimation($transitionNum, + $transitionType, + $subtype); + } +} + +writeSlideFooter(); + +writeSlideHeader(++$transitionNum, "Property effects"); + +foreach $propertyRef (@$propertiesRef) +{ + $propertyType = @$propertyRef[0]; + + if( $propertyType eq "value" ) + { + writePropertyAnimation( $transitionNum, @$propertyRef[1], @$propertyRef[2], @$propertyRef[3] ); + } + elsif( $propertyType eq "string" ) + { + } + else + { + die "Unexpected case"; + } +} + +writeSlideFooter(); + +writeSlideHeader(++$transitionNum, "Transformation effects"); + +foreach $transformRef (@$transformsRef) +{ + writeTransformAnimation( $transitionNum, @$transformRef[0], @$transformRef[1] ); +} + +writeSlideFooter(); + +writeSlideHeader(++$transitionNum, "Path motion effects"); +writePathMotionAnimation($transitionNum); +writeSlideFooter(); + + print $OUT qq~ + + + + Slide: 4 + Topic: Misc effects + Some text to show accelerate effects + Some text to show decelerate effects + Some text to show additive effects + Some text to show autoreverse effects + Some text to show key value effects + Some text to show discrete key value effects + Some text to show formula effects + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +~; + +writeSlideFooter(); + +# iterate, single paragraphs, word, lines, sentences, characters + + print $OUT qq~ + + + + Slide: 5 + Topic: Text effects + Some text to show iterated single paragraph + Some text to show iterated word-by-word effects + Some text to show iterated letter-by-letter effects + Some more text + Some more text + Some more text + Some more text + Some more text + + + + + + + + + + + + + + + + + + + + + + + + + + +~; + +writeSlideFooter(); + +writeFooter(); + +$OUT->close; + +zip_dirtree ($global_output_name); + -- cgit