samer@4: function X=bitmap(varargin), X=full(sbitmap(varargin{:}));
samer@4: % bitmap - turn sequence of integers into binary bitmap
samer@4: %
samer@4: % bitmap ::
samer@4: %    Y:[[1,L]->[K]] ~'sequence of L natural numbers in 1..K',
samer@4: %    K:natural      ~'height of array to return'
samer@4: % -> X:[[K,L]->0|1] ~'X(i,j)=1 if Y(j)=i'.
samer@4: %
samer@4: % See also SBITMAP