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
|
/*
SCREENTextFont.c
AUTHORS:
Allen.Ingling@nyu.edu awi
mario.kleiner.de@gmail.com mk
PLATFORMS:
All.
HISTORY:
11/19/03 awi Wrote it.
DESCRIPTION:
Sets the text font for the specified window record.
*/
#include "Screen.h"
// If you change useString then also change the corresponding synopsis string in ScreenSynopsis.c
static char useString[] ="[oldFontName,oldFontNumber,oldTextStyle]=Screen('TextFont', windowPtr [,fontNameOrNumber][,textStyle]);";
// 1 2 3
static char synopsisString[] =
"Get/Set the font for future text draws in this window.\n"
"You can ask what the current font is, or specify the desired font by number "
"or by name (e.g. 'Helvetica'). Font numbers are not consistent from Mac to Mac, "
"and they aren't supported but silently ignored on MS-Windows and Linux, so use "
"font names for reliability and portability. Font numbers are mostly available for "
"backward compatibility to old OS-9 Psychtoolbox versions.\n"
"The font name can be a string of at most 255 characters length, e.g. 'Helvetica', "
"or a list containing one string of at most 255 characters, e.g. {'Helvetica'}. "
"The default font depends on the operating system and is selected for good readability. "
"You can query and change it via a call to Screen('Preference', 'DefaultFontName').\n"
"It's ok to request a non-existent font; this will have no effect. If you care, call "
"TextFont again to find out whether you got the font you requested.\n"
"However, if you use the FTGL font renderer, Screen('TextFont') will merely echo what\n"
"you set until you you've drawn some text, after which Screen('TextFont') will correctly\n"
"return the font family name of the font it's using. See FontDemo.\n"
"On OSX there are some exotic fonts which can only be selected if you specify them by either "
"their font number, or by simultaneously selecting their exact font family name and text style. "
"To support those snow flakes you can specify the optional 'textStyle' argument together with "
"the font name.\n"
"On Linux - and usually OSX - you can either provide a font name - PTB will select the closest matching available "
"font for that name, size and style requirements - or you can start the fontName with a dash '-' "
"followed by a full FontConfig font specifier string which encodes all kinds of properties. The "
"'fc-list' command under Linux allows you to query all available fonts.\n"
"Depending on the selected text renderer, Linux can be picky about the supplied fonts - "
"if you request a non-existent font with the legacy text renderer, the DrawText command will fail "
"with an error message. However, with the default FTGL text renderer on Linux, Linux will be "
"lenient in its font selection. If you call Screen('TextFont') after you've drawn some text, the "
"command will return the font family name of the true selected font. ";
static char seeAlsoString[] = "";
PsychError SCREENTextFont(void)
{
psych_bool doSetByName, doSetByNumber;
PsychWindowRecordType *windowRecord;
#if PSYCH_SYSTEM == PSYCH_OSX
psych_bool foundFont = 0;
PsychFontStructType *fontRecord;
#endif
int oldTextFontNumber, inputTextFontNumber;
char *oldTextFontName, *inputTextFontName;
int oldTextStyle, newTextStyle;
//all subfunctions should have these two lines.
PsychPushHelp(useString, synopsisString, seeAlsoString);
if(PsychIsGiveHelp()){PsychGiveHelp();return(PsychError_none);};
//check for valid number of arguments
PsychErrorExit(PsychRequireNumInputArgs(1));
PsychErrorExit(PsychCapNumInputArgs(3));
PsychErrorExit(PsychCapNumOutputArgs(3));
//Get the window record
PsychAllocInWindowRecordArg(kPsychUseDefaultArgPosition, TRUE, &windowRecord);
//Save the old text font value and return it.
oldTextFontNumber=windowRecord->textAttributes.textFontNumber;
PsychCopyOutDoubleArg(2, FALSE, (double)oldTextFontNumber);
oldTextFontName=(char*) windowRecord->textAttributes.textFontName;
PsychCopyOutCharArg(1, FALSE, oldTextFontName);
oldTextStyle = windowRecord->textAttributes.textStyle;
PsychCopyOutDoubleArg(3, FALSE, (double) oldTextStyle);
//Fetch and set the new font if specified by name or number
PsychCheckInputArgType(2, kPsychArgOptional, PsychArgType_double | PsychArgType_char); //if the argument is there check that it is the right type.
doSetByNumber= PsychCopyInIntegerArg(2, kPsychArgAnything, &inputTextFontNumber);
doSetByName= PsychAllocInCharArg(2, kPsychArgAnything, &inputTextFontName);
#if PSYCH_SYSTEM == PSYCH_OSX
if(doSetByNumber) {
foundFont=PsychGetFontRecordFromFontNumber(inputTextFontNumber, &fontRecord);
}
if(doSetByName) {
if (PsychCopyInIntegerArg(3, FALSE, &newTextStyle)) windowRecord->textAttributes.textStyle = newTextStyle;
foundFont=PsychGetFontRecordFromFontFamilyNameAndFontStyle(inputTextFontName, windowRecord->textAttributes.textStyle, &fontRecord);
}
if(foundFont) {
strncpy((char*) windowRecord->textAttributes.textFontName, (char*) fontRecord->fontFMFamilyName, 255);
windowRecord->textAttributes.textFontNumber = fontRecord->fontNumber;
windowRecord->textAttributes.textStyle = fontRecord->fontFMStyle;
}
else {
// Font not found. Is this textrenderer > 0 with a font given by name?
if (doSetByName && (PsychPrefStateGet_TextRenderer() > 0)) {
// Yes: Must be a special font specifier string for the renderer plugin. Just assign it directly:
strncpy((char*) windowRecord->textAttributes.textFontName, inputTextFontName, 255);
// Don't have a valid fontNumber: Just assign a zero...
windowRecord->textAttributes.textFontNumber = 0;
}
else {
// Restore old text style setting:
windowRecord->textAttributes.textStyle = oldTextStyle;
}
}
return(PsychError_none);
#else
// Special case for MS-Windows and Linux:
if(doSetByNumber) printf("PTB-WARNING: Sorry, selecting font by number in Screen('TextFont') is not yet supported on Windows or Linux. Command ignored.\n");
if(doSetByName && (strncmp(windowRecord->textAttributes.textFontName, inputTextFontName, 255 )!=0)) {
strncpy(windowRecord->textAttributes.textFontName, inputTextFontName, 255);
windowRecord->textAttributes.textFontNumber= 0;
// Set the rebuild flag:
windowRecord->textAttributes.needsRebuild=TRUE;
}
// New and different text style provided?
if (PsychCopyInIntegerArg(3, FALSE, &newTextStyle) && (windowRecord->textAttributes.textStyle != newTextStyle)) {
windowRecord->textAttributes.textStyle = newTextStyle;
// Set the rebuild flag:
windowRecord->textAttributes.needsRebuild=TRUE;
}
return(PsychError_none);
#endif
}
|
