font_file <- system.file("fonts/spleen/spleen-8x16.hex.gz", package = "bittermelon")
font <- read_hex(font_file)
is_bm_font(font)
# number of characters in font
length(font)
# print out "R"
R_glyph <- font[[str2ucp("R")]]
print(R_glyph)
Run the code above in your browser using DataLab