19 print "<?xml version='1.0' encoding='iso-8859-1'?>\n";
20 print "\n<slides bgcolor=\"#000000\" fgcolor=\"#ffffff\"
21 face=\"../ttf/decker.ttf\" size=\"15\"
22 bullet=\"../img/bullet.png\"
23 screen_width=\"1024\" screen_height=\"768\">\n";
25 open(IN,"../head2xml header|") or die "no head2xml / header!!\n";
32 if((/^\d/) or (/^ \d/)) {
37 print "\n<slide effect=\"slide top left, blend\">\n";
38 print "<header size=\"20\" fgcolor=\"#00FF00\">Inhalt</header>\n<text></text>\n";
41 print "<text></text>\n";
42 $add="fgcolor=\"#FF0000\"";
47 print "<text $add>$_</text>\n";
72 $action=$actions[int(rand($#actions))];
73 if(length($action)>0) {
83 if(length($action)>0) {
84 $action=" effect=\"$action\"";
86 print "<slide$action>\n";
87 print STDERR "$topics[$topic] $action\n";
88 print "<header size=\"20\" fgcolor=\"#00FF00\">$topics[$topic]</header>\n<text></text>\n";
92 print "<text></text>\n<listitem fgcolor=\"#0000FF\" size=\"20\">$_</listitem>\n";
96 print "<text></text>\n<listitem size=\"20\">$_</listitem>\n";
99 print "<text>$_</text>\n";
102 print "</slide>\n\n";