Compare e03f791 ... +14 ... d7f4aa1

#' Compute "outline" bitmap of a bitmap

#'

#' `bm_outline()` returns a bitmap that is just the \dQuote{outline}

#' of another bitmap.

#' @inheritParams bm_clamp

#' @inherit bm_clamp return

#' @examples

#'   square <- bm_bitmap(matrix(1L, nrow = 16L, ncol = 16L))

#'   square_outline <- bm_outline(square)

#'   print(square_outline, px = px_ascii)

#'

#'   if (require(grid) && capabilities("png")) {

#'     circle <- as_bm_bitmap(circleGrob(), width=16, height=16)

#'     circle_outline <- bm_outline(circle)

#'     print(circle_outline, px = px_ascii)

#'   }

#' @export

bm_outline <- function(bm_object) {

}

bm_outline_bitmap <- function(bitmap) {

        }

    }

}

#' @return Either a [bm_list()] or [bm_font()] object.

#'         See Details for more info.

#' @return The return value of `.f`.

#' @inheritParams as_bm_list

#' @rdname as_bm_bitmap

#' @param direction For horizontal binding either "left-to-right" (default) or its aliases "ltr" and "lr"

#'                  OR "right-to-left" or its aliases "rtl" and "rl".

#'                  For vertical binding either "top-to-bottom" (default) or its aliases "ttb" and "tb"

#'                  OR "bottom-to-top" or its aliases "btt" and "bt".

#'                  The `direction` argument is not case-sensitive.

#' @examples

#'   font_file <- system.file("fonts/fixed/4x6.yaff.gz", package = "bittermelon")

#'   font <- read_yaff(font_file)

#'   bm <- as_bm_bitmap("RSTATS", font = font)

#'   print(bm, px = px_ascii)

#'   bm <- as_bm_bitmap("RSTATS", direction = "top-to-bottom", font = font)

#'   print(bm, px = px_ascii)

#' @export

as_bm_bitmap.character <- function(x, ...,

                                   direction = "left-to-right",

                                   font = bm_font()) {

    else

}