font_file <- system.file("fonts/spleen/spleen-8x16.hex.gz", package = "bittermelon")
font <- read_hex(font_file)
capital_b <- font[[str2ucp("B")]]
capital_m <- font[[str2ucp("M")]]
cbm <- cbind(capital_b, capital_m)
print(cbm)
cbm_rl <- cbind(capital_b, capital_m, direction = "right-to-left")
print(cbm_rl)
rbm <- rbind(capital_b, capital_m)
print(rbm)
rbm_bt <- rbind(capital_b, capital_m, direction = "bottom-to-top")
print(rbm_bt)
Run the code above in your browser using DataLab