Description Usage Arguments Details Value Methods (by class) References See Also Examples
Do a mask for hemispherical photographs given angle restrictions.
1 2 3 4 5 6 7 8 9 10 |
x |
|
previousMask |
|
a |
|
zlim |
|
alim |
|
y |
todo |
The intervals are closed on the right and on the left.
Todo: explain previousMask behavior.
BinImage
.
ZenithImage
: You can use angular limits to do a mask for hemispherical
photographs.
CanopyPhoto
: This feature could be needed for further processing
fullframe hemispherical photographs.
Schneider, D., Schwalbe, E., Maas, H.-G., 2009. Validation of geometric models for fisheye lenses. ISPRS J. Photogramm. Remote Sens. 64, 259-266.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | 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)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.