focpoint: add point on focal sphere

Description Usage Arguments Value Author(s) See Also Examples

Description

Add points on equal-area focal plot

Usage

1
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 <[email protected]>

See Also

Beachfoc, addmecpoints

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
###  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 Jan. 20, 2018, 9:46 a.m.