18 print "<?xml version='1.0' encoding='iso-8859-1'?>\n";
19 print "<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";
27 if((/^\d/) or (/^ \d/)) {
53 $action=$actions[int(rand($#actions))];
54 if(length($action)>0) {
64 if(length($action)>0) {
65 $action=" effect=\"$action\"";
67 print "<slide$action>\n";
68 print STDERR "$topics[$topic] $action\n";
69 print "<header size=\"20\" fgcolor=\"#22FF22\">$topics[$topic]</header>\n<text></text>\n";
73 print "<text></text>\n<listitem fgcolor=\"#ff00cc\" size=\"20\">$_</listitem>\n";
77 print "<text></text>\n<listitem size=\"20\">$_</listitem>\n";
80 print "<text>$_</text>\n";