annotate util/sparco utils/scalarToRGB.m @ 247:ecce33192fcc tip

Added tag ver_2.1 for changeset cef4500b936f
author luisf <luis.figueira@eecs.qmul.ac.uk>
date Wed, 31 Oct 2012 12:24:44 +0000
parents 62f20b91d870
children
rev   line source
ivan@77 1 function s = scalarToRGB(x,colors)
ivan@77 2 % input values are assumed to lie between 0 and 1
ivan@77 3
ivan@77 4 % Copyright 2008, Ewout van den Berg and Michael P. Friedlander
ivan@77 5 % http://www.cs.ubc.ca/labs/scl/sparco
ivan@77 6 % $Id: scalarToRGB.m 1040 2008-06-26 20:29:02Z ewout78 $
ivan@77 7
ivan@77 8 l = size(colors,1);
ivan@77 9 m = size(x,1);
ivan@77 10 n = size(x,2);
ivan@77 11 s = zeros(m,n,3);
ivan@77 12
ivan@77 13 for i=1:m
ivan@77 14 for j=1:n
ivan@77 15 idx = max(1,min(l,1+floor((l-1) * x(i,j))));
ivan@77 16 s(i,j,:) = colors(idx,:);
ivan@77 17 end
ivan@77 18 end