From p.b.pynsent at bham.ac.uk  Thu Jul 31 19:08:44 2003
From: p.b.pynsent at bham.ac.uk (p.b.pynsent@bham.ac.uk)
Date: Thu Jul 31 18:20:09 2003
Subject: [Rd] Mac OS 10 (not X11) failure to rotate symbols (PR#3602)
Message-ID: <200307311608.h6VG8iJH009294@pubhealth.ku.dk>


In the following code the arrow symbols do not rotate with the text on 
the Mac OS window,  however the do rotate on X11 port on Mac OS.
(R version 1.71)
x <- c(0,10.)
y <- c(0,10.)
offset <- 3
centre <- 5
plot(x,y, xlim=range(x), ylim=range(y),type="n", xlab="",ylab="", 
main="",xaxt="n",yaxt="n")
for (i in (seq(0, 340, by=45))	)
	{
	px <- centre + cos((i*pi)/180) * offset
	py <- centre + sin((i*pi)/180) * offset
	text(px, py,
	labels=substitute(that%->%phantom(1),list(that=i)), pos=1, col="blue", 
cex=0.7, srt=i)
	text(px, py,
	labels=substitute(that%<-%phantom(1),list(that=i)), pos=3, 
col="blue",cex=0.7,srt=i)
	lines(px, py, type="p", col="black") #just for reference
	}

Many thanks.
Paul


Dr. P. B. Pynsent,
Research and Teaching Centre,
Royal Orthopaedic Hospital,
Birmingham, B31 2AP, U.K.


[Rd] Mac OS 10 (not X11) failure to rotate symbols (PR#3602)
p.b.pynsent@bham.ac.uk