RFOC (version 1.0-4)

focpoint: 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

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)