RFOC (version 2.0-00)

StrikeDip: Plot Strike Dip Lines

Description

given a focal mechanism, add Strike Dip lines to a plot

Usage

StrikeDip(x = x, y = y, MEC, focsiz, addDIP = TRUE, ...)

Arguments

x

x-location on plot

y

y-location on plot

MEC

Focal Mechanism list from SDRFOC

focsiz

size of mechanism

addDIP

Logical, TRUE = add dip line perpendicular to strike

...

graphical parameters

Value

• Graphical Side Effects

Details

This is a summary plot to be used instead of Beach Balls.

References

Lees, J. M., Geotouch: Software for Three and Four Dimensional GIS in the Earth Sciences, Computers & Geosciences, 26, 7, 751-761, 2000.

See Also

nipXY, justfocXY

Examples

###  HAiti Earthquake Jan, 2010
MEC =  SDRfoc(71, 64, 25 , u=FALSE, ALIM=c(-1,-1, +1, +1), PLOT=FALSE)
plot(c(0, 1), c(0,1), type='n', asp=1)
u = par("usr")

focsiz = 0.06* (u[2]-u[1])

justfocXY(MEC, x=.5,  y= .5,  size = c(focsiz, focsiz), fcol ='brown' , fcolback = "white", xpd = TRUE)


 StrikeDip(1.0, .5 , MEC  ,focsiz, col="purple", lwd=3 )
 


nipXY(MEC, x = 0.25, y = .5, size = c(focsiz, focsiz), fcol ='purple', nipcol = "black", cex = 0.4)