RSEIS (version 3.7-4)

varsquiggle: 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')

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

Value

Graphical Side effects

Details

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

See Also

matsquiggle, varsquig

Examples

# NOT RUN {
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))


# }