lcars_pill: LCARS pill

In lcars: LCARS Aesthetic for Shiny

LCARS pill

Description

Wrappers around lcars_rect that add rounded edges on one side or two opposing sides to make an LCARS pill.

Usage

lcars_pill(
  xmin,
  xmax,
  ymin,
  ymax,
  color = "atomic-tangerine",
  direction = c("both", "left", "right"),
  vertical = FALSE,
  gap = "auto",
  n = 50,
  asp = 1,
  gap_color = "#000000"
)

lcars_half_pill(
  x,
  y,
  r,
  direction,
  color = "atomic-tangerine",
  n = 50,
  asp = 1
)

lcars_left_pill(x, y, r, color = "atomic-tangerine", n = 50, asp = 1)

lcars_right_pill(x, y, r, color = "atomic-tangerine", n = 50, asp = 1)

lcars_bottom_pill(x, y, r, color = "atomic-tangerine", n = 50, asp = 1)

lcars_top_pill(x, y, r, color = "atomic-tangerine", n = 50, asp = 1)

Arguments

xmin	numeric, scalar left x position.
xmax	numeric, scalar right x position.
ymin	numeric, scalar bottom y position.
ymax	numeric, scalar top y position.
color	pill color. Can be any color given in hex format. Named colors must be LCARS colors. See lcarsdata for options.
direction	integer 1:4 or character: topleft, topright, bottomleft, bottomright. May be abbreviated as tl, tr, br, bl.
vertical	logical, vertical pill.
gap	numeric or "auto", the gap between the pill half circle edge and pill rectangle edge.
n	integer, number of points to define rounded edge.
asp	numeric, aspect ratio. This is useful for preventing distortion of pill half circle for plots with different width and height.
gap_color	the color of gaps if present. This is likely black, but because of the way the pill is drawn, it must be specified to match if the plot background color is not black. Can be any color given in hex format. Named colors must be LCARS colors. See lcarsdata for options.
x	numeric, x position for edge of horizontal half pill or midpoint of vertical half pill.
y	numeric, y position for edge of vertical half pill or midpoint of horizontal half pill.
r	numeric, radius of half pill.

Value

draws to plot

Examples

op <- par(bg = "black")
plot(0:1, 0:1, asp = 1)
lcars_pill(0.05, 0.45, 0.7, 0.9, "chestnut-rose", "left")
lcars_pill(0.05, 0.45, 0.4, 0.6, "lilac", "both")
lcars_pill(0.05, 0.45, 0.1, 0.3, "orange-peel", "right")
lcars_pill(0.55, 0.65, 0.1, 0.9, "chestnut-rose", "left", vertical = TRUE)
lcars_pill(0.7, 0.8, 0.1, 0.9, "lilac", "both", vertical = TRUE)
lcars_pill(0.85, 0.95, 0.1, 0.9, "orange-peel", "right", vertical = TRUE)
par(op)

lcars documentation built on Sept. 10, 2023, 9:07 a.m.