## 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.AmigaBitmapFontSet(font_example, tempdir())
## extract a font bitmap:
font <- getAmigaBitmapFont(font_example, 9)
## and write it to the temp dir:
write.AmigaBitmapFont(font, file.path(tempdir(), "9"))
## The following examples require the 'adfExplorer' package:
if (requireNamespace("adfExplorer")) {
library("adfExplorer")
virtual_disk_file <- tempfile(fileext = ".adf") |>
create_adf_device(write_protected = FALSE) |>
prepare_adf_device("font_disk") |>
make_adf_dir("FONTS")
dest <- virtual_path(virtual_disk_file, "DF0:FONTS")
write.AmigaBitmapFontSet(font_example, dest)
close(virtual_disk_file)
}
Run the code above in your browser using DataLab