if (FALSE) {
## obtain a bitmap font set:
data(font_example)
## write the font set to their files. The file name
## is extracted from the font object, so you only have
## to provide the path:
write.AmigaBitmapFont(font_example, temp.dir())
## extract a font bitmap:
font <- getAmigaBitmapFont(font_example, 9)
## and write it to the temp dir:
write.AmigaBitmapFont(font, file.path(temp.dir(), "9"))
## 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)
}
Run the code above in your browser using DataLab