var slideShowSpeed = 5000

var crossFadeDuration = 3

var Pic = new Array() 
var Cap = new Array()

/*Pic[0] = 'images/MDIG.1.BuckeyeTailingsBefore.jpg'
Cap[0] = 'Buckeye Tailings before remediation'
Pic[1] = 'images/MDIG.2.BuckeyeTailingsAfter.jpg'
Cap[1] = 'Buckeye Tailings after remediation'
Pic[2] = 'images/MDIG.3.CometPitBefore.jpg'
Cap[2] = 'Comet Pit before remediation'
Pic[3] = 'images/MDIG.4.CometPitAfter.jpg'
Cap[3] = 'Comet Pit after remediation'
Pic[4] = 'images/MDIG.5.EvaMay.jpg'
Cap[4] = 'Eva May mine' */


Pic[0] = 'images/AMDsalts5.jpg'
Cap[0] = 'Efflorescences on exposed coal in surface mine cut, Tioga County, Pa.'
Pic[1] = 'images/Centralia4.jpg'
Cap[1] = 'Smoke and fumes from underground mine fire at Centralia, Schuylkill County, Pa.'
Pic[2] = 'images/MahaGirardvleSeep2.jpg'
Cap[2] = 'Measurement of streamflow and mine drainage from Girardville Seepage, Girardville, Schuylkill County, Pa.'
Pic[3] = 'images/MarshfieldAMD4.jpg'
Cap[3] = 'Mine drainage from Marshfield Discharge near Tremont, Schuylkill County, Pa.'
Pic[4] = 'images/MarshfieldWetland1.jpg'
Cap[4] = 'Aerobic wetland constructed to treat Marshfield Discharge near Tremont, Schuylkill County, Pa.'
Pic[5] = 'images/MineDragline.jpg'
Cap[5] = 'Electric powered dragline at surface coal mine in Clarion County, Pa.'
Pic[6] = 'images/MineStrata.jpg'
Cap[6] = 'Exposed strata in surface coal mine in Clearfield County, Pa.'
Pic[7] = 'images/Newkirk3.jpg'
Cap[7] = 'Discharge from Newkirk Mine near Tamaqua, Schuylkill County, Pa.'
Pic[8] = 'images/OttoPaw1.jpg'
Cap[8] = 'Metal-rich precipitate (orange is iron oxide; white is aluminum oxide and sulfur) showing evidence of foraging by raccoon at Otto Mine Discharge at Branchdale, Schuylkill County, Pa.'
Pic[9] = 'images/SolomonBorehole.jpg'
Cap[9] = 'Large-volume discharge from one of three South Wilkes-Barre boreholes on Solomon Creek, Luzerne County, Pa.'
Pic[10] = 'images/swatara.jct.jpg'
Cap[10] = 'Mixing of sediment-laden streamwater from Lower Rausch Creek (top - orange) with Lorberry Creek (left - black) after summer rain storm near Ravine, Schuylkill County, Pa.'

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.images.SlideShow.alt = Cap[j]
   document.main.caption.value = Cap[j]
   if (document.all){
      document.images.SlideShow.filters.blendTrans.Play()
   }
   j = j + 1
   if (j > (p-1)) j=0
   t = setTimeout('runSlideShow()', slideShowSpeed)
}