plus_sign <- matrix(0L, nrow = 9L, ncol = 9L)
plus_sign[5L, 3:7] <- 2L
plus_sign[3:7, 5L] <- 2L
plus_sign_glyph <- bm_bitmap(plus_sign)
print(plus_sign_glyph)
plus_sign_clamped <- bm_clamp(plus_sign_glyph)
print(plus_sign_clamped)
tulip <- farming_crops_16x16()$tulip$portrait
if (cli::is_utf8_output() && cli::num_ansi_colors() >= 8L) {
print(bm_clamp(tulip, "magenta"), compress = "v")
}
Run the code above in your browser using DataLab