Adds a ghost offset, banding, and adjustable wash while protecting dark lines.
Usage
patina_photocopy(
img,
offset = c(3, -2),
ghost_opacity = 0.12,
banding = 0.12,
tilt_deg = 0.4,
protect_lines = 0.75,
wash = 0.25,
line_gain = 0.18,
contrast_pop = 6
)Arguments
- img
magick image
- offset
c(x,y) ghost offset in px
- ghost_opacity
0..1 opacity of the ghost pass
- banding
0..1 banding strength
- tilt_deg
rotate (deskew) degrees
- protect_lines
0..1 how strongly to protect dark strokes (1 = max)
- wash
0..1 how much to lift paper/background (0 = none, 1 = strong)
- line_gain
0..1 re-ink amount applied after effects (0 = none)
- contrast_pop
strength of final sigmoid contrast (0 = none)
Examples
if (FALSE) { # \dontrun{
if (requireNamespace("magick", quietly = TRUE)) {
img <- magick::image_blank(200, 200, "white")
patina_photocopy(img)
}
} # }