qa/tools/mktransitions.pl

128     print $OUT qq~<?xml version="1.0" encoding="UTF-8"?>
147     print $OUT "  <style:style style:name=\"dp",$slideNum,"\" style:family=\"drawing-page\">\n";
148 …print $OUT "   <style:drawing-page-properties presentation:transition-type=\"automatic\" presentat…
149     print $OUT "  </style:style>\n";
154     print $OUT qq~  <style:style style:name="gr1" style:family="graphic">
223 …print $OUT "   <draw:page draw:name=\"page",$slideNum,"\" draw:style-name=\"dp",$slideNum,"\" draw…
225 …print $OUT "    <draw:frame presentation:style-name=\"pr1\" draw:layer=\"layout\" svg:width=\"25.1…
226     print $OUT "     <draw:text-box>\n";
227     print $OUT "      <text:p text:style-name=\"P1\">Transition “",$slideNum-1,"”</text:p>\n";
228     print $OUT "     </draw:text-box>\n";
229     print $OUT "    </draw:frame>\n";
230 …print $OUT "    <draw:frame presentation:style-name=\"pr2\" draw:layer=\"layout\" svg:width=\"25.1…
231     print $OUT "     <draw:text-box>\n";
232     print $OUT "      <text:list text:style-name=\"L2\">\n";
233     print $OUT "       <text:list-item>\n";
234     print $OUT "        <text:p text:style-name=\"P2\">Transition: ",$transitionType,"</text:p>\n";
235     print $OUT "       </text:list-item>\n";
236     print $OUT "      </text:list>\n";
237     print $OUT "      <text:list text:style-name=\"L2\">\n";
238     print $OUT "       <text:list-item>\n";
239     print $OUT "        <text:list>\n";
240     print $OUT "         <text:list-item>\n";
241 …  print $OUT "          <text:p text:style-name=\"P3\">Subtype: ",$transitionSubtype,"</text:p>\n";
242     print $OUT "         </text:list-item>\n";
243     print $OUT "        </text:list>\n";
244     print $OUT "       </text:list-item>\n";
245     print $OUT "      </text:list>\n";
246     print $OUT "      <text:list text:style-name=\"L2\">\n";
247     print $OUT "       <text:list-item>\n";
248     print $OUT "        <text:list>\n";
249     print $OUT "         <text:list-item>\n";
250 …print $OUT "          <text:p text:style-name=\"P3\">Direction: ",$direction == 0 ? "forward" : "r…
251     print $OUT "         </text:list-item>\n";
252     print $OUT "        </text:list>\n";
253     print $OUT "       </text:list-item>\n";
254     print $OUT "      </text:list>\n";
255     print $OUT "      <text:list text:style-name=\"L2\">\n";
256     print $OUT "       <text:list-item>\n";
257     print $OUT "        <text:list>\n";
258     print $OUT "         <text:list-item>\n";
259 …print $OUT "          <text:p text:style-name=\"P3\">Mode: ",$mode == 0 ? "in" : "out","</text:p>\…
260     print $OUT "         </text:list-item>\n";
261     print $OUT "        </text:list>\n";
262     print $OUT "       </text:list-item>\n";
263     print $OUT "      </text:list>\n";
264     print $OUT "     </draw:text-box>\n";
265     print $OUT "    </draw:frame>\n";
266     print $OUT "    <presentation:notes draw:style-name=\"dp2\">\n";
267 …print $OUT "     <draw:page-thumbnail draw:style-name=\"gr1\" draw:layer=\"layout\" svg:width=\"14…
268 …print $OUT "     <draw:frame presentation:style-name=\"pr3\" draw:layer=\"layout\" svg:width=\"16.…
269     print $OUT "      <draw:text-box/>\n";
270     print $OUT "     </draw:frame>\n";
271     print $OUT "    </presentation:notes>\n";
272     print $OUT "   </draw:page>\n";
278     print $OUT qq~   <presentation:settings presentation:full-screen="false"/>
631 $OUT = open_file( "content.xml" );
711 $OUT->close;