Displaying 1 result from an estimated 1 matches for "berasans".
2011 Sep 14
0
pdf font example
...) )
? stopifnot( file.exists(paste(absolute.path.to.font.files,
bera.names[i], ".otf", sep="")) )
}
pdf.start <- function(pdfbasename, ...) {
? options( pdf.current=pdfbasename ) ?## we need to store the file name
? ## the first argument, the name, does not seem to be used
? berasans <- Type1Font("BeraSans", paste(absolute.path.to.font.files,
bera.names, ".afm", sep=""))
? pdf(file = paste(pdfbasename,".PDF", sep=""), family=berasans, ...)
}
pdf.end <- function(verbose =1) {
? dev.off()
? embedfonts( options("pdf.cur...