R: add point on focal sphere

focpoint {RFOC} | R Documentation

## add point on focal sphere

### Description

Add points on equal-area focal plot

### Usage

    focpoint(az1, dip1, col = 2, pch = 5, lab = "", UP = FALSE, PLOT = TRUE)

### Arguments

`az1` | degrees, azimuth angle
`dip1` | degrees, dip angle
`col` | color
`pch` | plot character for point
`lab` | text lable for point
`UP` | upper or lower hemisphere
`PLOT` | logical, PLOT=TRUE add points to current plot

### Value

List of x,y coordinates on the plot

### Author(s)

Jonathan M. Lees <jonathan.lees@unc.edu>

### See Also

Beachfoc, addmecpoints

### Examples

    ###  create focal mech
    ALIM=c(-1,-1, +1, +1)
    s=65
    d=25
    r=13
    mc = CONVERTSDR(s,d,r )
      MEC = MRake(mc$M)
      MEC$UP = FALSE
      MEC$icol =  foc.icolor(MEC$rake1)
      MEC$ileg =  focleg(MEC$icol)
      MEC$fcol =   foc.color(MEC$icol)
      MEC$CNVRG = NA
      MEC$LIM = ALIM

    ###  plot focal mech
    Beachfoc(MEC, fcol=MEC$fcol, fcolback="white")

    ###  now add the F anf G axes
    focpoint(MEC$F$az, MEC$F$dip, pch=5, lab="F", UP=MEC$UP)
        focpoint(MEC$G$az, MEC$G$dip, pch=5, lab="G", UP=MEC$UP)

[Package RFOC version 3.4-3 Index]