18 print "<?xml version='1.0' encoding='iso-8859-1'?>\n";
19 print "\n<slides bgcolor=\"#222266\" fgcolor=\"#9999ff\"
20 face=\"../ttf/decker.ttf\" size=\"15\"
21 bullet=\"../img/bullet.png\"
22 screen_width=\"1024\" screen_height=\"768\">\n";
24 open(IN,"../head2xml header|") or die "no head2xml / header!!\n";
33 if((/^\d/) or (/^ \d/)) {
38 print "\n<slide effect=\"slide top left, blend\">\n";
39 print "<header size=\"20\" fgcolor=\"#22FF22\">Inhalt</header>\n<text></text>\n";
42 print "<text></text>\n";
43 $add="fgcolor=\"#ff00cc\"";
48 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=\"#22FF22\">$topics[$topic]</header>\n<text></text>\n";
92 print "<text></text>\n<listitem fgcolor=\"#ff00cc\" size=\"20\">$_</listitem>\n";
96 print "<text></text>\n<listitem size=\"20\">$_</listitem>\n";
99 print "<text>$_</text>\n";
102 print "</slide>\n\n";