focpoint {RFOC}

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)