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 1.0-5 Index]