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
|
function MeasureWithColorCal2(meterType)
if nargin < 1 || isempty(meterType)
meterType = 7;
end
PsychDefaultSetup(1);
RestrictKeysForKbCheck([KbName('RightControl'), KbName('ESCAPE')]);
% Initialize and if neccessary zero calibrate the colorimeter:
CMCheckInit(meterType);
while 1
[~, keyCode] = KbStrokeWait(-1);
if keyCode(KbName('ESCAPE'))
break;
end
XYZ = MeasXYZ(meterType);
v = XYZToxyY(XYZ);
[cr, cy, L] = deal(v(1), v(2), v(3))
fprintf('\n');
end
RestrictKeysForKbCheck([]);
CMClose(meterType);
end
|
