font_file <- system.file("fonts/spleen/spleen-8x16.hex.gz", package = "bittermelon")
font <- read_hex(font_file)
capital_r <- font[[str2ucp("R")]]
print(capital_r)
print(bm_expand(capital_r, 2L),
px = px_ascii)
print(bm_expand(capital_r, width = 1L, height = 2L),
px = px_ascii)
print(bm_expand(capital_r, width = 2L, height = 1L),
px = px_ascii)
crops <- farming_crops_16x16()
corn <- crops$corn$portrait
corn_2x <- bm_expand(corn, 2L)
if (cli::is_utf8_output() && cli::num_ansi_colors() >= 256L) {
print(corn_2x, compress = "v")
}
Run the code above in your browser using DataLab