/usr/share/psychtoolbox-3/PsychTests/OMLBasicTest.m is in psychtoolbox-3-common 3.0.14.20170103+git6-g605ff5c.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 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | function OMLBasicTest(screenid, querystresstest)
% OMLBasicTest([screenid=max][, querystresstest = 0]) - Test basic correctness of OpenML timestamping.
%
% Performs a sequence of 300 flips, acquires timestamps of
% Flip completion according to OML_sync_control timestamping,
% as well as a post-swap GetSecs timestamp and a timestamp of
% the last vblank. If OpenML timestamping works correctly, then
% all three timestamps should be almost identical, ie., the vblank
% and flip timestamps should be identical, the GetSecs timestamp
% only minimally later than the flip timestamp, depending on
% system scheduling noise and load.
%
% If the timestamps (minus a few outliers) disagree, then
% something is likely broken in OpenML flip timestamping.
%
% if the optional parameter 'querystresstest' is set to a
% value > 0 then a stress test of vblank count and timestamp
% queries is run for 'querystresstest' seconds and potential
% trouble is reported.
%
global t;
global drt;
global dsw;
AssertOpenGL;
Screen('Preference','VBLTimestampingmode', 4);
if nargin < 1 || isempty(screenid)
screenid=max(Screen('Screens'));
end
if nargin < 2 || isempty(querystresstest)
querystresstest = 0;
end
win = Screen('OpenWindow', screenid);
ifi = Screen('GetFlipInterval', win);
GetSecs;
WaitSecs(0);
Priority(MaxPriority(win));
if querystresstest > 0
oldLastVBLTime = nan;
tEnd = GetSecs + querystresstest;
while GetSecs < tEnd
winfo = Screen('GetWindowInfo', win);
if winfo.LastVBLTime < oldLastVBLTime - 0.000050
fprintf('QueryStressTest: New ts %f < old ts %f --> delta %f msecs!!\n', winfo.LastVBLTime, oldLastVBLTime, 1000 * (winfo.LastVBLTime - oldLastVBLTime));
end
oldLastVBLTime = winfo.LastVBLTime;
end
end
n=300;
t=zeros(3,n);
for i=1:n
t(1,i) = Screen('Flip', win);
t(3,i) = GetSecs;
winfo = Screen('GetWindowInfo', win);
t(2,i) = winfo.LastVBLTime;
end
Priority(0);
sca;
drt = 1000 * (t(3,:) - t(1,:));
dsw = 1000 * (t(2,:) - t(1,:));
mrt = max(abs(drt));
msw = max(abs(dsw));
fprintf('\n\n');
fprintf('Maximum deviation between GetSecs and stimulus onset timestamp: %f msecs. --> ', mrt);
if mrt < ifi * 1000 / 2
fprintf('Decent.\n');
else
fprintf('Troublesome!\n');
end
fprintf('Maximum deviation between VBlank and stimulus onset timestamp: %f msecs. --> ', msw);
if msw < ifi * 1000 / 2
fprintf('Decent.\n');
else
fprintf('Troublesome!\n');
end
fprintf('See plots for details...\n');
close all;
plot(drt);
title('GetSecs - swapcomplete [msecs]:');
figure;
plot(dsw);
title('vblank - swapcomplete [msecs]:');
return;
|