Example

The following script uses the mapping mode.

#!/bin/env perl 

use Spectra; 

my $nPixel = 4; 
my $mask = 1; 
my $mca = "MCA10"; 
my $sweepNo = 1;
my $dirName = "resultsMapping"; 

if( -d $dirName)
{
    system( "/bin/rm -r $dirName"); 
}
if( !Spectra::start_mca_mapping( name => $mca, 
				 nMca => 1024, 
				 nPixel => $nPixel, 
				 mask => $mask))
{
    goto finish;
}

foreach my $ i ( 1 .. $nPixel)
{
    Spectra::advance_mca_mapping( name => $mca); 
    print " current pixel " . 
	Spectra::read_mca_mapping_current_pixel( name => $mca) . "\n"; 
    print " test mca " . Spectra::test_mca_mapping( name => $mca) . "\n"; 
    wait( 0.5); 
}
Spectra::read_mca_mapping( name => $mca, 
			   dirName => $dirName, 
			   sweepNo => $sweepNo); 

finish: