add point on focal sphere
Add points on equal-area focal plot
focpoint(az1, dip1, col = 2, pch = 5, lab = "", UP = FALSE, PLOT = TRUE)
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 |
List of x,y coordinates on the plot
Jonathan M. Lees <jonathan.lees@unc.edu>
Beachfoc, addmecpoints
### 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)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.