\HeaderA{stam.rgb.colors}{Generate a Color Gradient}{stam.rgb.colors}
\keyword{internal}{stam.rgb.colors}
\begin{Description}\relax
Generates a colur gradient starting from one color given by the user and ending in 
another going through black.
\end{Description}
\begin{Usage}
\begin{verbatim}
stam.rgb.colors(n = 12, m = 1, r0 = 1, g0 = 0, b0 = 0, 
                r1 = 0, g1 = 1, b1 = 0)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{n}] Number of shades generated in the color gradient
\item[\code{m}] skewing factor. m=1 produces a linear gradient from start to black and from 
black to end. High m decreases the amount of black, low m's increase it.
\item[\code{r0}] red component of the starting color
\item[\code{g0}] green component of starting color
\item[\code{b0}] blue component of the starting color
\item[\code{r1}] red component of the ending color
\item[\code{g1}] green component of the ending color
\item[\code{b1}] blue component of the ending color
\end{ldescription}
\end{Arguments}
\begin{Value}
A charactor vector of length 2*n. Each element represents the code of an RGB color.
\end{Value}
\begin{Author}\relax
Claudio Lottaz
\end{Author}
\begin{SeeAlso}\relax
\code{\LinkA{image.stamPrediction}{image.stamPrediction}}
\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
red.to.blue <- stam.rgb.colors(10, 1, 1, 0, 0, 0, 0, 1)
fake.data <- matrix(seq(0, 1, 0.01), nrow=10, ncol=10)
image(fake.data, col=red.to.blue)
\end{ExampleCode}
\end{Examples}

