//Presentational Slideshow Script- By Dynamic Drive
//For full source code and more DHTML scripts, visit http://www.dynamicdrive.com
//This credit MUST stay intact for legal use

var slideshow_width='150px' //SET SLIDESHOW WIDTH (set to largest image's width if multiple dimensions exist)
var slideshow_height='112px' //SET SLIDESHOW HEIGHT (set to largest image's height if multiple dimensions exist)
var pause=3000 //SET PAUSE BETWEEN SLIDE (2000=2 seconds)
var slidebgcolor="white"

var dropimages=new Array()
//SET IMAGE PATHS. Extend or contract array as needed
dropimages[0]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/congreso4_thumb.jpg"
dropimages[1]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/expocorma200709_thumb.jpg"
dropimages[2]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/pasantia1810063_thumb.jpg"
dropimages[3]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/ceremoniaycoctailconexalumnos17_thumb.jpg"
dropimages[4]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/caifut2516_thumb.jpg"
dropimages[5]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/gradua0911200710_thumb.jpg"
dropimages[6]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/terrenocosecha00_thumb.jpg"
dropimages[7]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/P1011051_thumb.jpg"
dropimages[8]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/niv2007_thumb.jpg"
dropimages[9]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/pasant090507_thumb.jpg"
dropimages[3]="http://cienciasforestales.utalca.cl/esqueleto/fotoportada/picazo2211075_thumb.jpg"

var droplinks=new Array()
//SET IMAGE URLs. Use "" if you wish particular image to NOT be linked:
droplinks[0]="redir.php?redir=fotografias"
droplinks[1]="redir.php?redir=fotografias"
droplinks[2]="redir.php?redir=fotografias"
droplinks[3]="redir.php?redir=fotografias"
droplinks[4]="redir.php?redir=fotografias"
droplinks[5]="redir.php?redir=fotografias"
droplinks[6]="redir.php?redir=fotografias"
droplinks[7]="redir.php?redir=fotografias"
droplinks[8]="redir.php?redir=fotografias"
droplinks[9]="redir.php?redir=fotografias"
droplinks[10]="redir.php?redir=fotografias"


////NO need to edit beyond here/////////////

var preloadedimages=new Array()
for (p=0;p<dropimages.length;p++){
preloadedimages[p]=new Image()
preloadedimages[p].src=dropimages[p]
}

var ie4=document.all
var dom=document.getElementById

if (ie4||dom)
document.write('<div style="position:relative;width:'+slideshow_width+';height:'+slideshow_height+';overflow:hidden"><div id="canvas0" style="position:absolute;width:'+slideshow_width+';height:'+slideshow_height+';background-color:'+slidebgcolor+';left:-'+slideshow_width+'"></div><div id="canvas1" style="position:absolute;width:'+slideshow_width+';height:'+slideshow_height+';background-color:'+slidebgcolor+';left:-'+slideshow_width+'"></div></div>')
else
document.write('<a href="javascript:rotatelink()"><img name="defaultslide" src="'+dropimages[0]+'" border=0></a>')

var curpos=parseInt(slideshow_width)*(-1)
var degree=10
var curcanvas="canvas0"
var curimageindex=linkindex=0
var nextimageindex=1


function movepic(){
if (curpos<0){
curpos=Math.min(curpos+degree,0)
tempobj.style.left=curpos+"px"
}
else{

clearInterval(dropslide)
nextcanvas=(curcanvas=="canvas0")? "canvas0" : "canvas1"
tempobj=ie4? eval("document.all."+nextcanvas) : document.getElementById(nextcanvas)
var slideimage='<img src="'+dropimages[curimageindex]+'" border=0>'
tempobj.innerHTML=(droplinks[curimageindex]!="")? '<a href="'+droplinks[curimageindex]+'">'+slideimage+'</a>' : slideimage
nextimageindex=(nextimageindex<dropimages.length-1)? nextimageindex+1 : 0
setTimeout("rotateimage()",pause)
}
}

function rotateimage(){


  if (ie4||dom)
  {
    resetit(curcanvas)
    var crossobj=tempobj=ie4? eval("document.all."+curcanvas) : document.getElementById(curcanvas)

    if (crossobj!=null)
     {
      crossobj.style.zIndex++
      var temp='setInterval("movepic()",50)'
      dropslide=eval(temp)
      curcanvas=(curcanvas=="canvas0")? "canvas1" : "canvas0"
     }

  }
 else
   document.images.defaultslide.src=dropimages[curimageindex]

 linkindex=curimageindex
  curimageindex=(curimageindex<dropimages.length-1)? curimageindex+1 : 0
}

function rotatelink(){
if (droplinks[linkindex]!="")
window.location=droplinks[linkindex]
}

function resetit(what){

  curpos=parseInt(slideshow_width)*(-1)

  var crossobj=ie4? eval("document.all."+what) : document.getElementById(what)


  if (crossobj!=null)
    crossobj.style.left=curpos+"px"


}

function startit(){
var crossobj=ie4? eval("document.all."+curcanvas) : document.getElementById(curcanvas)

  if (crossobj!=null)
  {
    crossobj.innerHTML='<a href="'+droplinks[curimageindex]+'"><img src="'+dropimages[curimageindex]+'" border=0></a>'
    rotateimage()
   }
}

if (ie4||dom)
window.onload=startit
else
setInterval("rotateimage()",pause)