RSEIS (version 4.2-4)

varsquig: Var-Squiggle plot

Description

Plot one seismogram in Var-Squiggle mode - like on an exploration record section with half the wiggled shaded.

Usage

varsquig(x, y, L = locator(2), FLIP = FALSE, filcol="blue",
tracecol="red", var = 0, xpd=TRUE )

Value

Graphical Side Effects

Arguments

x

X (time axis) coordinates

y

Y amplitudes

L

rectangular region on plot where plotting occurs

FLIP

logical - whether to flip the amplitudes by -1

filcol

color for shading

tracecol

color for trace

var

logical, whether to shade

xpd

logical, set xpd parameter (see par)

Author

Jonathan M. Lees<[e-mail]>

Details

A set of traces can be plotted after the plotting region has been set.

See Also

varsquiggle

Examples

data(KH)

x <- KH$ex[KH$ex>95& KH$ex<125]
y <- KH$JSTR[[1]][KH$ex>95& KH$ex<125]


plot(x , y , type='l')


u <- par('usr')
L <- list(x=c(u[1], u[2]), y = c(u[3], u[4]))

plot(L$x, L$y, type='n')
 varsquig(x, y, L=L , FLIP=FALSE, filcol="blue", tracecol="blue", var=TRUE)
plot(L$x, L$y, type='n')
 varsquig(x, y, L=L , FLIP=FALSE, filcol="red", tracecol="blue",   var=FALSE)