/usr/share/psychtoolbox-3/PsychTests/LabLuvTest.m is in psychtoolbox-3-common 3.0.9+svn2579.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 | % LabLuvTest
%
% Test routines that convert to CIELAB and CIELUV.
%
% 7/11/03 dhb Added comments, change name.
% Set some XYZ values
XYZ = [100 100 100 ; 100 75 125]';
XYZ = [XYZ , XYZ/10000000];
% Set a white point
white = [200 200 200]';
% Convert to Luv
Luv = XYZToLuv(XYZ,white);
XYZ1 = LuvToXYZ(Luv,white);
% Convert to Lab
Lab = XYZToLab(XYZ,white);
XYZ2 = LabToXYZ(Lab,white);
% Check that inversion is correct
% up to roundoff error
fix( (XYZ-XYZ1)/1e-12 )
fix( (XYZ-XYZ2)/1e-12 )
|