idamnjanovic@60: function s = scalarToRGB(x,colors)
idamnjanovic@60: % input values are assumed to lie between 0 and 1
idamnjanovic@60: 
idamnjanovic@60: %   Copyright 2008, Ewout van den Berg and Michael P. Friedlander
idamnjanovic@60: %   http://www.cs.ubc.ca/labs/scl/sparco
idamnjanovic@60: %   $Id: scalarToRGB.m 1040 2008-06-26 20:29:02Z ewout78 $
idamnjanovic@60: 
idamnjanovic@60: l  = size(colors,1);
idamnjanovic@60: m  = size(x,1);
idamnjanovic@60: n  = size(x,2);
idamnjanovic@60: s  = zeros(m,n,3);
idamnjanovic@60: 
idamnjanovic@60: for i=1:m
idamnjanovic@60:   for j=1:n
idamnjanovic@60:      idx = max(1,min(l,1+floor((l-1) * x(i,j))));
idamnjanovic@60:      s(i,j,:) = colors(idx,:);
idamnjanovic@60:   end
idamnjanovic@60: end