[S] colour postscript files

Mohamed Abdolell (abdolell@mshri.on.ca)
Wed, 20 May 1998 11:31:53 -0400


Hello,

I need to produce colour postscript files.

All that I have been able to produce so far are colour plots on my
monitor using the following settings in Splus ...

> X11.moe <- c("-display moe:0.0",
"-xrm 'splus*defaultFont:0'",
"-xrm 'splus*fonts:*helvetica-*-R-*-10-*
*helvetica-*-R-*-14-*'",
"-xrm 'splus*colors: white black 2 red 2 yellow
2 green 2 blue 2 white'",
"-xrm 'splus*nHalftones:8'",
"-xrm 'splus*halftonePolygon:No'",
"-xrm 'splus*halftoneImage:Yes'",
"-xrm 'splus*Font:fixed'")

> X11(X11.moe)

However, it appears that settings for the monitor are unrelated to
settings for the printer.

So I tried the following ...

#####################################################################################

> postscript(file="try.ps", colors=xgetrgb("lines"), image.colors=xgetrgb("images"), background=-1)

> par(pty="s")

> plot(sdate, sqr.p4, xlim=c(xmin, xmax), ylim=c(0, 1),
xlab="Surgery Date", ylab="Pred Probs", main="T-Status: Overall",
type="n", axes=F)

> points(sdate[tumcat.a==1], sqr.p1[tumcat.a==1], col=11)

> points(sdate[tumcat.a==4], sqr.p4[tumcat.a==4], col=4)

> axis(1, at=date.integer, labels=year.char)

> axis(2)

> legend(10500, .9, c("T1a,b", "T1c"), fill=c(11,4))

> dev.off()
#####################################################################################

All that this did was to produce greyscale output from the printer by
doing the following ...

I have looked through the ?postscript and ?ps.options help files but
remain unable to put together the necessary code to produce what I
want. I have also looked through the s-news archives and been unable to
solve my problem. Have I overlooked something in my approach?

Any help would be greatly appreciated!

Thanks in advance.

(I am using Splus, Version 3.4 Release 1 for Sun SPARC, SunOS 5.3 :
1996.)

-- 
           ,,, 
          (o o)                                       Mohamed Abdolell 
------oOO--(_)--OOo---------------------------------------------------
 Mount Sinai Hospital, Samuel Lunenfeld Research Institute
 850-600 University Ave. Toronto, Ontario, M5G 1X5, CANADA
 e-mail: abdolell@mshri.on.ca  voice: (416)586-8886 fax: (416)586-8404
-----------------------------------------------------------------------
This message was distributed by s-news@wubios.wustl.edu.  To unsubscribe
send e-mail to s-news-request@wubios.wustl.edu with the BODY of the
message:  unsubscribe s-news