Skip to contents

Bitmap shadow, bold, and glow effects

Source: R/bm_shadow.R
bm_shadow.Rd

bm_shadow() adds a basic "shadow" effect to the bitmap(s). bm_bold() is a variant with different defaults to create a basic "bold" effect. bm_glow() adds a basic "glow" effect to the bitmap(s).

Usage

bm_shadow(
  x,
  value,
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE,
  bg
)

# S3 method for class 'bm_bitmap'
bm_shadow(
  x,
  value = 2L,
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE,
  bg = 0L
)

# S3 method for class 'bm_list'
bm_shadow(x, ...)

# S3 method for class 'bm_pixmap'
bm_shadow(
  x,
  value = col2hex("black"),
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE,
  bg = col2hex("transparent")
)

# S3 method for class '`magick-image`'
bm_shadow(
  x,
  value = "black",
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE,
  bg = "transparent"
)

# S3 method for class 'nativeRaster'
bm_shadow(
  x,
  value = col2int("black"),
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE,
  bg = "transparent"
)

# S3 method for class 'raster'
bm_shadow(
  x,
  value = "black",
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE,
  bg = "transparent"
)

bm_bold(
  x,
  value = 1L,
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE
)

# S3 method for class 'bm_bitmap'
bm_bold(
  x,
  value = 1L,
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE
)

# S3 method for class 'bm_list'
bm_bold(x, ...)

# S3 method for class 'bm_pixmap'
bm_bold(
  x,
  value = col2hex("black"),
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE
)

# S3 method for class '`magick-image`'
bm_bold(
  x,
  value = "black",
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE
)

# S3 method for class 'nativeRaster'
bm_bold(
  x,
  value = col2int("black"),
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE
)

# S3 method for class 'raster'
bm_bold(
  x,
  value = "black",
  top = NULL,
  right = NULL,
  bottom = NULL,
  left = NULL,
  extend = TRUE
)

bm_glow(x, value, extend = TRUE, corner = FALSE, bg)

# S3 method for class 'bm_bitmap'
bm_glow(x, value = 2L, extend = TRUE, corner = FALSE, bg = 0L)

# S3 method for class 'bm_list'
bm_glow(x, ...)

# S3 method for class 'bm_pixmap'
bm_glow(
  x,
  value = col2hex("black"),
  extend = TRUE,
  corner = FALSE,
  bg = col2hex("transparent")
)

# S3 method for class '`magick-image`'
bm_glow(x, value = "black", extend = TRUE, corner = FALSE, bg = "transparent")

# S3 method for class 'nativeRaster'
bm_glow(x, value = "black", extend = TRUE, corner = FALSE, bg = "transparent")

# S3 method for class 'raster'
bm_glow(x, value = "black", extend = TRUE, corner = FALSE, bg = "transparent")

Arguments

x

Either a bm_bitmap(), bm_font(), bm_list(), "magick-image", "nativeRaster", bm_pixmap(), or "raster" object.

value

The integer value for the shadow, bold, or glow effect.

top

How many pixels above should the shadow go.

right

How many pixels right should the shadow go. if top, right, bottom, and left are all NULL then defaults to 1L.

bottom

How many pixels below should the shadow go. if top, right, bottom, and left are all NULL then defaults to 1L for bm_shadow() and 0L for bm_embolden().

left

How many pixels left should the shadow go.

extend

Make the bitmap larger to give the new glyph more "room".

bg

Bitmap background value.

...

Additional arguments to be passed to or from methods.

corner

Fill in the corners.

Value

Depending on x either a bm_bitmap(), bm_font(), bm_list(), magick-image, "nativeRaster", bm_pixmap(), or raster object.

See also

bm_extend() and bm_shift()

Examples

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_shadow(capital_r))
#> ░░░░░░░░░
#> ░░░░░░░░░
#> ██████░░░
#> ██▒▒▒██░░
#> ██▒░░██▒░
#> ██▒░░██▒░
#> ██████▒▒░
#> ██▒▒▒██░░
#> ██▒░░██▒░
#> ██▒░░██▒░
#> ██▒░░██▒░
#> ██▒░░██▒░
#> ░▒▒░░░▒▒░
#> ░░░░░░░░░
#> ░░░░░░░░░
#> ░░░░░░░░░
#> ░░░░░░░░░
print(bm_bold(capital_r))
#> ░░░░░░░░░
#> ░░░░░░░░░
#> ███████░░
#> ███░░███░
#> ███░░███░
#> ███░░███░
#> ███████░░
#> ███░░███░
#> ███░░███░
#> ███░░███░
#> ███░░███░
#> ███░░███░
#> ░░░░░░░░░
#> ░░░░░░░░░
#> ░░░░░░░░░
#> ░░░░░░░░░
print(bm_glow(capital_r))
#> ░░░░░░░░░░
#> ░░░░░░░░░░
#> ░▒▒▒▒▒▒░░░
#> ▒██████▒░░
#> ▒██▒▒▒██▒░
#> ▒██▒░▒██▒░
#> ▒██▒▒▒██▒░
#> ▒██████▒░░
#> ▒██▒▒▒██▒░
#> ▒██▒░▒██▒░
#> ▒██▒░▒██▒░
#> ▒██▒░▒██▒░
#> ▒██▒░▒██▒░
#> ░▒▒░░░▒▒░░
#> ░░░░░░░░░░
#> ░░░░░░░░░░
#> ░░░░░░░░░░
#> ░░░░░░░░░░
print(bm_glow(capital_r, corner = TRUE))
#> ░░░░░░░░░░
#> ░░░░░░░░░░
#> ▒▒▒▒▒▒▒▒░░
#> ▒██████▒▒░
#> ▒██▒▒▒██▒░
#> ▒██▒░▒██▒░
#> ▒██▒▒▒██▒░
#> ▒██████▒▒░
#> ▒██▒▒▒██▒░
#> ▒██▒░▒██▒░
#> ▒██▒░▒██▒░
#> ▒██▒░▒██▒░
#> ▒██▒░▒██▒░
#> ▒▒▒▒░▒▒▒▒░
#> ░░░░░░░░░░
#> ░░░░░░░░░░
#> ░░░░░░░░░░
#> ░░░░░░░░░░

corn <- farming_crops_16x16()$corn$portrait
corn_shadow <- bm_shadow(corn, "red")
if (cli::is_utf8_output() && cli::num_ansi_colors() >= 256L) {
  print(corn_shadow, compress = "v")
}
#>                  
#>     ▄▀▀▄▄▀█▄     
#>    █▀▀▀▀█▀▀▀     
#>    ▄▀▀▀█▀█▀▀▀▄   
#>  ▄▀▀▀█▀▀▀▀█████  
#>  ▀▀▀█▀▀▀▀▀▀▀███  
#>        ▀▀▀▀▀▀█▀  
#>          ▀▀▀▀    
#>                  

corn_glow <- bm_glow(corn, "cyan", corner = TRUE)
if (cli::is_utf8_output() && cli::num_ansi_colors() >= 256L) {
  print(corn_glow, compress = "v")
}
#>                   
#>     ▄█▀▀██▀▀█     
#>    █▀▀▀▀▀▀███▄    
#>    █▀▀▀▀▀▀▀▀▀▀█▄  
#>  ▄█▀▀▀▀▀▀▀▀▀▀▀██  
#>  ██▀▀▀▀▀▀▀▀█▀▀██  
#>  ▀▀▀▀▀█▀▀▀▀▀▀▀▀█  
#>        ▀█▀▀▀▀█▀   
#>