-
Notifications
You must be signed in to change notification settings - Fork 1
/
AskQ4.m
202 lines (174 loc) · 8.01 KB
/
AskQ4.m
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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
function reply=AskQ1(window,message,textColor,bgColor,replyFun,rectAlign1,rectAlign2,fontsize)
% reply = Ask(window,message,[textColor],[bgColor],[replyFun],[rectAlign1],[rectAlign2],[fontSize=30])
%
% Draw the message, using textColor, right-justified in the upper right of
% the window, call reply=eval(replyFun), then erase (by drawing text again
% using bgColor) and return. The default "replyFun" is 'GetClicks'. You may
% want to use 'GetChar' or 'GetString'.
%
% "rectAlign1" and "rectAlign2", if present, are applied after the above
% alignment. The values should be selected from: RectLeft, RectRight,
% RectTop, RectBottom. Alternatively you can pass in one of the strings
% 'left','top','right','bottom','center'.
%
% If you want to align the text to a different rectangular box than the
% window, then pass the rectangle defining that box as argument
% 'rectAlign1', and the wanted alignment as argument 'rectAlign2', e.g.,
% if rectAlign1 = [400 300 600 400] and rectAlign2 = 'center', then the
% text 'message' would get centered in the box with left-top corner
% (400,300) and right-bottom corner (600,400).
%
% "fontSize" is the font size you want text typed in; will restore old
% fontsize before returning.
%
% Typical uses:
% reply=Ask(window,'Click when ready.'); % Wait for (multiple) mouse clicks, return number of clicks.
% reply=Ask(window,'What''s your name?',[],[],'GetString'); % Accept keyboard input, but don't show it.
% reply=Ask(window,'Who are you?',[],[],'GetChar',RectLeft,RectTop); % Accept keyboard input, echo it to screen.
%
% See also GetString.
% 3/9/97 dgp Wrote it, based on dhb's WaitForClick.m
% 3/19/00 dgp Suggest turning off font smoothing. Default colors.
% 8/14/04 dgp As suggested by Paul Thiem, added an example (and better argument checking)
% to make it clear that replyFun must be supplied as a string and rectAlign1 as a value.
% 8/14/04 dgp Call Screen 'WindowToFront'.
% 1/19/07 asg Modified to work in OSX (for asg's purposes).
% 6/6/07 mk remove Screen('WindowToFron') unsupported on PTB-3, other
% small fixes...
dontClear = 1;
if nargin < 2
error('Ask: Must provide at least the first two arguments.');
end
if ~Screen(window, 'WindowKind')
error('Invalid window handle provided.')
end
if nargin > 7 && ~isempty(fontsize)
oldFontSize=Screen('TextSize', window, fontsize);
else
oldFontSize=Screen('TextSize', window, 30);
end;
if nargin>4
if isempty(replyFun)
replyFun='GetClicks';
end
if isa(replyFun,'double')
error('Ask: replyFun must be [] or a string, e.g. ''GetClicks''.');
end
else
replyFun='GetClicks';
end
% Create the box to hold the text that will be drawn on the screen.
screenRect = Screen('Rect', window);
if ~isempty(message)
tbx = Screen('TextBounds', window, message);
width = tbx(3);
height = tbx(4);
else
width = 0;
height = 0;
message = '';
end
if nargin>5 && ~isempty(rectAlign1) && (length(rectAlign1) == 4) && isnumeric(rectAlign1)
% rectAlign1 overrides reference box screenRect:
screenRect = rectAlign1;
end
r=[0 0 width height + Screen('TextSize', window)];
if strcmp(replyFun,'GetChar')
% In 'GetChar' mode we default to left-alignment of message:
r=AlignRect(r,screenRect,RectLeft,RectTop); % asg changed to align on Left side of screen
else
% For other replyFun's we default to good ol' right-alignment:
r=AlignRect(r,screenRect,RectRight,RectTop);
end
if nargin>6 && ~isempty(rectAlign2)
r=AlignRect(r,screenRect,rectAlign2);
end
if nargin>5 && ~isempty(rectAlign1) && ((length(rectAlign1) ~= 4) || ischar(rectAlign1))
r=AlignRect(r,screenRect,rectAlign1);
end
if nargin<4 || isempty(bgColor)
bgColor=WhiteIndex(window);
end
if nargin<3 || isempty(textColor)
textColor=BlackIndex(window);
end
%Screen(window,'WindowToFront'); % asg commented out
bgColor = [0 0 0 0];
white = [255 255 255];
line1 = 'La tua risposta è stata registrata correttamente.';
line2 = '\n \n \n Quanto ne sei sicuro in una scala da 0 a 10? ';
line3 = '\n \n Inserisci adesso la tua risposta con la tastiera, poi premi INVIO per continuare o BACKSPACE per cancellare: ';
DrawFormattedText(window,[line1 line2 line3],'center','center',white);
[oldX, oldY]=Screen(window,'DrawText',message,r(RectLeft),r(RectBottom),textColor);
Screen('Flip', window, 0, dontClear); % asg added
if strcmp(replyFun,'GetChar')
FlushEvents('keyDown');
i=1;
reply(i)=GetChar(0,1); % get the 1st typed character (with no timing info. and ascii codes only)
DrawFormattedText(window,[line1 line2 line3],'center','center',white);
[newX(i), newY(i)]=Screen(window,'DrawText',char(reply(i)),oldX,oldY,textColor); % put coverted ascii code letter on screen
Screen('Flip', window, 0, dontClear); % flip it to the screen
i=2;
reply(i)=GetChar(0,1); % get the 2nd typed character (with no timing info. and ascii codes only)
while reply(i)==8 % backspace/delete was typed
i=1;
Screen('FillRect', window, bgColor);
DrawFormattedText(window,[line1 line2 line3],'center','center',white);
[oldX, oldY]=Screen(window,'DrawText',message,r(RectLeft),r(RectBottom),textColor); % redraw text with no response letters
Screen('Flip', window, 0, dontClear); % flip it to the screen
reply(i)=GetChar(0,1); % get the next typed character (with no timing info. and ascii codes only)
if reply(i)~=8
[newX(i), newY(i)]=Screen(window,'DrawText',char(reply(i)),oldX,oldY,textColor);
Screen('Flip', window, 0, dontClear);
i=2;
reply(i)=GetChar(0,1);
end;
end;
while ~eq(reply(i),10) && ~eq(reply(i),13) % until they hit RETURN
DrawFormattedText(window,[line1 line2 line3],'center','center',white);
[newX(i), newY(i)]=Screen(window,'DrawText',char(reply(i)),newX(i-1),newY(i-1),textColor); % put coverted ascii code letter on screen
Screen('Flip', window, 0, dontClear); % flip it to the screen
i=i+1;
reply(i)=GetChar(0,1); % get the next character (with no timing info. and ascii codes only)
while reply(i)==8 % backspace/delete was typed
DrawFormattedText(window,[line1 line2 line3],'center','center',white);
Screen('Flip', window, 0, dontClear);
i=i-1;
if i<2 % can't backspace too far!
i=1;
Screen('FillRect', window, bgColor);
DrawFormattedText(window,[line1 line2 line3],'center','center',white);
[oldX, oldY]=Screen(window,'DrawText',message,r(RectLeft),r(RectBottom),textColor);% redraw text with no response letters
Screen('Flip', window, 0, dontClear); % flip it to the screen
reply(i)=GetChar(0,1);
if reply(i)~=8
DrawFormattedText(window,[line1 line2 line3],'center','center',white);
[newX(i), newY(i)]=Screen(window,'DrawText',char(reply(i)),oldX,oldY,textColor);
Screen('Flip', window, 0, dontClear);
i=2;
reply(i)=GetChar(0,1);
end;
elseif i>1
Screen('FillRect', window, bgColor);
DrawFormattedText(window,[line1 line2 line3],'center','center',white);
[oldX, oldY]=Screen(window,'DrawText',message,r(RectLeft),r(RectBottom),textColor);
[newX(i-1), newY(i-1)]=Screen(window,'DrawText',char(reply(1:i-1)), oldX, oldY, textColor); % put old letters on screen
Screen('Flip', window, 0, dontClear); % flip it to the screen
reply(i)=GetChar(0,1); % get the next character (with no timing info. and ascii codes only)
end;
end;
end;
Screen('FillRect', window, bgColor);
Screen('Flip', window);
for d=min(find(reply==8 | reply==10 | reply==13))-1 %#ok<MXFND>
reply = reply(1:d);
end;
% Convert to char() string:
reply=char(reply);
else
reply=eval(replyFun);
end;
% Restore text size:
Screen('TextSize', window ,oldFontSize);
return;
end