varsquiggle {RSEIS}

Var-Squiggle Plot

Description

Plot A seismic section using Var-Squiggle, like an exploration seismic record.

Usage

varsquiggle(GH, sel = c(1, 2), WIN = c(0, 1), dist=NULL, thick=1 ,
FLIP=FALSE, filcol='blue', tracecol='blue', xpd=TRUE, plotdir=1 )

Arguments

GH

Seismic List

sel

selection of seismic traces

WIN

time window

dist

distance from the source

thick

thickness of plotting region per trace

FLIP

logical, whether to plot vertical or horizontal, default FALSE, TRUE = vertical

filcol

color for shading

tracecol

color for trace

xpd

logical, set xpd parameter (see par)

plotdir

1=left to right, 0=right to left (default=1)

Details

Traces are plotted and scaled each with its own window. The distance vector provides the location on the seismic record.

Value

Graphical Side effects

Author(s)

Jonathan M. Lees<[e-mail]>

See Also

matsquiggle, varsquig

Examples

data(GH)
m <- match( GH$STNS,    GH$stafile$name)
LATS <- GH$stafile$lat[m]
LONS <- GH$stafile$lon[m]
dees <- rdistaz( GH$pickfile$LOC$lat, GH$pickfile$LOC$lon, LATS, LONS)

sel <- which(GH$COMPS=="V")
sel <-  sel[order(dees$dist[sel])]

###  plot normal way:
swig(GH, sel=sel, WIN=c(5,10), SHOWONLY=TRUE)


###  plot with varsquiggle
varsquiggle(GH, sel=sel, WIN=c(5,10))