R-alpha: R-0.50.b6: bug in graphics demo

[Kurt Hornik]

The line
  contour(volcano, x, y, l, col = "yellow", lty = "solid", add = TRUE)
needs to be changed to
  contour(x, y, volcano, col = "yellow", lty = "solid", add = TRUE)

A patch is appended below.

-k

*** demos/graphics/graphics.orig	Thu Apr 17 11:02:39 1997
--- demos/graphics/graphics	Thu Apr 17 11:03:08 1997
*************** plot(numeric(0), numeric(0), NULL,
*** 129,135 ****
  	type="n", ann=FALSE)
  usr <- par("usr")
  rect(usr[1], usr[3], usr[2], usr[4], col="green3")
! contour(volcano, x, y, l, col="yellow", lty="solid", add=TRUE)
  box()
  title("A Topographic Map of Maunga Whau",font=4)
  title(xlab="Meters North", ylab="Meters West", font=3)
--- 129,135 ----
  	type="n", ann=FALSE)
  usr <- par("usr")
  rect(usr[1], usr[3], usr[2], usr[4], col="green3")
! contour(x, y, volcano, col="yellow", lty="solid", add=TRUE)
  box()
  title("A Topographic Map of Maunga Whau",font=4)
  title(xlab="Meters North", ylab="Meters West", font=3)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
r-devel mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-devel-request@stat.math.ethz.ch
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-