Kohzu Test Script

The following script can be used to test the Kohzu server:

#!/bin/env perl 
#
# test program for Kohzu motors, haspp08
#
use Spectra; 

while(1)
{
    if( !Spectra::move( phic => 0, 
                   xc => 0, 
                   yc => 0,
                   zc => 0))
    {
        goto finish;
    }
    if( !Spectra::move( phic => 1, 
                        xc => 1, 
                        yc => 1,
                        zc => 1))
    {
        goto finish;
    }
    #
    # spacebar terminates the loop
    #
    if( Spectra::key() == 32)
    {
        goto finish;
    }
}
finish:
    ;