// CREDITS:
// Enhanced DirectX Wipe Effect by Urs Dudli and Peter Gehrig 
// Based upon wipe-script by Microsoft http://msdn.microsoft.com/workshop/samples/all.asp
// Additional scripts can be found at http://www.24fun.com/fast/index.html
// info@24fun.com
// 12/28/2000

// IMPORTANT: 
// If you add this script to a script-library or script-archive 
// you have to add a link to http://www.24fun.com/fast/index.html on the webpage 
// where this script will be running.

// CONFIGURATION:
// Go to http://www.24fun.com/fast/index.html and download the script as ZIP-file 
// with step-by-step instructions and copy-and-paste installation.

if (document.all) {
document.write('<OBJECT ID="DAControl_Wipe" ')
document.write('STYLE="width:'+picturewidth+';height:'+pictureheight+'"')
document.write('CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D">')
document.write('</OBJECT>')
m = DAControl_Wipe.MeterLibrary;

whatTransformation = new ActiveXObject("DXImageTransform.Microsoft.Wipe");

whatPictures = new Array();      
whatPictures[0] = m.ImportImage(picture1);
whatPictures[1] = m.ImportImage(picture2);

forward = m.Interpolate(0, 1, 3);
back = m.Interpolate(1, 0, 2);
whatMovement = m.Sequence(forward, back).RepeatForever();

whatTransformation.GradientSize = 1.0;
whatTransformation.WipeStyle = 0;

theResult = m.ApplyDXTransform( whatTransformation, whatPictures, whatMovement );

DAControl_Wipe.Image = theResult.OutputBvr;
DAControl_Wipe.Start();

}