/* 
  ------------------------------------------------
  SlideShow - Coagulants Photos
   (C) 2000 www.CodeLifter.com
   http://www.codelifter.com
   Free for all users, but leave in this  header
  ------------------------------------------------
*/
var slideShowSpeed = 5000
var crossFadeDuration = 5
var Pic = new Array()
Pic[0] = "photos/Avista4-crystal_thumb.jpg";
Pic[1] = "photos/Barium%20sulfate_thumb.jpg";
Pic[2] = "photos/Scaled%20vexar%20black_thumb.jpg";
var Cap = new Array();
Cap[0] = "4-crystal";
Cap[1] = "Barium sulfate";
Cap[2] = "Scaled vexar black";
var t
var j = 0
var p = Pic.length
var preLoad = new Array()
for (i = 0; i < p; i++){
   preLoad[i] = new Image()
   preLoad[i].src = Pic[i]
}
function runSlideShow(){
   if (document.all){
      document.images.SlideShow.style.filter="blendTrans(duration=2)"
      document.images.SlideShow.style.filter="blendTrans(duration=crossFadeDuration)"
      document.images.SlideShow.filters.blendTrans.Apply()      
   }
   document.images.SlideShow.src = preLoad[j].src
   document.getElementById("caption").innerHTML=Cap[j]
   if (document.all){
      document.images.SlideShow.filters.blendTrans.Play()
   }
   j = j + 1
   if (j > (p-1)) j=0
   t = setTimeout('runSlideShow()', slideShowSpeed)
}