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
|
% DrawFormattedTextDemo
%
% Draws lots of formatted text, shows how to center text vertically and/or
% horizontally, how line-breaks are introduced, how to compute text
% bounding boxes.
%
% Press any key to cycle through different demo displays.
%
% see also: PsychDemosOSX, Screen DrawText?, DrawSomeTextDemo
% 10/16/06 mk Wrote it.
try
% Choosing the display with the highest display number is
% a best guess about where you want the stimulus displayed.
screens=Screen('Screens');
screenNumber=max(screens);
% Open window with default settings:
w=Screen('OpenWindow', screenNumber);
% Select specific text font, style and size:
Screen('TextFont',w, 'Courier New');
Screen('TextSize',w, 14);
Screen('TextStyle', w, 1+2);
% Read some text file:
fd = fopen([PsychtoolboxRoot 'Contents.m'], 'rt');
if fd==-1
error('Could not open Contents.m file in PTB root folder!');
end
mytext = '';
tl = fgets(fd);
lcount = 0;
while (tl~=-1) & (lcount < 48)
mytext = [mytext tl];
tl = fgets(fd);
lcount = lcount + 1;
end
fclose(fd);
mytext = [mytext char(10)];
Screen('DrawText', w, 'Top-Left aligned, 40 chars wide: Hit any key to continue.', 0, 0, [255, 0, 0, 255]);
% mytext contains the content of the first 48 lines of the text file.
% Let's print it: Start at (x,y)=(10,10), break lines after 40
% characters:
[nx, ny, bbox] = DrawFormattedText(w, mytext, 10, 20, 0, 40);
% Show computed text bounding box:
Screen('FrameRect', w, 0, bbox);
Screen('Flip',w);
KbWait;
while KbCheck; end;
% Draw text again, this time with unlimited line length:
[nx, ny, bbox] = DrawFormattedText(w, mytext, 10, 10, 0);
% Show computed text bounding box:
Screen('FrameRect', w, 0, bbox);
Screen('DrawText', w, 'Top-Left aligned, width unconstrained: Hit any key to continue.', nx, ny, [255, 0, 0, 255]);
Screen('Flip',w);
KbWait;
while KbCheck; end;
% Now horizontally and vertically centered:
[nx, ny, bbox] = DrawFormattedText(w, mytext, 'center', 'center', 0);
% Show computed text bounding box:
Screen('FrameRect', w, 0, bbox);
Screen('DrawText', w, 'Centered: Hit any key to continue.', nx, ny, [255, 0, 0, 255]);
Screen('Flip',w);
KbWait;
while KbCheck; end;
% Now vertically centered:
[nx, ny, bbox] = DrawFormattedText(w, mytext, 10, 'center', 0);
% Show computed text bounding box:
Screen('FrameRect', w, 0, bbox);
Screen('DrawText', w, 'Vertically centered: Hit any key to continue.', nx, ny, [255, 0, 0, 255]);
Screen('Flip',w);
KbWait;
while KbCheck; end;
Screen('TextSize',w, 22);
winHeight = RectHeight(Screen('Rect', w));
longtext = ['\n\nTeleprompter test: Press any key to continue.\n\n' mytext];
longtext = repmat(longtext, 1, 3);
tp=zeros(1, 2*winHeight + 1);
sc = 0;
% Render once, requesting the 'bbox' bounding box of the whole text.
% This will disable clipping and be very sloooow, so we do it only once
% to get the bounding box, and later just recycle that box:
[nx, ny, bbox] = DrawFormattedText(w, longtext, 10, 0, 0);
textHeight = RectHeight(bbox);
for yp = winHeight:-1:-textHeight
% Draw text again, this time with unlimited line length:
[nx, ny] = DrawFormattedText(w, longtext, 10, yp, 0);
Screen('FrameRect', w, 0, bbox);
sc = sc + 1;
tp(sc) = Screen('Flip', w);
if KbCheck
break;
end
end
tp = tp(1:sc);
fprintf('Average redraw duration for scrolling in msecs: %f\n', 1000 * mean(diff(tp)));
close all;
plot(1000 * diff(tp));
title('Redraw duration per scroll frame [msecs]:');
% End of demo, close window:
Screen('CloseAll');
catch
% This "catch" section executes in case of an error in the "try"
% section []
% above. Importantly, it closes the onscreen window if it's open.
Screen('CloseAll');
fclose('all');
psychrethrow(psychlasterror);
end
|
