added random slide effects

diff --git a/parse.pl b/parse.pl
index a06ff05..42f453f 100755 (executable)
--- a/parse.pl
+++ b/parse.pl
@@ -50,8 +50,22 @@ foreach(@content) {
        # unterpunkt
        if(/^ \d/) {
                if(@slide) {
-                       print "<slide>\n";
-                       print STDERR "$topics[$topic]\n";
+                       $action=$actions[int(rand($#actions))];
+                       if(length($action)>0) {
+                               if(int(rand(2))==1) {
+                                       $action.=", blend";
+                               }
+                       }
+                       else {
+                               if(int(rand(2))==1) {
+                                       $action.="blend";
+                               }
+                       }
+                       if(length($action)>0) {
+                               $action=" effect=\"$action\"";
+                       }
+                       print "<slide$action>\n";
+                       print STDERR "$topics[$topic] $action\n";
                        print "<header size=\"20\" fgcolor=\"#22FF22\">$topics[$topic]</header>\n<text></text>\n";
                        foreach(@slide) {
                                if(/^  \+ /) {

diff --git a/wlan1/wlan1.xml b/wlan1/wlan1.xml
index 38713ed..928e07b 100644 (file)
--- a/wlan1/wlan1.xml
+++ b/wlan1/wlan1.xml
@@ -3,7 +3,7 @@
         face="../ttf/decker.ttf" size="15"
         bullet="../img/bullet.png"
         screen_width="1024" screen_height="768">
-<slide>
+<slide effect="slide bottom left, blend">
 <header size="20" fgcolor="#22FF22"> 1.1 Was ist Wireless LAN?</header>
 <text></text>
 <text></text>
@@ -16,7 +16,7 @@
 <listitem fgcolor="#ff00cc" size="20">   Reichweite 50 - 300m</listitem>
 </slide>
 
-<slide>
+<slide effect="slide top">
 <header size="20" fgcolor="#22FF22"> 1.2 WaveLAN Hardware</header>
 <text></text>
 <text></text>
@@ -36,7 +36,7 @@
 <text>    </text>
 </slide>
 
-<slide>
+<slide effect="slide top right">
 <header size="20" fgcolor="#22FF22"> 2.1 Begriffserklaerungen</header>
 <text></text>
 <text></text>
@@ -49,7 +49,7 @@
 <listitem size="20">    4 Keys moeglich</listitem>
 </slide>
 
-<slide>
+<slide effect="slide bottom">
 <header size="20" fgcolor="#22FF22"> 2.2 Managed Mode</header>
 <text></text>
 <text></text>
@@ -68,7 +68,7 @@
 <text>    Bsp.: {Client 1} ~~~ (AP 1)---[Ethernet]---(AP 2) ~~~ {Client 2}</text>
 </slide>
 
-<slide>
+<slide effect="slide top right">
 <header size="20" fgcolor="#22FF22"> 2.3 AdHoc Mode</header>
 <text></text>
 <text></text>
@@ -81,7 +81,7 @@
 <text>  </text>
 </slide>
 
-<slide>
+<slide effect="slide top right">
 <header size="20" fgcolor="#22FF22"> 2.4 WDS</header>
 <text></text>
 <text></text>
@@ -93,7 +93,7 @@
 <text>    Bsp.: [Ethernet 1]---(AP 1) ~~~ (AP 2)---[Ethernet 2]</text>
 </slide>
 
-<slide>
+<slide effect="blend">
 <header size="20" fgcolor="#22FF22"> 3.1 Vorraussetzungen</header>
 <text></text>
 <text></text>
@@ -134,7 +134,7 @@
 <listitem size="20">    start/stop: /etc/init.d/pcmcia start/stop</listitem>
 </slide>
 
-<slide>
+<slide effect="slide top left, blend">
 <header size="20" fgcolor="#22FF22"> 3.2 Client Setup</header>
 <text></text>
 <text></text>
@@ -148,7 +148,7 @@
 <text>    ifconfig eth0 192.168.1.5 up</text>
 </slide>
 
-<slide>
+<slide effect="slide left, blend">
 <header size="20" fgcolor="#22FF22"> 3.3 AP Setup</header>
 <text></text>
 <text></text>