qa/tools/mktransitions.pl

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