varvid=function(varvivek, mitu){

punane=rep(NA,mitu); roheline=rep(NA,mitu); sinine=rep(NA,mitu)
n=length(varvivek); 
if (mitu==1) return(varvivek[1])

algusjaak=0; m0=1
samm=(n-1)/(mitu-1)-1e-12

for (i in 1:(n-1)){

if (algusjaak>1) { (algusjaak=algusjaak-1)} else {
m=as.integer((1-algusjaak)/samm)+1
loppjaak = (1-algusjaak) %% samm

varv1=col2rgb(varvivek[i]); varv2=col2rgb(varvivek[i+1])
suund=varv2-varv1
algusVarv=varv1+algusjaak*suund
loppVarv=varv2-loppjaak*suund

punane[m0:(m0+m-1)] = seq(algusVarv[1], loppVarv[1], length=m)
roheline[m0:(m0+m-1)] = seq(algusVarv[2], loppVarv[2], length=m)
sinine[m0:(m0+m-1)] = seq(algusVarv[3], loppVarv[3], length=m)

algusjaak = samm-loppjaak
m0=m0+m

} # if
} # for

return(rgb(punane/255, roheline/255, sinine/255))

} # function