/usr/share/psychtoolbox-3/PsychCal/CalibratePlotSpectra.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 | function fig = CalibratePlotSpectra(cal,fig)
% fig = CalibratePlotSpectra(cal,[fig])
%
% Make a diagnostic plot of the device spectral data and fits in the
% calibration structure.
%
% Can pass figure handle. Returns figure handle.
%
% See also CalibratePlotGamma, CalibratePlotAmbient.
%
% 6/5/10 dhb Wrote it.
% Optional figure open
if (nargin < 2 || isempty(fig))
fig = figure;
end
clf; hold on
if (size(cal.rawdata.rawGammaTable,2) > 3)
subplot(1,2,1);
end
hold on
plot(SToWls(cal.S_device),cal.P_device(:,1),'r');
plot(SToWls(cal.S_device),cal.P_device(:,2),'g');
plot(SToWls(cal.S_device),cal.P_device(:,3),'b');
xlabel('Wavelength (nm)', 'Fontweight', 'bold');
ylabel('Power', 'Fontweight', 'bold');
title('Phosphor spectra', 'Fontsize', 13, 'Fontname', 'helvetica', 'Fontweight', 'bold');
axis([380,780,-Inf,Inf]);
if (size(cal.rawdata.rawGammaTable,2) > 3)
subplot(1,2,2); hold on
plot(SToWls(cal.S_device),cal.P_device(:,4),'r');
plot(SToWls(cal.S_device),cal.P_device(:,5),'g');
plot(SToWls(cal.S_device),cal.P_device(:,6),'b');
xlabel('Wavelength (nm)', 'Fontweight', 'bold');
ylabel('Power', 'Fontweight', 'bold');
title('Phosphor correction', 'Fontsize', 13, 'Fontname', 'helvetica', 'Fontweight', 'bold');
axis([380,780,-Inf,Inf]);
end
drawnow;
|