R/textures.R

In hypertidy/quadmesh: Quadrangle Mesh

target_coordinates <- function(xy, src.proj = NA_character_, target = NULL, xyz = FALSE) {
  if (is.null(target) || is.na(raster::projection(target))) return(xy)
  dst.proj <- raster::projection(target)
  if (!is.na(src.proj) && !is.na(src.proj)) {
    xy <- reproj::reproj(xy, source = src.proj, target = dst.proj)
   }  ## otherwise we just assume they are in the same crs
  if (!xyz) xy <- xy[, 1:2, drop = FALSE]
  xy
}



texture_coordinates <- function(texture_image,vertices) {
  #browser()
  raster::xyFromCell(raster::setExtent(texture_image, raster::extent(0, 1, 0, 1)),
                     raster::cellFromXY(texture_image, vertices))

}