This file is indexed.

/usr/share/psychtoolbox-3/PsychOneliners/RestoreCluts.m is in psychtoolbox-3-common 3.0.11.20131230.dfsg1-1build1.

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
function RestoreCluts
% RestoreCluts
%
% Restores the original CLUT's (aka gamma tables) in all graphics cards
% from backup copies made during calls to LoadIdentityClut() or
% BackupCluts(). This is mostly meant to undo changes made when operating
% high precision display devices and similar equipment.
%
% This is a no-operation if there aren't any CLUT's to restore.
%

% History:
% 05/31/08   mk  Written.

global ptb_original_gfx_cluts;

if isempty(ptb_original_gfx_cluts)
    % No backups available -- Nothing to do:
    return;
end

% Iterate over all backup cluts and reload them:
for screenid=0:length(ptb_original_gfx_cluts)-1
    if ~isempty(ptb_original_gfx_cluts{screenid + 1})
        % Restore clut for 'screenid':
        oldClut = ptb_original_gfx_cluts{screenid + 1};
        Screen('LoadNormalizedGammaTable', screenid, oldClut);
        ptb_original_gfx_cluts{screenid + 1} = [];
    end
end

% All cluts restored from backup: Release array with backups itself:
ptb_original_gfx_cluts = [];

% Done.
return;