97 lines
3.0 KiB
R
97 lines
3.0 KiB
R
### Tests of non-Latin-1 plotting in PDF with URW fonts
|
||
## Derived from encodings2.R
|
||
|
||
### Test original URW fonts.
|
||
|
||
## These have good coverage except KOI8-[RU] (0x80 to 0xLBF are missing)
|
||
## but no metric info, not even widths for most Greek glyphs.
|
||
|
||
options(warn = 1L)
|
||
|
||
### only do this in a UTF-8 locale
|
||
if (!l10n_info()[["UTF-8"]]) {
|
||
warning("URWfonts.R requires a UTF-8 locale")
|
||
q("no")
|
||
}
|
||
musl <- grepl("musl", R.version$os)
|
||
|
||
do_one <-function(name, encoding, all = FALSE)
|
||
{
|
||
par(pty="s")
|
||
plot(c(-1,16), c(-1,16), type="n", xlab="", ylab="", xaxs="i", yaxs="i")
|
||
title(paste("Centred chars in", name))
|
||
grid(17, 17, lty=1)
|
||
known <- if(all) c(32:126, 128:255) else c(32:126, 160:255)
|
||
x <- rawToChar(as.raw(known), TRUE)
|
||
z <- rep(NA_character_, 256)
|
||
z[known] <- iconv(x, encoding, "UTF-8")
|
||
|
||
for(i in known) {
|
||
x <- i %% 16
|
||
y <- i %/% 16
|
||
points(x, y, pch = z[i])
|
||
}
|
||
par(pty="m")
|
||
}
|
||
|
||
pdfenc <- c("ISOLatin1", "ISOLatin2", "ISOLatin7", "ISOLatin9",
|
||
"Greek", "Cyrillic", "KOI8-R", "KOI8-U",
|
||
"WinAnsi", "CP1250", "CP1251", "CP1253", "CP1257")
|
||
if(musl) {
|
||
enc <- c("latin1", "iso88592", "iso885913", "iso885915",
|
||
"iso88597", "iso88595", "KOI8-R", "KOI8-U",
|
||
"CP1252", "CP1250", "CP1251", "CP1253", "CP1257")
|
||
} else {
|
||
enc <- c("latin1", "latin2", "iso-8859-13", "latin-9",
|
||
"iso-8859-7", "iso-8859-5", "KOI8-R", "KOI8-U",
|
||
"CP1252", "CP1250", "CP1251", "CP1253", "CP1257")
|
||
}
|
||
|
||
for(i in seq_along(pdfenc)) {
|
||
message("\ntesting ", pdfenc[i])
|
||
ff <- paste0("URW-", pdfenc[i], ".pdf")
|
||
f <- tempfile(fileext = ".pdf")
|
||
## encoding may not work (e.g. latin2 did not in musl), so use try()
|
||
res <- try(pdf(f, encoding = pdfenc[i], width = 9, height = 9,
|
||
family = "NimbusSan"))
|
||
if(!inherits(res, "try-error")) {
|
||
## and this may not work either
|
||
try(do_one(pdfenc[i], enc[i], i >= 7))
|
||
dev.off()
|
||
## needs ghostscript
|
||
try(embedFonts(f, , ff))
|
||
unlink(f)
|
||
}
|
||
}
|
||
|
||
## and repeat for URW 2.0 fonts
|
||
|
||
## These have metrix info for Greek glyphs, but a few widths missing
|
||
## and a few Greek glyphs (drachma, Omega, mu, sigma1) are not
|
||
## renedered or not centered. In part this is because the afms do not
|
||
## contain data for these.
|
||
|
||
## <FIXME>
|
||
## With c86124 this causes make check-devel to fail if Ghostscript is
|
||
## not found.
|
||
## ## follow embedFonts
|
||
## if (!nzchar(tools::find_gs_cmd()))
|
||
## stop("GhostScript is required and was not found")
|
||
## </FIXME>
|
||
|
||
for(i in seq_along(pdfenc)) {
|
||
message("\ntesting ", pdfenc[i])
|
||
ff <- paste0("URW2-", pdfenc[i], ".pdf")
|
||
f <- tempfile(fileext = ".pdf")
|
||
## encoding may not work (e.g. latin2 did not in musl), so use try()
|
||
res <- try(pdf(f, encoding = pdfenc[i], width = 9, height = 9,
|
||
family = "URW2Helvetica"))
|
||
if(!inherits(res, "try-error")) {
|
||
## and this may not work either
|
||
try(do_one(pdfenc[i], enc[i], i >= 7))
|
||
dev.off()
|
||
try(embedFonts(f, , ff))
|
||
unlink(f)
|
||
}
|
||
}
|