[R] bug in xfig()?

[Agustin Lobo]

I'm using (Linux version) xfig() within a function
and then simple matplot() and matline() plots.
Although I do not define any bg or fg default color,
sometimes all lines in the final fig file are green.

The same code works as (I) expected if I use
x11() or pdf(). 

This is what I'm doing:
I open 2 devs:
	    xfig()
	    dev.set(2)
	    layout(mat1)
	    xfig()
	    dev.set(3)
	    layout(mat)

And then use matplot and matline() several times
switching between devices with dev(3) and dev(4).
For example:

1.

   	modelo <- lm(y[,i] ~ -1+ x[,1])
		dev.set(2)
		plot(modelo)
		title(paste("Degree 1 model:",nombre),outer=T)
		dev.set(3)
		matplot(1:36,y[,i],pch=20,ylab="ND(nir,red)",xlab="10-day
period")
		matlines(1:36,modelo$fitted.values)
		title(paste("Polynomial model:",nombre))

Well, the fig file from device 3 is a graphic with black lines over white
bg, but the one from 
device 2 is green lines over white bg.

2. If I define col="red" in the matplot for
device 3, then the graphic that I get has the red line (as expected),
but green axes and labels. All lines plotted with matlines on the
same graphic are also green. Instead, the fig file from device 2 is
now black over white!

3. Finally, if I use the fg=1 option,
            xfig(fg=1)   
            dev.set(2)
            layout(mat1)
            xfig(fg=1)
            dev.set(3)
            layout(mat)

The behaviour is the reverse of the first example
and get 2 warnings:

Warning messages:
1: `mode(fg)' differs between new and previous!
         ==> NOT changing  `fg' in: check.options(new = new, name.opt =
".PostScript.Options", rese t = FALSE,
2: `mode(fg)' differs between new and previous!
         ==> NOT changing  `fg' in: check.options(new = new, name.opt =
".PostScript.Options", rese t = FALSE,

Should I fill a bug report or am I doing something wrong?

Thanks

Dr. Agustin Lobo
Instituto de Ciencias de la Tierra (CSIC)
Lluis Sole Sabaris s/n
08028 Barcelona SPAIN
tel 34 93409 5410
fax 34 93411 0012
alobo at ija.csic.es



-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help 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-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._