R-alpha: R 0.50.a1: small patches for graphics and image demo

[Kurt Hornik]

Applying the following patches closes the following task (part 1 was
already taken care of).

TASK:   New Problems
STATUS: Open
FROM:   <Kurt.Hornik@ci.tuwien.ac.at>
        New minor remarks:
        * The documentation for `image' still has the old order z, x, y.
        * Perhaps one should add `par(ask = T)' in the image demo?
        * Perhaps one should save the original value of par() at the
	beginning of the graphics demo, and restore that at its end
	(s.t. typically asking is turned off again).

Thanks,
-k

************************************************************************
*** demos/graphics/graphics.orig	Sat Jul 26 10:40:03 1997
--- demos/graphics/graphics	Sat Jul 26 10:37:50 1997
***************
*** 1,5 ****
  ###-*- R -*-
! par(ask = interactive() && .Device == "X11")	# For source
  
  # Here is some code which illustrates some of the differences between
  # R and S graphics capabilities.  Note that colors are generally specified
--- 1,6 ----
  ###-*- R -*-
! 
! opar <- par(ask = interactive() && .Device == "X11")	# For source
  
  # Here is some code which illustrates some of the differences between
  # R and S graphics capabilities.  Note that colors are generally specified
*************** data("volcano")
*** 115,121 ****
  x <- 10*1:nrow(volcano)
  y <- 10*1:ncol(volcano)
  l <- pretty(range(volcano), 10)
! opar <- par(bg="lightcyan")
  pin <- par("pin")
  xdelta <- diff(range(x))
  ydelta <- diff(range(y))
--- 116,122 ----
  x <- 10*1:nrow(volcano)
  y <- 10*1:ncol(volcano)
  l <- pretty(range(volcano), 10)
! par(bg="lightcyan")
  pin <- par("pin")
  xdelta <- diff(range(x))
  ydelta <- diff(range(y))
*************** mtext("10 Meter Contour Spacing", side=3
*** 141,144 ****
--- 142,146 ----
  par(bg="cornsilk")
  data(quakes)
  coplot(long~lat|depth, data=quakes, pch=21, bg="green3")
+ 
  par(opar)
*** demos/graphics/image.orig	Sat Jul 26 10:40:07 1997
--- demos/graphics/image	Sat Jul 26 10:41:46 1997
***************
*** 1,4 ****
--- 1,7 ----
  #### -*- R -*-
+ 
+ opar <- par(ask = interactive() && .Device == "X11") # For source
+ 
  data(volcano)
  x <- 10*(1:nrow(volcano))
  y <- 10*(1:ncol(volcano))
*************** axis(2, at=seq(100, 600, by=100))
*** 30,32 ****
--- 33,36 ----
  box()
  title(main="Maunga Whau Volcano", font.main=4)
  
+ par(opar)
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
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
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-