impac: Make a packed image mosaic

In rdinnager/immosaic: Make packed image mosaics

Make a packed image mosaic

Description

A simple greedy algorithm tries to pack as many images into a larger image as possible, taking into account transparency, if available (recommended).

Usage

impac(
  im,
  width = 1024,
  height = 800,
  mask = NULL,
  weights = NULL,
  preferred = NULL,
  max_num_tries = 100,
  scales = c(rep(0.5, 2), rep(0.25, 4), rep(0.15, 8)),
  scale_fun = function(s, i, c) {     if (c < (i * 0.5)) {         mscale <- min(s)    
        c(s, rep(mscale/2, floor(1/mscale)))     }     else {         scales     } },
  max_images = 1000,
  min_scale = 0.05,
  bg = "transparent",
  show_every = 25,
  progress = TRUE,
  start_image = NULL,
  ...
)

Arguments

im	Can be either a character vector of image file names (format must be compatible with imager::load.image()), a list of imager::cimg objects, or a function that generates an image when evaluated. The function can take a single argument, which is the current iteration of the packing algorithm. Can also be specified as an rlang style lambda syntax (see rlang::as_function()).
width	Width in pixels of produced image
height	Height in pixels of produced image
mask	An optional masking image.
weights	Vector of Weights to apply to each image. Higher weighted images will be packed first and so will tend to be larger. This vector will be recycled.
preferred	An alternate way to specify images to pack first, as a character vector of names or file names (only works if im is a vector of image file name or a list of imager::cimg objects).
max_num_tries	Maximum number of times to try packing an image onto the canvas before giving up.
scales	A vector of starting scaling factors to randomly choose from for each image.
scale_fun	An function that takes three arguments, which correspond to the current vector of scaling factors, the current iteration of the algorithm, and the count of the number of packed images so far, respectively (e.g. f(s, i, c)), and returns a new vector of scaling factors to use.
max_images	The maximum number of images to pack before stopping.
min_scale	The minimum scale factor to use. If the algorithm generates a scale factor this small (via scale_fun), packing will stop.
bg	The background colour for the campus, default: "transparent"
show_every	Show the intermediate packed image after every show_every images are packed. Set to 0 to not show intermediates.
progress	Should progress be printed as the algorithm runs?
start_image	An optional image to start the packing with. If not NULL, the width and height arguments will be ignored and the dimensions of the starting image used instead. Can be an imager::cimg object, a path to an image in png or jpg format or an impac object.
...	Further arguments passed on the im, if it is function.

Value

A packed image mosaic, as a imager::cimg object.

Examples

plot(
  impac(
    function(i) imager::draw_circle(
      imager::imfill(500, 500, val = c(0, 0, 0, 0)),
      250, 250, radius = runif(1, 150, 250),
      color = matrix(grDevices::col2rgb(sample(grDevices::rainbow(100), 1), alpha = TRUE), nrow = 1)
    ),
    width = 400, height = 400,
    max_images = 10, bg = "white"
  )$image
)

rdinnager/immosaic documentation built on July 2, 2023, 1:52 a.m.