/* Ces  script fais defiler des message predefinie dans un tableau
     dont la dimension dim */
 // Decalration des Variable
 dim=4; //dimension du tableau si on veut afficher d'autre message on augmente la ttaille du tableau

 zoomtext=new Array(dim);  //tableau des textes a afficher
 zoomtext[0]="  Repeater  ";
 zoomtext[1]=" 145.700 MHz ";
 zoomtext[2]="  Shift -600 ";
 zoomtext[3]="  Cuagn, 73's ";
 sizes=1;        //taille de la police
MaxSize=6 ; // Taille maximum de la police
decr=MaxSize;
 tpZ=150;    //temps de defilement
 cpt=0;    //compteur pour tableau
 ind=0;  
 Nfois=0;   // compteur d' effet zoom  " changement de la taille des caracteres
                     // Nfois<=Maxfoi
 Maxfoi=3;  //nombre  maximum pour l'effet zoom
 // Fin declaration

function Txtdefil() //aficchage du texte caactere par caractere
 {
     if (ind<dim) 
     {
       if (cpt<=zoomtext[ind].length-1)
            { 
              car=zoomtext[ind].substring(0,cpt+1); 
              taff="<font size=2 color=#1d1dff>"+car+"</font>"
              document.getElementById("Zoom").innerHTML=taff;
              var tpdefil=setTimeout('Txtdefil()',100);
              cpt++;
             }
         else zooming();
      }
      else
       {  ind=0;
           Txtdefil();
        }

 } //end function Txtdefil
       
   
    

function efface() //effacement du text
 {
         if (cpt>=0)
            { cpt--;
               car=zoomtext[ind].substring(0,cpt);
               taff="<font size=3 color=#1d1dff>"+car+"</font>"
               document.getElementById("Zoom").innerHTML=taff;
               var tef=setTimeout('efface()',100);
            }
         else {ind+=1;cpt=0; Txtdefil();return;}
             
}


function Text(size1) // AFFICHAGE DU TEXTE
 {
    AFFZoom="<I><FONT   size="+size1+" Color=#1d1dff >"+zoomtext[ind]+"</FONT></I>";
    document.getElementById("Zoom").innerHTML=AFFZoom; 
 }
//end function

function zooming() //effet zoom
{   
    if (sizes<=MaxSize)    
      { 
        Text(sizes); 
        sizes++;
      }
   else
      {  decr--;
        Text(decr);
         if (decr==0)
          { sizes=0;decr=MaxSize;Nfois++; }
          
      }

  if (Nfois==Maxfoi)
      { efface();Nfois=0;}
   else                   
     tpzoom=setTimeout('zooming()',tpZ);
}


//******** Fin des Scripts
//-->