Motor definitions

Motors may be introduced to Online by:

#!/usr/bin/perl
#
use Spectra; 
use Motor;
my $status = 0;
my $m; 

$m = Motor->define( name => "MOT1",
                    device => "stepping_motor", module => "OMS58",
                    base => 0xf000, vector => 0x0, channel => 0) or goto finish;
$m->set( step_register => 0,
         position_calibrate => 8694.81,
         slew => 10000,
         base => 20,
         acceleration => 20000,
         conversion => 22.2222,
         unit_backlash => 180.0002,
         settle_time => 0.21,
         unit_limit_min => -30121.64,
         unit_limit_max => 65878.26,
         noconfirm => 1,
         nolog => 1) or goto finish;

define( name => VM1,
        device => "STEPPING_MOTOR",
        module => "VMOTOR") or goto finish;

$status = 1;
finish:
$status;