The R Project SVN R

Rev

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

Rev 23074 Rev 23077
Line 18... Line 18...
18 
 
 18 
 
19 
par(pty="s")
 19 
par(pty="s")
20 
plot(c(-1,16), c(-1,16), type="n", xlab="", ylab="", xaxs="i", yaxs="i")
 20 
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)")
 21 
title("Centred chars in default char set (ISO Latin1)")
22 
grid(17, 17, lty=1)
 22 
grid(17, 17, lty=1)
23 
known <- if(.Platform$OS.type == "windows") {
 - 
 
24 
c(32:126, 145:152, 154, 155, 158:255)
 - 
 
25 
} else c(32:126, 144:152, 154, 155, 157:255)
 23 
known <- c(32:126, 144:152, 154, 155, 157:255)
26 
 
 24 
 
27 
for(i in known) {
 25 
for(i in known) {
28 
    x <- i %% 16
 26 
    x <- i %% 16
29 
    y <- i %/% 16
 27 
    y <- i %/% 16
30 
    points(x, y, pch=i)
 28 
    points(x, y, pch=i)