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
|
% MonoImageToSRGBTest
%
% Test that our litte routine that converts a monochrome image to a
% color image works about right.
%
% 6/15/11 dhb, ms Wrote it.
%% Clear
clear; close all;
%% Set chromaticity. This
% basically sets the "tint' of
% the produced image.
xy = [0.3 0.35]';
%% Read in a monochrome test image
testImageName = [PsychtoolboxRoot '/PsychDemos/konijntjes1024x768gray.jpg'];
if (~exist(testImageName,'file'))
error('Someone removed the test image from the Psychtoolbox. Find a new one.');
end
testImage = double(imread(testImageName));
%% Call our routine
rgbImage = MonoImageToSRGB(testImage,xy);
%% Display
figure;
subplot(1,2,1);
imshow(testImage/max(testImage(:)));
subplot(1,2,2);
imshow(rgbImage);
|
