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
110
111
112
113
114
115
116
117
118
119
120
121
122
|
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, setup defaults:
PsychDefaultSetup(1);
% 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:
PsychImaging('PrepareConfiguration');
% Try to open us on a VR HMD if one is connected, otherwise use regular
% display:
hmd = PsychVRHMD('AutoSetupHMD', 'Monoscopic', 'TimingSupport TimestampingSupport');
win = PsychImaging('OpenWindow', screenid, 128);
[w, h] = Screen('WindowSize', win);
ifi = Screen('GetFlipInterval', win);
HideCursor(screenid);
vbl=Screen('Flip', win);
% Init defaults:
x=0;
button = 0;
% Run until left mouse button is pressed:
while ~button(1)
% Query mouse:
[~, ~, 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
if ~isempty(hmd) && KbCheck
KbReleaseWait;
PsychVRHMD('SetLowPersistence', hmd, 1 - PsychVRHMD('SetLowPersistence', hmd));
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
ShowCursor(screenid);
% Done. Close windows and exit:
sca;
return;
|
