R devel - Aug 2000 - Multiple pages with postscript() (PR#635)

Version:
 platform = i686-pc-linux-gnu
 arch = i686
 os = linux-gnu
 system = i686, linux-gnu
 status = 
 major = 1
 minor = 1.0
 year = 2000
 month = June
 day = 15
 language = R

Search Path:
 .GlobalEnv, Autoloads, package:base

The function will produce a three page file, but only the first one
has the lwd parameter set.  The other pages have reverted to lwd = 1.

I've tried setting the lwd at different places, but the result is
always the same.  The same code does not have a problem in Splus 3.4.




test.device <-
function()
{
#  looks like the problem is in the postscript device
  
       postscript(file = paste("Test.ps"), horizontal = F)
       on.exit(dev.off())
       par(mai = rep(1, 4), lwd = 4)    
       for(j in 1:3) {
       plot(1:10, 11:20)
       title(paste("Testing  .... Page", j), line = -1, cex = 1.5)
    }
}

best


-- 
Patrick Connolly
HortResearch
Mt Albert
Auckland
New Zealand 
Ph: +64-9 815 4200 x 7188
~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~
I have the world's largest collection of seashells. I keep it on all
the beaches of the world ... Perhaps you've seen it.  ---Steven Wright
~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~.~

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

> 
> The function will produce a three page file, but only the first one
> has the lwd parameter set.  The other pages have reverted to lwd = 1.
> 
> I've tried setting the lwd at different places, but the result is
> always the same.  The same code does not have a problem in Splus 3.4.
> 
> 

Hi Patrick.
Thanks for the bug report. I took a quick look at the potential cause.

Here is a very simple workaround (i.e. I haven't investigated the other
side-effects):

diff -r1.28 devPS.c
1033c1033
<     if (pd->lty != newlty || pd->lwd != newlwd) {
---
>     if (pd->lty != newlty || pd->lwd != newlwd || 1) {  
In other words, change the if() condition in the routine SetLineStyle()
in the file src/main/devPS.c to be true, regardless of whether the
values are the same or not. This appears to give the desired result.

Hopefully we will determine the appropriate reset configuration
as page changes occur. Anyone.... ?

D.

-- 
_______________________________________________________________

Duncan Temple Lang                duncan@research.bell-labs.com
Bell Labs, Lucent Technologies    office: (908)582-3217
700 Mountain Avenue, Room 2C-259  fax:    (908)582-3340
Murray Hill, NJ  07974-2070       
         http://cm.bell-labs.com/stat/duncan

      "Languages shape the way we think, and determine what 
       we can think about."        
                                      Benjamin Whorf
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._