if (FALSE) {
data(font_example)
## Let's store the example font first:
write.AmigaBitmapFontSet(font_example, tempdir())
## Now read a specific subset from the font files:
font.sub <- read.AmigaBitmapFont(file.path(tempdir(), "AmigaFFH", "9"))
## The same can be done with a virtual Amiga disk. The following
## examples require the 'adfExplorer' package.
font.disk <- adfExplorer::blank.amigaDOSDisk("font.disk")
font.disk <- adfExplorer::dir.create.adf(font.disk, "FONTS")
font.disk <- write.AmigaBitmapFontSet(font_example, "DF0:FONTS", font.disk)
font.sub <- read.AmigaBitmapFont("DF0:FONTS/AmigaFFH/9", font.disk)
}
Run the code above in your browser using DataLab