#!/usr/bin/perl

 
 system ("sleep 360");


 $prikaz="rm -f /tmp/*.png";
 system ($prikaz);

while(1==1)
{
 $prikaz="rm -f /tmp/".$huh.".png";
 system ($prikaz);
 $prikaz="rm -f /tmp/".$huh."b.png";
 system ($prikaz);
 $prikaz="rm -f /tmp/".$huh."c.png";
 system ($prikaz);
 $prikaz="rm -f /tmp/".$huh."d.png";
 system ($prikaz);
 $prikaz="rm -f /tmp/".$huh."x.png";
 system ($prikaz);
 $huh=int(rand(10000));
# print "$huh\n";

 $prikaz="links http://www.chmi.cz/meteo/sat/SDUS/aktual/aktual.jpg?".$huh." -source>/tmp/".$huh.".png";
 system ($prikaz);

 $prikaz="links http://www.meteopress.cz/web/fresh/meteoradar.png?".$huh." -source>/tmp/".$huh."b.png";
 system ($prikaz);

# zimni - bila
# $prikaz="links 'http://www.holidayinfo.cz/camgal_pic.php?id_mista=3&id_regionu=5&id_statu=1&obj=24&size=1&pic=-1&huh=".$huh."' -source>/tmp/".$huh."x.png";
# letni - pustevny
# $prikaz="links 'http://www.holidayinfo.cz/kameimg.php?id_mista=2&id_regionu=5&id_statu=1&obj=111&size=1&pic=-1&huh=".$huh."' -source>/tmp/".$huh."x.png";
# zimni - pustevny
 $prikaz="links 'http://www.holidayinfo.cz/kameimg.php?id_mista=2&id_regionu=5&id_statu=1&obj=112&size=1&pic=-1&huh=".$huh."' -source>/tmp/".$huh."x.png";
 system ($prikaz);


 $prikaz="convert /tmp/".$huh."b.png -roll +55+30 /tmp/".$huh."d.png";
 system ($prikaz);


 $prikaz="convert /tmp/".$huh."d.png -chop 100x60 /tmp/".$huh."c.png";
 system ($prikaz);

#winter edition -BEG
 $prikaz="composite -geometry -60+175 -compose Over /tmp/".$huh."x.png /tmp/".$huh.".png /tmp/".$huh.".png";
 system ($prikaz);
#winter edition -END


# $prikaz="composite -geometry +0-60  -compose Over /tmp/".$huh."c.png /tmp/".$huh.".png /tmp/".$huh."d.png";
#
#  - tohle je kvaziposun radaru, prechodne reseni
#
#  - nove reseni = zadny posun.. 
#  
 $prikaz="composite -geometry -10-0  -compose Over /tmp/".$huh."c.png /tmp/".$huh.".png /tmp/".$huh."d.png";
 system ($prikaz);

 $prikaz="wmsetbg /tmp/".$huh."d.png -s -w 0 -b black";
 system ($prikaz);

 system ("sleep 1800");

}