/usr/share/psychtoolbox-3/PsychHardware/PR655Toolbox/PR655measspd.m is in psychtoolbox-3-common 3.0.11.20140816.dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | function [spd, qual] = PR655measspd(S,syncMode)
% [spd,qual] = PR655measspd(S,[syncMode])
%
% Make a measurement of the spectrum.
%
% 01/16/09 tbc Adapted from PR650Toolbox for use with PR655
% 10/26/10 dhb Handle sync failure a little better.
% 3/8/11 dhb Pass syncMode option to speed things up for displays where it doesn't work.
global g_serialPort;
% Handle defaults
if nargin < 2 || isempty(syncMode)
syncMode = 'on';
end
% Check for initialization
if isempty(g_serialPort)
error('Meter has not been initialized.');
end
% Set wavelength sampling if passed.
if nargin < 1 || isempty(S)
S = [380 5 81];
end
% Initialize
timeout = 30;
% See if we can sync to the source and set sync mode appropriately.
if (strcmp(syncMode,'on'))
syncFreq = PR655getsyncfreq;
if ~isempty(syncFreq) && syncFreq ~= 0
PR655write('SS1');
else
PR655write('SS0');
disp('Warning: Could not sync to source.');
end
else
PR655write('SS0');
end
% Do raw read
readStr = PR655rawspd(timeout);
% fprintf('Got data\n');
qual = sscanf(readStr,'%f',1);
% Check for other error conditions
if qual == -1 || qual == 10
%disp('Low light level during measurement');
%disp('Setting returned value to zero');
spd = zeros(S(3), 1);
elseif qual == 18 || qual == 0
spd = PR655parsespdstr(readStr, S);
elseif qual == -8
disp('Could not sync to source, turning off sync mode and remeasuring');
PR655write('SS0');
readStr = PR655rawspd(timeout);
qual = sscanf(readStr,'%f',1);
if qual == -1 || qual == 10
spd = zeros(S(3), 1);
elseif qual == 18 || qual == 0
spd = PR655parsespdstr(readStr, S);
else
error('Received unhandled error code %d\n', qual);
end
elseif qual ~= 0
error('Bad return code %g from meter', qual);
end
return
|