"partial.rainbow" <-
function (start=0, end=.35) 
{
	rainarg <- formals(rainbow)
	rainarg$start <- start
	rainarg$end <- end
	ans <- rainbow
	formals(ans) <- rainarg
	ans
}