@slide=();
-print "<?xml version='1.0'?>\n";
-print "<slides effect=\"slide top left, blend\"
- bgcolor=\"#000000\" fgcolor=\"#FFFFFF\"
+@actions=( "",
+ "slide top",
+ "slide top right",
+ "slide top left",
+ "slide bottom",
+ "slide bottom left",
+ "slide bottom right",
+ "slide left",
+ "slide right");
+
+print "<?xml version='1.0' encoding='iso-8859-1'?>\n";
+print "<slides bgcolor=\"#222266\" fgcolor=\"#9999ff\"
face=\"../ttf/decker.ttf\" size=\"15\"
- bgimage=\"../img/bg.png\"
bullet=\"../img/bullet.png\"
screen_width=\"1024\" screen_height=\"768\">\n";
+@topics=();
+
+foreach(@content) {
+ if((/^\d/) or (/^ \d/)) {
+ push(@topics,$_);
+ #print STDERR "$_\n";
+ }
+}
+
+$topic=0;
+
push(@content," 23");
foreach(@content) {
s/&/&/g;
s/</</;
s/>/>/;
+
+ #s/ue/ü/g;
+ #s/ae/ä/g;
+ #s/oe/ö/g;
+
+ s/Ue/Ü/g;
+ s/Ae/Ä/g;
+ s/Oe/Ö/g;
# unterpunkt
if(/^ \d/) {
if(@slide) {
print "<slide>\n";
pop(@slide);
- print "<header size=\"20\">$topic</header>\n<text></text>\n";
+ print STDERR "$topics[$topic]\n";
+ print "<header size=\"20\" fgcolor=\"#22FF22\">$topics[$topic]</header>\n<text></text>\n";
foreach(@slide) {
- if(/ \+ /) {
+ if(/^ \+ /) {
+ s/\+//;
+ print "<text></text>\n<listitem fgcolor=\"#ff00cc\" size=\"20\">$_</listitem>\n";
+ }
+ elsif(/ \+ /) {
s/\+//;
print "<text></text>\n<listitem size=\"20\">$_</listitem>\n";
}
}
}
print "</slide>\n\n";
+ #$topic++;
}
@slide=();
- #push(@slide,$_);
- $topic=$_;
+ $topic++;
+ $_=$topics[$topic];
+ if(/^\d/) {
+ $topic++;
+ }
}
# ueberpunkt
elsif (/^\d/) {
- #$topic=$_;
+
}
# normaler content
else {