GetWCurrent.spt turns the laser on to #define'd setpoint. It uses head power servo to reach setpoint, then iteratively does beam balances and servo-on's until the current required to reach setpoint is within #define'd tolerance.

Results are recorded in a log file, including the 'error' which is the fractional difference between the last two currents required to achieve the power.

Note: This turns the laser off when it completes.

Note: This script is to be used by DOP only.