if (FALSE) {
## 'font_example' is an example of the AmigaBitmapFontSet object:
data(font_example)
## An AmigaBitmapFont object can also be extracted from this object:
font_example_9 <- getAmigaBitmapFont(font_example, 9)
## the objects can be printed, plotted, converted to raw data or a raster:
print(font_example)
plot(font_example)
font_example_raw <- as.raw(font_example)
font_example_raster <- as.raster(font_example)
## You can also format text using the font:
formated_raster <- as.raster(font_example, text = "Foo bar", style = "bold")
plot(font_example, text = "Foo bar", style = "underlined", interpolate = F)
}
Run the code above in your browser using DataLab