vertical: Collect the end points of the vertical bar
In phewson/PhilsAngle: Helps identify lens angles

Description Usage Arguments Examples

View source: R/vertical.R

Collect the end points of the vertical bar and works out scaling

1	vertical(microns)

microns

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (microns) 
{
    arrowlength <- locator()
    arrow <- max(arrowlength$y) - min(arrowlength$y)
    runits <- microns/arrow
    return(list(runits = runits, mid = c(arrowlength$x[which(arrowlength$y == 
        max(arrowlength$y))], max(arrowlength$y))))
  }