##
# Blinking Demo
#
#  This script copies over two AIPS++ data cubes
#  and demonstrates the use of blinking.

include 'viewer.g'
print 'Now loading data files...';
# get data files and place them in current directory
shell('cp -r /aips++/data/bima/test/sgrb2n.spw1.dirty .');
shell('cp -r /aips++/data/bima/test/sgrb2n.spw1.restored .');
mdp := dv.newdisplaypanel();
mdd1 := dv.loaddata('sgrb2n.spw1.dirty', 'raster');
mdd2 := dv.loaddata('sgrb2n.spw1.restored', 'raster');
mdp.register(mdd1);
mdp.register(mdd2);
# (For '/aips++', you may need to substitute the directory where
# aips++ is installed on your system).
an := mdp.animator();
an.goto(61);
an.setmode('blink');
an.forwardplay(); 
# to stop
#an.stop();
#other useful commands
#an.reverseplay();
#an.forwardstep(); 
#an.reversestep();
#an.tostart();     
#an.toend();