expandFullframe: Expand full frame hemispherical photographs

In GastonMauroDiaz/caiman: Canopy Image Analysis

Description

Expand a full frame hemispherical photograph to get the equivalent of a circular hemispherical photograph. Added pixels will be 0.

Usage

expandFullframe(x, z, zenith_colrow)

## S4 method for signature 'CanopyPhoto,ZenithImage'
expandFullframe(x, z, zenith_colrow)

Arguments

x	CanopyPhoto.
z	ZenithImage.

Value

CanopyPhoto.

See Also

doMask.

Examples

x <- loadPhoto()
z <- makeZimage(ncol(x), lensPolyCoef(c(0.9192, -0.1792, -0.000443)))
m <- doMask(z, zlim = asAngle(c(30, 60)))
plot(m)

m <- doMask(z, zlim = asAngle(c(30, 60)), alim = asAngle(c(0, 90)))
plot(m)

plot(x[m, drop = FALSE])

# for fullframe hemispherical photos
path <- system.file("external/DSC_2881.jpg", package="caiman")
x <- loadPhoto(path)
### declaring it as a fullframe
fisheye(x) <- newFishEye(TRUE, TRUE, TRUE)

m <- doMask(x, z)
plot(m)

m <- doMask(z, previousMask = m, zlim = asAngle(c(30, 60)),
                                                    alim = asAngle(c(0, 90)))
plot(m)

GastonMauroDiaz/caiman documentation built on Jan. 22, 2022, 4:43 a.m.