focpoint: add point on focal sphere

In RFOC: Graphics for Spherical Distributions and Earthquake Focal Mechanisms

add point on focal sphere

Description

Add points on equal-area focal plot

Usage

focpoint(az1, dip1, col = 2, pch = 5, lab = "", cex=1,  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
cex	Character Size
UP	upper or lower hemisphere
PLOT	logical, PLOT=TRUE add points to current plot
...	graphical parameters

Value

List of x,y coordinates on the plot

Author(s)

Jonathan M. Lees <[e-mail]>

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)

RFOC documentation built on Sept. 8, 2023, 6:12 p.m.