' ------------------------------------------------------------------------------------
'				StartStereoscopeApplet.vbs
'
' This script will launch the Stereoscope Java Applet on the current picture
' (assuming it contains both left and right view).
' The Stereoscope Java Applet from Andreas Petersik (http://www.stereofoto.de/sapplet/)
' is avery cool applet for viewing stereo pictures.
' Download it first from Andreas Petersik's site.
' Modify the values in the block of const(ants) to suits your configuration and needs.
' ------------------------------------------------------------------------------------

Option Explicit

app.ClearTrace

'const stereoscopePath = "D:\HTML\StereoScope"	' Replace by the full path of the applet
const stereoscopePath = "M:\Images\Stéréo"	' Replace by the full path of the applet


Dim alb, pic, sCmd
set alb = app.GetCurrentAlbum
set pic = alb.GetVisiblePicture( alb.nCurrentPicture )

sCmd = "java -mx256m -ms64m -cp " & stereoscopePath & "\stereoscope.jar;" & stereoscopePath & " Stereoscope """ & alb.ExpandMacro( pic, "%RP" ) & """"
app.Trace sCmd
app.Run sCmd, False, 0