getpoints_
function (quiet = F) 
{
    if (!quiet) {
        cat("Enter points with button 1\n")
        cat("Finish with button 2\n")
    }
    raw <- locator(type = "p")
    resloc <- cbind(raw$x, raw$y)
    resloc
  }