annotate util/sparco utils/scalarToRGB.m @ 77:62f20b91d870

add routines from sparco problems privite folder to {root}\util some changes to ksvd vs rlsdla image denoising example
author Ivan <ivan.damnjanovic@eecs.qmul.ac.uk>
date Fri, 25 Mar 2011 14:01:50 +0000
parents
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