/usr/share/psychtoolbox-3/PsychDemos/DrawFormattedTextDemo.m is in psychtoolbox-3-common 3.0.11.20131230.dfsg1-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | % 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: PsychDemos, 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 lcount < 48
mytext = [mytext tl]; %#ok<*AGROW>
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);
KbStrokeWait;
% 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);
KbStrokeWait;
% Draw text again, this time with unlimited line length and
% right-aligned, and with reversed text direction right-to-left:
[nx, ny, bbox] = DrawFormattedText(w, mytext, 'right', 10, 0, [], [], [], [], 1, bbox);
% Show computed text bounding box:
Screen('FrameRect', w, 0, bbox);
Screen('DrawText', w, 'Top-Right aligned, reversed text direction, width unconstrained: Hit any key to continue.', bbox(RectLeft), ny, [255, 0, 0, 255]);
Screen('Flip',w);
KbStrokeWait;
[nx, ny, bbox] = DrawFormattedText(w, mytext, 'right', 10, 0, [], [], [], [], 0, bbox);
% Show computed text bounding box:
Screen('FrameRect', w, 0, bbox);
Screen('DrawText', w, 'Top-Right aligned, width unconstrained: Hit any key to continue.', bbox(RectLeft), ny, [255, 0, 0, 255]);
Screen('Flip',w);
KbStrokeWait;
% 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);
KbStrokeWait;
% 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);
KbStrokeWait;
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 %#ok<*CTCH>
% 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
|