The R Project SVN R

Rev

Rev 30819 | Rev 33335 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 30819 Rev 32436
Line 2... Line 2...
2 
 
 2 
 
3 
postscript("reg-plot.ps", paper="a4", horizontal=TRUE,
 3 
postscript("reg-plot.ps", paper="a4", horizontal=TRUE,
4 
           encoding ="ISOLatin1.enc")
 4 
           encoding ="ISOLatin1.enc")
5 
## since we supply the font metrics, the results depend only on
 5 
## since we supply the font metrics, the results depend only on
6 
## the encoding used: Windows is different from Unix by default.
 6 
## the encoding used: Windows is different from Unix by default.
- 
 
 7 
## As from 2.1.0 we only test genuine Latin-1 chars: Adobe has dotlessi
- 
 
 8 
## and accents at 144:152, 154, 155, 157:159, but Unicode does not.
7 
 
 9 
 
8 
options(warn = 1)# print them as they occur
 10 
options(warn = 1)# print them as they occur
9 
 
 11 
 
10 
plot(0) # this should remain constant
 12 
plot(0) # this should remain constant
11 
str(par(c("usr","xaxp","yaxp")))
 13 
str(par(c("usr","xaxp","yaxp")))
Line 18... Line 20...
18 
 
 20 
 
19 
par(pty="s")
 21 
par(pty="s")
20 
plot(c(-1,16), c(-1,16), type="n", xlab="", ylab="", xaxs="i", yaxs="i")
 22 
plot(c(-1,16), c(-1,16), type="n", xlab="", ylab="", xaxs="i", yaxs="i")
21 
title("Centred chars in default char set (ISO Latin1)")
 23 
title("Centred chars in default char set (ISO Latin1)")
22 
grid(17, 17, lty=1)
 24 
grid(17, 17, lty=1)
23 
known <- c(32:126, 144:152, 154, 155, 157:255)
 25 
known <- c(32:126, 160:255)
24 
 
 26 
 
25 
for(i in known) {
 27 
for(i in known) {
26 
    x <- i %% 16
 28 
    x <- i %% 16
27 
    y <- i %/% 16
 29 
    y <- i %/% 16
28 
    points(x, y, pch=i)
 30 
    points(x, y, pch=i)