\Header{dev.xxx}{Control Multiple Devices}
\alias{dev.cur}{dev.xxx}
\alias{dev.list}{dev.xxx}
\alias{dev.next}{dev.xxx}
\alias{dev.prev}{dev.xxx}
\alias{dev.off}{dev.xxx}
\alias{dev.set}{dev.xxx}
\alias{.Device}{dev.xxx}
\alias{.Devices}{dev.xxx}
\alias{graphics.off}{dev.xxx}
\keyword{device}{dev.xxx}
\keyword{iplot}{dev.xxx}
\begin{Usage}
\begin{verbatim}
dev.cur()
dev.list()
dev.next(which = dev.cur())
dev.prev(which = dev.cur())
dev.off(which = dev.cur())
dev.set(which = dev.next())
graphics.off()
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\texttt{which}] An integer specifying a device number
\end{ldescription}
\end{Arguments}
\begin{Description}
These functions provide control over multiple graphics devices.

Only one device is the \emph{active} device.  This is the device in
which all graphics operations occur.

Devices are associated with a name (e.g., "X11"  or "postscript") and a
number;  the "null device" is always device 1.

\texttt{dev.off} shuts down the specified (by default the current) device.
\texttt{graphics.off()} shuts down all open graphics devices.

\texttt{dev.set} makes the specified device the active device.

A list of device names is stored in \texttt{.Devices}.
The name of the active device is stored in \texttt{.Device}.\end{Description}
\begin{Value}
\texttt{dev.cur} returns the number and name of the active device.

\texttt{dev.list} returns the numbers and names of all devices.

\texttt{dev.next} returns the number and name of the next device in the
list of devices.

\texttt{dev.prev} returns the number and name of the previous device in
the list of devices.

\texttt{dev.off} returns the name and number of the new active device
(after the specified device has been shut down).

\texttt{dev.set} returns the name and number of the new active device.\end{Value}
\begin{SeeAlso}
\texttt{\Link{Devices}}, such as \texttt{\Link{postscript}}, etc;
\texttt{\Link{graphics.off}} for closing all devices;
\texttt{\Link{layout}} and its links for setting up plotting regions
on the current device.\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}

x11()
plot(1:10)
x11()
plot(rnorm(10))
dev.set(dev.prev())
abline(0,1)# through the 1:10 points
dev.set(dev.next())
abline(h=0, col="gray")# for the residual plot
dev.set(dev.prev())
dev.off(); dev.off()#- close the two X devices

\end{ExampleCode}
\end{Examples}

