varsquig {RSEIS}

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 )

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)

Details

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

Value

Graphical Side Effects

Note

varsquig is meant to be used within other program not as a stand alone routine. The plotting region must be set up prior to plotting. The time series is scaled to fitt in the rectangular region defined by L.

Author(s)

Jonathan M. Lees<[e-mail]>

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)