font_file <- system.file("fonts/spleen/spleen-8x16.hex.gz", package = "bittermelon")
font <- read_hex(font_file)
capital_r <- as_bm_bitmap("R", font = font)
bm_print(capital_r)
corn_r <- as.raster(farming_crops_16x16()$corn$portrait)
if (cli::is_utf8_output() && cli::num_ansi_colors() >= 256L) {
bm_print(corn_r, compress = "v")
}
if (requireNamespace("magick", quietly = TRUE) &&
cli::is_utf8_output() &&
cli::num_ansi_colors() > 256L) {
rose_mi <- magick::image_read("rose:")
bm_print(rose_mi, compress = "v")
}
if (FALSE) # Change other bitmap classes' `print()` to use `bm_print()` instead
options(bittermelon.compress = "vertical",
bittermelon.downscale = requireNamespace("magick", quietly = TRUE))
for (cl in c("glyph_bitmap", "lofi-matrix", "magick-image",
"nativeRaster", "pixeltrix",
"pixmapGrey", "pixmapIndexed", "pixmapRGB", "raster")) {
.S3method("print", cl, bittermelon::bm_print)
}
Run the code above in your browser using DataLab