| Quellcodebibliothek Statistik Leitseite products/sources/formale Sprachen/C/LibreOffice/slideshow/qa/tools/ (Office von Apache Version 25.8.3.2©) Datei vom 5.10.2025 mit Größe 37 kB |
|
Quelle mkeffects.pl Sprache: Shell |
|||||||||||||||
|
: eval 'exec perl -wS $0 ${1+"$@"}' if 0; # # This file is part of the LibreOffice project. # # This Source Code Form is subject to the terms of the Mozilla Public # License, v. 2.0. If a copy of the MPL was not distributed with this # file, You can obtain one at http://mozilla.org/MPL/2.0/. # # This file incorporates work covered by the following license notice: # # 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 . # 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 already # 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 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:offic <office:scripts/> <office:automatic-styles> <style:style style:name="dp1" style:family="drawing-page"> <style:drawing-page-properties presentation:background-visible="true" presentation: </style:style> <style:style style:name="gr1" style:family="graphic" style:parent-style-name="standa <style:graphic-properties draw:textarea-horizontal-align="center" draw:textarea-ver </style:style> <style:style style:name="pr1" style:family="presentation" style:parent-style-name="D <style:graphic-properties draw:fill-color="#ffffff" draw:auto-grow-height="true" f </style:style> <style:style style:name="pr2" style:family="presentation" style:parent-style-name="D <style:graphic-properties draw:fill-color="#ffffff" draw:auto-grow-height="true" f </style:style> <style:style style:name="P1" style:family="paragraph"> <style:paragraph-properties fo:margin-left="0cm" fo:margin-right="0cm" fo:text-inden </style:style> <style:style style:name="P2" style:family="paragraph"> <style:paragraph-properties fo:margin-left="0.6cm" fo:margin-right="0cm" fo:text-ind </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="tru </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="tru </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="tru </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="tru </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="tru </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="tru </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="tru </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="tru </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="tru </text:list-level-style-bullet> </text:list-style> </office:automatic-styles> <office:body> <office:presentation> ~; } sub writeSlideHeader { my $titleText = pop @_; my $slideNum = pop @_; print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " } sub writeSlideFooter { print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " } sub writeFooter { print $OUT qq~ <presentation:settings presentation:full-screen="false"/> </office:presentation> </office:body> </office:document-content> ~; } sub writeTransitionAnimation { my $transitionSubtype = pop @_; my $transitionType = pop @_; my $slideNum = pop @_; print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " } sub writePropertyAnimation { my $propertyEnd = pop @_; my $propertyStart = pop @_; my $propertyName = pop @_; my $slideNum = pop @_; print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " } sub writeTransformAnimation { my $propertyBy = pop @_; my $propertyName = pop @_; my $slideNum = pop @_; print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " } sub writePathMotionAnimation { my $slideNum = pop @_; print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " print $OUT " } 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" "Manifes <manifest:manifest xmlns:manifest="urn:oasis:names:tc:opendocument:xmlns:manifest: <manifest:file-entry manifest:media-type="application/vnd.oasis.opendocument.prese <manifest:file-entry manifest:media-type="text/xml" manifest:full-path="content.xml </manifest:manifest> ~; $outFile->close; } ############################################################################### # 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. 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], @$proper } 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~ <draw:page draw:name="page1" draw:style-name="dp1" draw:master-page-name="Default"> <office:forms form:automatic-focus="false" form:apply-design-mode="false"/> <draw:rect draw:style-name="gr1" draw:text-style-name="P1" draw:id="id10000" draw:lay <text:p text:style-name="P2">Slide: 4</text:p> <text:p text:style-name="P2">Topic: Misc effects</text:p> <text:p text:id="textid10001" text:style-name="P2">Some text to show accelerate effects</t <text:p text:id="textid10002" text:style-name="P2">Some text to show decelerate effects</t <text:p text:id="textid10003" text:style-name="P2">Some text to show additive effects</tex <text:p text:id="textid10004" text:style-name="P2">Some text to show autoreverse effects</ <text:p text:id="textid10005" text:style-name="P2">Some text to show key value effects</tex <text:p text:id="textid10006" text:style-name="P2">Some text to show discrete key value eff <text:p text:id="textid10007" text:style-name="P2">Some text to show formula effects</text </draw:rect> <anim:par presentation:node-type="timing-root"> <anim:seq presentation:node-type="main-sequence"> <anim:par smil:begin="0s" smil:fill="remove"> <anim:set smil:begin="0s" smil:dur="0.001s" smil:fill="hold" smil:targetElement="text <anim:animate smil:begin="0s" smil:dur="10s" smil:fill="hold" smil:targetElement="tex </anim:par> <anim:par smil:begin="0s" smil:fill="remove"> <anim:set smil:begin="0s" smil:dur="0.001s" smil:fill="hold" smil:targetElement="text <anim:animate smil:begin="0s" smil:dur="10s" smil:fill="hold" smil:targetElement="tex </anim:par> <anim:par smil:begin="0s" smil:fill="remove"> <anim:set smil:begin="0s" smil:dur="0.001s" smil:fill="hold" smil:targetElement="text <anim:animate smil:begin="0s" smil:dur="3s" smil:fill="hold" smil:targetElement="text <anim:animate smil:begin="0s" smil:dur="6s" smil:fill="hold" smil:targetElement="text </anim:par> <anim:par smil:begin="0s" smil:fill="remove"> <anim:set smil:begin="0s" smil:dur="0.001s" smil:fill="hold" smil:targetElement="text <anim:animate smil:begin="0s" smil:dur="5s" smil:fill="hold" smil:targetElement="text </anim:par> <anim:par smil:begin="0s" smil:fill="remove"> <anim:set smil:begin="0s" smil:dur="0.001s" smil:fill="hold" smil:targetElement="text <anim:animateTransform smil:begin="0s" smil:dur="10s" smil:fill="hold" smil:targetEle </anim:par> <anim:par smil:begin="0s" smil:fill="remove"> <anim:set smil:begin="0s" smil:dur="0.001s" smil:fill="hold" smil:targetElement="text <anim:animateTransform smil:begin="0s" smil:dur="10s" smil:fill="hold" smil:targetEle </anim:par> <anim:par smil:begin="0s" smil:fill="remove"> <anim:set smil:begin="0s" smil:dur="0.001s" smil:fill="hold" smil:targetElement="text <anim:animate smil:begin="0s" smil:dur="3s" smil:fill="hold" smil:targetElement="text </anim:par> ~; writeSlideFooter(); # iterate, single paragraphs, word, lines, sentences, characters print $OUT qq~ <draw:page draw:name="page1" draw:style-name="dp1" draw:master-page-name="Default"> <office:forms form:automatic-focus="false" form:apply-design-mode="false"/> <draw:rect draw:style-name="gr1" draw:text-style-name="P1" draw:id="id20000" draw:lay <text:p text:style-name="P2">Slide: 5</text:p> <text:p text:style-name="P2">Topic: Text effects</text:p> <text:p text:id="textid20001" text:style-name="P2">Some text to show iterated single parag <text:p text:id="textid20002" text:style-name="P2">Some text to show iterated word-by-wor <text:p text:id="textid20003" text:style-name="P2">Some text to show iterated letter-by-l <text:p text:id="textid20004" text:style-name="P2">Some more text</text:p> <text:p text:id="textid20005" text:style-name="P2">Some more text</text:p> <text:p text:id="textid20006" text:style-name="P2">Some more text</text:p> <text:p text:id="textid20007" text:style-name="P2">Some more text</text:p> <text:p text:id="textid20008" text:style-name="P2">Some more text</text:p> </draw:rect> <anim:par presentation:node-type="timing-root"> <anim:seq presentation:node-type="main-sequence"> <anim:par smil:begin="0s" smil:fill="remove"> <anim:iterate smil:begin="0s" smil:fill="hold" smil:targetElement="id20000" anim:iter <anim:set smil:begin="0s" smil:dur="0.001s" smil:fill="hold" smil:attributeName="visi <anim:animate smil:begin="0s" smil:dur="2s" smil:fill="hold" smil:decelerate="0.5" smi </anim:iterate> </anim:par> <anim:par smil:begin="0s" smil:fill="remove"> <anim:set smil:begin="0s" smil:dur="0.001s" smil:targetElement="id20000" smil:fill="h <anim:iterate smil:begin="0s" smil:fill="hold" smil:targetElement="textid20002" anim: <anim:set smil:begin="0s" smil:dur="0.001s" smil:fill="hold" smil:attributeName="visi <anim:animate smil:begin="0s" smil:dur="2s" smil:fill="hold" smil:decelerate="0.5" smi </anim:iterate> </anim:par> <anim:par smil:begin="0s" smil:fill="remove"> <anim:set smil:begin="0s" smil:dur="0.001s" smil:targetElement="id20000" smil:fill="h <anim:iterate smil:begin="0s" smil:fill="hold" smil:targetElement="textid20003" anim: <anim:set smil:begin="0s" smil:dur="0.001s" smil:fill="hold" smil:attributeName="visi <anim:animate smil:begin="0s" smil:dur="2s" smil:fill="hold" smil:decelerate="0.5" smi </anim:iterate> </anim:par> ~; writeSlideFooter(); writeFooter(); $OUT->close; zip_dirtree ($global_output_name);
¤ Dauer der Verarbeitung: 0.40 Sekunden (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
||||||||||||||
2026-04-04