if (FALSE) {
r <- read_caim()
z <- zenith_image(ncol(r), lens())
a <- azimuth_image(z)
m <- select_sky_region(z, 20, 70) & select_sky_region(a, 90, 180)
masked_caim <- paint_with_mask(normalize_minmax(r), m)
plotRGB(masked_caim * 255)
masked_bin <- paint_with_mask(binarize_with_thr(r$Blue, 125), m)
plotRGB(masked_bin * 255)
r <- normalize_minmax(r)
paint_with_mask(r, m, color = c(0.2, 0.2, 0.2)) # vector
paint_with_mask(r, m, color = "blue") # name
paint_with_mask(r, m, color = "#00FF00") # hexadecimal
}
Run the code above in your browser using DataLab