> print(capital_r, px = c("-", "#"))
--------
--------
######--
##---##-
##---##-
##---##-
######--
##---##-
##---##-
##---##-
##---##-
##---##-
--------
--------
--------
--------

> print(bm_trim(capital_r, c(1, 1, 3, 0)), px = c("-", "#"))
-------
######-
##---##
##---##
##---##
######-
##---##
##---##
##---##
##---##
##---##
-------

> print(bm_trim(capital_r, height = 8, vjust = "top"), px = c("-", "#"))
--------
--------
######--
##---##-
##---##-
##---##-
######--
##---##-

> print(bm_trim(bm_list(capital_r), height = 8, vjust = "top"), px = c("-", "#"))
[[1]]
--------
--------
######--
##---##-
##---##-
##---##-
######--
##---##-

attr(,"class")
[1] "bm_list" "list"   

> print(bm_trim(capital_r, height = 8, vjust = "bottom"), px = c("-", "#"))
##---##-
##---##-
##---##-
##---##-
--------
--------
--------
--------

> print(bm_trim(capital_r, width = 4, hjust = "left"), px = c("-", "#"))
----
----
####
##--
##--
##--
####
##--
##--
##--
##--
##--
----
----
----
----

> print(bm_trim(capital_r, width = 4, hjust = "right"), px = c("-", "#"))
----
----
##--
-##-
-##-
-##-
##--
-##-
-##-
-##-
-##-
-##-
----
----
----
----

