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
|
function VRHMDDemo(stereoscopic, checkerboard, deviceindex)
%
% VRHMDDemo([stereoscopic=1][, checkerboard=0][, deviceindex=0])
%
% A very basic demo for the most basic setup of
% VR HMDs, e.g., the Oculus VR Rift DK2. It shows the
% absolute minimum of steps needed - one line of code - to
% use the first connected HMD as mono or stereo display.
%
% 'stereoscopic' if set to 1 (which is the default), configures the
% HMD as a stereoscopic display. A setting of 0 configures it as a
% monoscopic display.
%
% 'deviceindex' if provided, selects the HMD with given index. Otherwise
% the first HMD (deviceindex 0) is chosen.
%
% The demo just renders one static simple 2D image, or image
% pair in stereoscopic mode, then displays it in a loop until a
% key is pressed.
% History:
% 05-Sep-2015 mk Written.
% 30-Mar-2017 mk Adapt to the reality of new VR runtimes.
% Setup unified keymapping and unit color range:
PsychDefaultSetup(2);
if nargin < 1 || isempty(stereoscopic)
stereoscopic = 1;
end
if nargin < 2 || isempty(checkerboard)
checkerboard = 0;
end
if nargin < 3
deviceindex = [];
end
% Select screen with highest id as Oculus output display:
screenid = max(Screen('Screens'));
% Open our fullscreen onscreen window with black background clear color:
PsychImaging('PrepareConfiguration');
if ~stereoscopic
% Setup the HMD to act as a regular "monoscopic" display monitor
% by displaying the same image to both eyes:
PsychVRHMD('AutoSetupHMD', 'Monoscopic', 'LowPersistence FastResponse DebugDisplay', [], [], deviceindex);
else
% Setup for stereoscopic presentation:
PsychVRHMD('AutoSetupHMD', 'Stereoscopic', 'LowPersistence FastResponse', [], [], deviceindex);
end
[win, rect] = PsychImaging('OpenWindow', screenid);
if checkerboard
% Apply regular checkerboard pattern as texture:
bv = zeros(32);
wv = ones(32);
myimg = double(repmat([bv wv; wv bv],32,32) > 0.5);
mytex = Screen('MakeTexture', win, myimg, [], 1);
end
% Render one view for each eye in stereoscopic mode:
vbl = [];
while ~KbCheck
for eye = 0:stereoscopic
Screen('SelectStereoDrawBuffer', win, eye);
Screen('FillRect', win, [0 0 1]);
if checkerboard
Screen('DrawTexture', win, mytex);
end
Screen('FrameRect', win, [1 1 0], [], 20);
if ~checkerboard
Screen('FillOval', win, [1 1 1], CenterRect([0 0 700 700], rect));
Screen('TextSize', win, 100);
DrawFormattedText(win, sprintf('HELLO\nWORLD!\n%i', eye), 'center', 'center', [0 1 0]);
end
Screen('FillOval', win, [1 0 0], CenterRect([0 0 10 10], rect));
end
vbl(end+1) = Screen('Flip', win);
end
KbStrokeWait;
sca;
close all;
plot(1000 * diff(vbl));
end
|
