# Test full Adobe Symbol font

AdobeSymTest <- function() {
    pushViewport(plotViewport(c(1, 3, 3, 1)))
    pushViewport(viewport(layout=grid.layout(14, 16)))
    for (i in 1:14) {
        for (j in 1:16) {
            pushViewport(viewport(layout.pos.col=j,
                                  layout.pos.row=i))
            if (j == 1) {
                rowname <- (i + 1)*16
                class(rowname) <- "hexmode"
                grid.text(rowname, x=unit(-0.5, "lines"), just="right")
            }
            if (i == 1) {
                colname <- j - 1
                class(colname) <- "hexmode"
                grid.text(colname, y=unit(1, "npc") + unit(.5, "lines"),
                          just="bottom")
            }
            grid.rect()
            char <- (i + 1)*16 + (j - 1) 
            class(char) <- "octmode"
            eval(parse(text=paste("grid.text(\"\\", char, "\", gp=gpar(fontface=5))", sep="")))
            popViewport()
        }
    }
    popViewport(2)
}

# grid.newpage()
AdobeSymTest()

pdf("AdobeSym.pdf", width=6, height=4)
AdobeSymTest()
dev.off()

CMfull <- Type1Font("ComputerModern",
                     c("cm-lgc/fonts/afm/public/cm-lgc/fcmr8a.afm",
                       "cm-lgc/fonts/afm/public/cm-lgc/fcmb8a.afm",
                       "cm-lgc/fonts/afm/public/cm-lgc/fcmri8a.afm",
                       "cm-lgc/fonts/afm/public/cm-lgc/fcmbi8a.afm",
                       "cmfull/cmsyase.afm")) 
pdfFonts(CMfull=CMfull)
pdf("AdobeSymCM.pdf", family="CMfull", width=6, height=4)
AdobeSymTest()
dev.off()