## Function to use the mouse to zoom in on plots.
## Author: Bill Dunlap <bill@STAT.WASHINGTON.EDU>
zoom <- function(fun, ...)
{
on.exit(par(oldpar))
oldpar<-par(err=-1)
fun(...)
while(TRUE) {
cat("Click mouse over corners of zoom area: ")
p<-locator(n=2)
if(is.null(p$x) || length(p$x)!=2)
break
xlim<-range(p$x)
ylim<-range(p$y)
cat("xlim=",xlim,"ylim=",ylim,"\n")
fun(...,xlim=xlim,ylim=ylim)
}
cat("Bye!\n")
}