font_file <- system.file("fonts/spleen/spleen-8x16.hex.gz", package = "bittermelon")
font <- read_hex(font_file)
capital_r <- bm_extend(font[[str2ucp("R")]], left = 1L)
capital_r <- bm_extend(capital_r, sides = 1L, value = 2L) # add a border effect
plot(capital_r)
plot(capital_r, col = c("yellow", "blue", "red"))
crops <- farming_crops_16x16()
grapes <- crops$grapes$portrait
plot(grapes)
Run the code above in your browser using DataLab