function [c]=color(i)
% COLOR returns the one of 7 color (modulo) 
%
% Statistical Pattern Recognition Toolbox, Vojtech Franc, Vaclav Hlavac
% (c) Czech Technical University Prague, http://cmp.felk.cvut.cz
% Written Vojtech Franc (diploma thesis) 02.01.2000
% Modifications
% 24. 6.00 V. Hlavac, comments polished.

COLORS=['r','b','g','m','c','k','y'];
CNUM=7;

c=COLORS(mod(i-1,CNUM)+1);