RSEIS (version 2.1-6)

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)

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

Value

• Graphical Side Effects

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)