Old newscast effect — patina_newscast • ggpatina

Adds scanlines, chroma bleed, tube glow, vignette, and noise to mimic a CRT broadcast.

Usage

patina_newscast(
  img,
  sat = 1,
  scan_strength = 0.28,
  scan_period = 4L,
  ca_px = 1L,
  glow = 0.25,
  vignette = 0.18,
  noise = 0.25,
  warp = c("none", "full", "corner"),
  warp_amount = 0.06,
  corner = c("ne", "nw", "se", "sw"),
  corner_frac = 0.52,
  corner_margin = 0.04
)

Arguments

img: magick image
sat: saturation multiplier (1 = unchanged)
scan_strength: 0..1 strength of scanlines
scan_period: integer px per dark line (e.g., 3–5)
ca_px: integer pixel shift for R/B channels (chromatic aberration)
glow: 0..1 highlight bloom
vignette: 0..1 edge darkening
noise: 0..1 CRT noise/grain
warp: one of "none","full","corner"
warp_amount: curvature amount for warp (typ. 0.03–0.10)
corner: which corner for corner-warp: "ne","nw","se","sw"
corner_frac: size of the warped corner region as fraction of width/height (0.3–0.8)
corner_margin: fraction margin from edges when placing the corner region

Examples

if (FALSE) { # \dontrun{
if (requireNamespace("magick", quietly = TRUE)) {
  img <- magick::image_blank(200, 200, "white")
  patina_newscast(img)
}
} # }