/usr/share/psychtoolbox-3/PsychDemos/FontDemo.m is in psychtoolbox-3-common 3.0.9+svn2579.dfsg1-1.
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 | function FontDemo
% FontDemo
%
% Shows how to get the font you want, when you're not
% sure what's available, and only certain fonts will do. This
% is a portable solution to the problem of running on various
% computers and Operating Systems that offer various fonts.
%
% In the FontDemo program we call CHAR to convert a one-string list,
% e.g. {'Arial'}, to a string, e.g. 'Arial'.
% 5/23/02 dgp Wrote it.
% 10/11/06 dhb Turn off warnings, use max screen.
% 10/14/2006 dhb Save and restore altered prefs, more extensive comments for them
try
% Screen is able to do a lot of configuration and performance checks on
% open, and will print out a fair amount of detailed information when
% it does. These commands supress that checking behavior and just let
% the demo go straight into action. See ScreenTest for an example of
% how to do detailed checking.
oldVisualDebugLevel = Screen('Preference', 'VisualDebugLevel', 3);
oldSupressAllWarnings = Screen('Preference', 'SuppressAllWarnings', 1);
% Find out how many screens and use largest screen number.
whichScreen = max(Screen('Screens'));
% Open a new window.
window = Screen('OpenWindow', whichScreen);
fprintf('New window opened with font set to %s.\n', Screen('TextFont', window));
for font = {'Arial', 'Geneva', 'Helvetica', 'sans-serif'}
% Set font
Screen('TextFont', window, char(font)); % Win: currently needs the call to "char"
% Check if the screen's font has changed to the one we requested.
match = streq(font, Screen('TextFont', window));
if match
fprintf('Successfully set font to %s.\n', Screen('TextFont', window));
break;
end
end
if ~match
error('We couldn''t find any of the fonts we wanted.');
fprintf('The window font is %s.\n', Screen('TextFont', window));
end
Screen('Close', window);
Screen('Preference', 'VisualDebugLevel', oldVisualDebugLevel);
Screen('Preference', 'SuppressAllWarnings', oldSupressAllWarnings);
catch
Screen('CloseAll');
Screen('Preference', 'VisualDebugLevel', oldVisualDebugLevel);
Screen('Preference', 'SuppressAllWarnings', oldSupressAllWarnings);
psychrethrow(psychlasterror);
end
|