// David, 28/03/2001. Scroll DHTML, con avance normal y rápido.
//
//Este script y otros muchos pueden
//descarse on-line de forma gratuita
//en El Código: www.elcodigo.net
//
//	Version 1
//	28/03/2001


var cartelID = null
var intervalo = 200		//velocidad a la que queremos que avance el scroll 

//para mover la parte de texto que se ve modificamos los parametros
//de la propiedad clip del divContenido, y tambien variamos la 
//posicion top con respecto al divContenedor
var superior = 0    
var derecho = screen.width - 40
var altura = screen.height - 40;
var inferior = altura
var izquierdo = 0
var top = 25
//var incremento = 10
var indice = 0
var limite = -4500		//si variamos el texto deberiamos variar el limite


function inicializar(){
 
  //divContenedor.style.backgroundColor = "#C6C6FF"
  divContenedor.style.position = "relative"
  divContenedor.style.top = "15px"
  divContenedor.style.left = "0px"
  divContenedor.style.width = screen.width - 20 + "px"
  divContenedor.style.height = screen.height - 20 + "px"
  divContenedor.style.clip = ("rect(0px 1240px " + altura + "px 0px)")
  
  //divContenido.style.backgroundColor = "white"
  divContenido.style.position = "absolute"
  divContenido.style.top = (top + "px")
  divContenido.style.left = "0px"
  divContenido.style.width = screen.width - 100 + "px"
  divContenido.style.height = screen.height - 20 + "px"
  divContenido.style.clip = ("rect(0px 1240px " + altura + "px 0px)")
  
  arriba1.style.left= screen.width - 70 + "px";
  arriba2.style.left= screen.width - 70 + "px";
  abajo1.style.left= screen.width - 70 + "px";
  abajo2.style.left= screen.width - 70 + "px";

}
 
function mover(){
  divContenido.style.top = top
  divContenido.style.clip = ("rect(" + superior + "px," + derecho +"px," + inferior + "px," + izquierdo + "px)")
  
}
 
function parar(){
 if (cartelID) clearTimeout(cartelID)
 //este alert lo uso cuando vario el texto, una unica vez para fijar el limite
 //alert(top+"."+superior+"."+inferior)
}
 
function subir(incremento){
 if (top>limite){ 
     top = top - incremento
     superior = superior + incremento
     inferior = inferior + incremento  
     mover()
     cartelID = setTimeout("subir(" + incremento + ")", intervalo)    
   }
}

function bajar(incremento){
 if (top < 25){
  top = top + incremento
  superior = superior - incremento
  inferior = inferior - incremento  
  if (top > 25){				//si nos pasamos ponemos los valores iniciales
     top = 25
     superior = 0
     inferior = altura
     }
  mover()
  cartelID = setTimeout("bajar(" + incremento + ")", intervalo)
  }
}

//UTILIZACION
//<div id="divContenedor" style="POSITION: relative; BACKGROUND-COLOR: darkslateblue; LEFT: 100px; TOP: 15px; HEIGHT: 250px; WIDTH: 500px; CLIP: rect(0px 500px 250px 0px)">
//<div style="CURSOR: hand; HEIGHT: 30px; LEFT: 460px; POSITION: absolute; TOP: 25px; WIDTH: 30px"><IMG height="20" onmouseout="parar()" onmouseover="bajar(10)" src="subir.gif" width="19"></div>
//<div style="CURSOR: hand; HEIGHT: 30px; LEFT: 460px; POSITION: absolute; TOP: 60px; WIDTH: 30px"><IMG height="20" onmouseout="parar()" onmouseover="bajar(150)" src="subir_pg.gif" width="19"></div>
//<div style="CURSOR: hand; HEIGHT: 30px; LEFT: 460px; POSITION: absolute; TOP: 160px; WIDTH: 30px"><IMG height="20" onmouseout="parar()" onmouseover="subir(150)" src="bajar_pg.gif" width="19"></div>
//<div style="CURSOR: hand; HEIGHT: 30px; LEFT: 460px; POSITION: absolute; TOP: 195px; WIDTH: 30px"><IMG height="20" onmouseout="parar()" onmouseover="subir(10)" src="bajar.gif" width="19"></div> 
//<div id="divContenido" style="BACKGROUND-COLOR: white">
//<p>Sustituye este texto por el texto que quieres mostrar en la ventana</p>
//<p>Puede ser incluso el código de otra página HTML</p>
//</div>
//</div>