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
|
function TextToStuffColorMismatchTest
% TextToStuffColorMismatchTest - Test if text is drawn
% in the color it was requested to be drawn.
%
% In the past, this demonstrated a bug in the OSX CoreText renderer,
% as used in released PTB versions far in the past. Nowadays nobody gives
% a crap about Apples crap anymore and we use our own OS independent plugin
% text renderer by default, so this is what we test.
%
% History:
%
% 16-Jun-2015 mk Derived from code provided by user shandelman116.
% 14-Jul-2015 mk Adapt to new situation that renderer 0 == CoreText on OSX.
% 14-Nov-2021 mk Throw out a lot of pointless code for the year 2021.
% Setup
Screen('Preference', 'TextAlphaBlending', 0);
Screen('Preference', 'TextAntiAliasing', 0);
[window, wsize] = Screen('OpenWindow', 0, 0);
centerX = wsize(3)/2;
centerY = wsize(4)/2;
% Place cross hair cursor at screen center:
ShowCursor('CrossHair');
SetMouse(centerX, centerY);
Screen('TextFont', window, 'Arial');
Screen('TextSize', window, 126);
fixcross = sprintf('+');
greys = 0:15:255;
crosslines = [
-30, 30, 0 0;
0, 0, -30, 30;
];
crossLineCols = [];
crossTextCols = [];
% Drawing fixation cross as lines then as text
for grey = greys
Screen('DrawLines', window, crosslines, 5, grey, [centerX, centerY]);
Screen('Flip', window);
crossLine = Screen('GetImage', window, [], [], [], 1);
[~, ~, textbounds] = DrawFormattedText(window, fixcross, 'center', 'center', grey);
Screen('FrameRect', window, 255, textbounds);
Screen('Flip', window);
crossText = Screen('GetImage', window, [], [], [], 1);
% Compile list of the color used for each type from a center pixel
crossLineCols = [crossLineCols, crossLine(centerY, centerX)]; %#ok<*AGROW>
crossTextCols = [crossTextCols, crossText(centerY, centerX)];
end
ShowCursor('Arrow');
sca;
% Restore to standard HQ plugin text renderer 1:
Screen('Preference','TextRenderer', 1);
% Checking for TextRenderer 1
figure;
plot(crossLineCols, crossTextCols, '*-');
if ~isequal(crossLineCols, crossTextCols)
fprintf('\n\n\nDANGER WILL ROBINSON! Mismatch between requested and rendered text colors on text renderer!!!\n');
hold on;
plot((1/255:0.01:1) * 255, 255 * ((1/255:0.01:1).^(1/1.2)))
hold off;
crossTextCols %#ok<*NOPRT>
crossLineCols
end
|
