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
|
function TouchQueueCreate(win, deviceNumber, numSlots, numValuators, keyList, flags)
% TouchQueueCreate(windowHandle, deviceNumber [, numSlots=100000][, numValuators=auto][, keyList=all][, flags=0])
%
% Create a touch queue for receiving touch input from touch input devices
% like touchscreens, tablets, touch surfaces, or touchpads.
%
% 'windowHandle' Handle for a Screen() onscreen window for which touch
% should be received.
%
% 'deviceNumber' Handle for the touch input device. GetTouchDeviceIndices()
% allows to enumerate touch devices.
%
% 'numSlots' Number of input slots for storing touch events. You must empty
% the queue frequently enough, so no more than 'numSlots' events collect in
% the queue, or the queue will stop storing new events and drop information.
%
% 'numValuators' Number of optional touch device properties to store per
% event. Defaults to what the device can provide.
%
% 'keyList' If the touch queue is also used to receive button input from
% physical buttons (or maybe virtual buttons?) from the device, this provides
% the list of buttons to accept. See KbQeueCreate for explanation. By default
% all buttons are accepted.
%
% 'flags' Optional flags. This defaults to 0 and is so far unused for touch input.
%
% Once a queue is created its touch data collection can be started via
% TouchQueueStart(), stopped via TouchQueueStop(), cleared via TouchEventFlush(),
% asked for current number of pending events via TouchEventAvail() and events
% can be fetched via TouchEventGet().
%
% History:
% 1-Oct-2017 mk Written.
if nargin < 1 || isempty(win) || Screen('WindowKind', win) ~= 1
error('Required windowHandle missing.');
end
if nargin < 2 || isempty(deviceNumber)
error('Required deviceNumber missing.');
end
if nargin < 3 || isempty(numSlots)
numSlots = 100000;
else
if numSlots < 4
error('numSlots must be at least 4.');
end
end
if nargin < 4
numValuators = [];
else
if numValuators < 4
error('numValuators must be at least 4.');
end
end
if nargin < 5
keyList = [];
else
if ~ismember(length(keyList), [0, 256])
error('keyList must be either empty, or have exactly 256 entries.');
end
end
if nargin < 6
flags = [];
end
[touchIndices, ~, allInfo] = GetTouchDeviceIndices;
if ~ismember(deviceNumber, touchIndices)
error('deviceNumber does not refer to a touch input device.');
end
% Get dev info for touch device:
idx = find(touchIndices == deviceNumber);
dev = allInfo{idx};
if isempty(numValuators)
if IsLinux
% On Linux/X11 this is stored in axes, but we need at least numValuators of
% 4, as otherwise touch input support won't get enabled by PsychHID():
numValuators = max(dev.axes, 4);
else
% On MS-Windows, 5 would be a good guess:
numValuators = 5;
end
end
% Ok, and now we just call KbQeueCreate, which we wrap here atm.:
KbQueueCreate(deviceNumber, keyList, numValuators, numSlots, flags, win);
return;
|
