/usr/share/psychtoolbox-3/PsychDemos/MovingLineDemo.m is in psychtoolbox-3-common 3.0.11.20140816.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 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 103 104 105 106 107 108 109 | function MovingLineDemo(xv, twolines, screenid)
% MovingLineDemo([xv=10][, twolines=0][, screenid=max])
%
% Shows a pair of vertical lines, or a single line, which travel
% horizontally across the display from the left to the right, repeating
% infinitely.
%
% The optional parameter 'xv' defines the speed in pixels per redraw cycle.
% It defaults to 10 pixels per redraw cycle.
%
% The optional parameter 'twolines' selects if one line or a pair of lines
% should be drawn. By default, twolines==0, ie., a single line is drawn.
%
% The optional parameter 'screenid' selects the display screen to use for
% display, it defaults to the secondary display on multi-display setups.
%
% Hold down the right mouse button to pause the animation. Press the left
% mouse button to exit the demo.
%
% The lines show a greyscale gradient, starting with black at the top of
% the screen, ending in white at the bottom. They are seperated by 'xv'
% pixels.
%
% The purpose of this simple animation is to demonstrate differences in the
% way CRT monitors and TFT flat panel display devices display moving
% stimuli. It shows artifacts that are due to both the display technology
% and due to perceptual effects in the visual system.
%
% On a well working CRT monitor, which is an impulse-type display with fast
% response time, you should see a sharp and clearly separated moving pair
% of lines. On a LCD display with its high latency response behaviour and
% its working principle as a hold-type display, you should see a
% significant "smear" or "blur" of the line pair -- or maybe not even a
% pair of distinctive lines anymore. This is due to technical limitations
% of the display technology and due to the "bad" interaction between
% hold-type displays and smooth pursuit eye movements caused by tracking of
% certain types of moving stimuli.
%
% History:
% 7/28/8 mk Written.
lw = 1;
% Make sure we're running on PTB-3:
AssertOpenGL;
% Use a movement speed of 1 horizontal pixel per redraw cycle by default:
if nargin < 1
xv = [];
end
if isempty(xv)
xv = 10;
end
if nargin < 2
twolines = [];
end
if isempty(twolines)
twolines = 0;
end
% Choose secondary display by default on multi-display setups:
if nargin < 3
screenid = max(Screen('Screens'));
end
% Open window with black background color, query its size and redraw
% interval, do initial flip to sync us to vertical retrace:
win = Screen('OpenWindow', screenid, 128);
[w, h] = Screen('WindowSize', win);
ifi = Screen('GetFlipInterval', win);
vbl=Screen('Flip', win);
% Init defaults:
x=0;
button = 0;
% Run until left mouse button is pressed:
while ~button(1)
% Query mouse:
[xm, ym, button] = GetMouse;
% Move line pair by 'xv' unless right mouse button is pressed, which
% will pause the animation:
if button(2)==0
x=mod(x+xv, w);
end
% We use 'DrawLines' so we can easily define a vertical intensity
% gradient:
Screen('DrawLines', win, [x, x ; 0, h], lw, [0, 255; 0, 255; 0, 255]);
if twolines
Screen('DrawLines', win, [x+xv, x+xv ; 0, h], lw, [0, 255; 0, 255; 0, 255]);
end
% We use 'vbl' based timing, just that the frame-skip detector works
% accurately and we get notified of possibly skipped frames -- Allows
% to see if perceived jerks come frome timing issues or are induced by
% the display or perception:
vbl=Screen('Flip', win,vbl+ifi/2);
end
% Done. Close windows and exit:
Screen('CloseAll');
return;
|