/usr/share/psychtoolbox-3/PsychCal/CompareMonCal.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 | function isSame = CompareMonCal(cal1,cal2,IGNOREDATE)
% isSame = CompareMonCal(cal1,cal2,[IGNOREDATE])
%
% Checks if the two calibrations are the same. Useful
% for preventing blunders if you have programs that
% precompute and save quantities based on monitor calibrations.
% In that case, this can be used to ensure that current
% calibration matches the one used to do the pre-computing.
%
% Checks date/time, screen, and computer. Could check the
% actual data, but that seems like overkill.
%
% 9/17/97 pbe Wrote it.
% 9/18/97 pbe, dhb Modify interface, change name.
% 1/16/98 dhb Add any around string compares, necessary for desired effect.
% 1/21/98 dhb Add IGNOREDATE flag.
% 3/10/98 dhb Change name to CompareMonCal.
% 7/3/98 dhb, pbe Change for cal.describe format.
if (nargin < 3 || isempty(IGNOREDATE))
IGNOREDATE = 0;
end
isSame = 1;
if (~IGNOREDATE)
if (~streq(cal1.describe.date,cal2.describe.date))
%fprintf(1,'CompareCal:\n');
%fprintf(1,'\tcal1 calibration date: %s',cal1.describe.date);
%fprintf(1,'\tcal2 calibration date: %s',cal2.describe.date);
isSame = 0;
end
end
if (cal1.describe.whichScreen ~= cal2.describe.whichScreen)
%fprintf(1,'CompareCal:\n');
%fprintf(1,'\tcal1 calibration screen: %g\n',cal1.describe.whichScreen);
%fprintf(1,'\tcal2 calibration screen: %g\n',cal2.describe.whichScreen);
isSame = 0;
end
if (~streq(cal1.describe.computer,cal2.describe.computer))
%fprintf(1,'CompareCal:\n');
%fprintf(1,'\tcal1 computer: %s',cal1.describe.computer);
%fprintf(1,'\tcal2 computer: %s',cal2.describe.computer);
isSame = 0;
end
if (~streq(cal1.describe.driver,cal2.describe.driver))
%fprintf(1,'CompareCal:\n');
%fprintf(1,'\tcal1 driver: %s\n',cal1.describe.driver);
%fprintf(1,'\tcal2 driver: %s\n',cal2.describe.driver);
isSame = 0;
end
if (cal1.describe.dacsize ~= cal2.describe.dacsize)
%fprintf(1,'CompareCal:\n');
%fprintf(1,'\tcal1 DAC size: %g\n',cal1.describe.dacsize);
%fprintf(1,'\tcal2 DAC size: %g\n',cal2.describe.dacsize);
isSame = 0;
end
|