/usr/share/psychtoolbox-3/PsychTests/FloatTexturePrecisionTest.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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | function FloatTexturePrecisionTest(imagingmode)
% 11 Bit ohne sign, 12 Bit mit sign.
AssertOpenGL;
screenid = max(Screen('Screens'));
imagingmode = 0;
% Open window, with or without imaging pipeline:
[win winRect]= Screen('OpenWindow', screenid, 255, [], [], [], [], [], imagingmode);
inimg = zeros(256, 256);
count = -2048 + 1/128000;
inc = 1/65535;
for x=1:256
for y=1:256
inimg(y,x) = count * inc;
count = count + 1;
end
end
minimum = min(min(inimg))
maximum = max(max(inimg))
imagesc(inimg);
% Build 16 bpc texture:
bpc16tex = Screen('MakeTexture', win, inimg, [], [], 1);
% Build 32 bpc reference texture:
bpc32tex = Screen('MakeTexture', win, inimg, [], [], 2);
% Load difference shader:
diffshader = LoadGLSLProgramFromFiles('ColorCodeDifferenceImageShader', 1);
diffoperator = Screen('OpenProxy', win);
Screen('HookFunction', diffoperator, 'AppendShader', 'UserDefinedBlit', 'Texture difference color coding operator', diffshader);
Screen('HookFunction', diffoperator, 'Enable', 'UserDefinedBlit');
glUseProgram(diffshader);
glUniform1i(glGetUniformLocation(diffshader, 'Image1'), 0);
glUniform1i(glGetUniformLocation(diffshader, 'Image2'), 1);
glUniform1f(glGetUniformLocation(diffshader, 'Delta'), inc/2);
glUseProgram(0);
difftex = Screen('TransformTexture', bpc16tex, diffoperator, bpc32tex);
x=15
Screen('DrawLine', difftex, [255 255 0], x, 0, x, 600);
Screen('DrawTexture', win, difftex, [], winRect, [], 0);
Screen('Flip', win);
while KbCheck; end;
KbWait;
Screen('CloseAll');
|