//ce script permet de gerer le "à la une" dans le cas d'un navigateur Netscape 4 ou + et IE 4 ou +
//DREE - Bureau IC
//Joel Peguret - 21/07/2001

////////////////////////////////////////////////////////////////////////////////////////////////////
//variables globales
///////////////////////////////////////////////////////////////////////////////////////////////////

var debutY=155;  //Position initiale top de la couche
var finY;   //Position finale de la couche
var step=1;      //valeur en pixel incrementée à la position top de la couche à chaque tour
var speed=100;  //vitesse de défilement
var arret=1; //flag permettant de faire une pause au départ du scroll
var y=debutY;var stp=0;var z=0; //initialisation de variables
var bottom=250; //var bottom du clip :  mettre la meme valeur que la hauteur du div "objet"
finY=debutY-220; //on arrete de faire le defilé des que le haut du div n'est plus visible


//////////////////////////////////////////////////////////////////////////////////////////////////////
//Fonctions utilisées
//////////////////////////////////////////////////////////////////////////////////////////////////////

	
//cette fonction permet de deplacer une couche obj de y vers le haut	
function move(obj,y) 
{

	if (navigator.family == 'nn4') 
	{
	////////////////////////////////////
	///  Proprietary Navigator 4.x code
	//
	obj.top = y;
	}
	else if (navigator.family == 'ie4' && navigator.version >=4 && navigator.version < 5) 
	{
	////////////////////
	/// Proprietary IE4
	//
	obj.top = y;
	}
	else //if (navigator.DOMHTML && navigator.DOMCSS2) 	
	{
	/////////////////////////////////////////////////
	///  The Standards Compliant Way .. recommended.
	//
	obj.style.top = y+"px";
	}
}
	

//Cette fonction permet de fixer le clip d'une couche obj
function clipTo(obj,t,r,b,l) 
{
	if (navigator.family == 'nn4') 
			{
				////////////////////////////////////
				///  Proprietary Navigator 4.x code
				//
				obj.clip.top = t;
				obj.clip.right = r;
				obj.clip.bottom = b;
				obj.clip.left = l;
			}
			else if (navigator.family == 'ie4' && navigator.version >=4 && navigator.version < 5) 
			{
				////////////////////
				/// Proprietary IE4
				//
				obj.clip = "rect("+t+"px "+r+"px "+b+"px "+l+"px)";
			}
			else //if (navigator.DOMHTML && navigator.DOMCSS2) 
			{
				/////////////////////////////////////////////////
				///  The Standards Compliant Way .. recommended.
				//
				obj.style.clip = "rect("+t+"px "+r+"px "+b+"px "+l+"px)";

			}
}



//cette fonction gère le defilement de la couche et le deplacement relatif du clip, ce qui donne l'impression du sur place,
// tout en faisant un defilement de la couche!!!
function scrollUp()
{
	if (arret==1) {setTimeout("scrollUp()",3000);arret=0;}
	else 
	{	
		if (navigator.family == 'nn4') 
				{
				////////////////////////////////////
				///  Proprietary Navigator 4.x code
				//
				obj=document.layers["objet"];
				}
			else if (navigator.family == 'ie4' && navigator.version >=4 && navigator.version < 5) 
				{
				////////////////////
				/// Proprietary IE4
				//
				obj=document.all["objet"].style;
				}
			else //if (navigator.DOMHTML && navigator.DOMCSS2) 
				{
				/////////////////////////////////////////////////
				///  The Standards Compliant Way .. recommended.
				//
				obj=document.getElementById("objet");
				}
				
	y-=step;move(obj,y);
	if (y<finY) {y = debutY;z=0;arret=1;move(obj,y);clipTo(obj,0,140,200,0);}
	if (y>=finY) {setTimeout ("scrollUp()",speed);clipTo(obj,z,140,200+z,0);z+=step;}
	}
}
	
//appel de la fonction de defilement
scrollUp();