Combined Move (CM) Scan

In the following example MOT11 is moved within the given scan limits. MOT12 is moved in parallel but twice as much because factor => 2.

#!/usr/bin/env perl
use Spectra;
my $status = 1; 
#
# Combined move: 
#
if( !Spectra::scan( type => "cm",
		    device => "mot11", 
		    factor => 2, 
		    device_cm => "mot12", 
		    st => 0.1,
		    range => 1, 
		    np => 11,
		    generic_macro_name => "auto_scan"))
{
    print " Failed to execute a CM scan \n"; 
    $status = 0; 
    goto finish;
}
finish:
    $status;