seiscols {RSEIS}

Set colors for seismic display

Description

Given an RSEIS list of seismic data return a set of colors associated with the structure that colors each trace and its components the same color.

Usage

seiscols(GH, acols="black", M="STNS")

Arguments

GH

Seismic RSEIS list

acols

vector of colors to choose from

M

character, "STNS" = stations, "COMPS" = components

Value

colors

alpha/numeric vector of colors

Author(s)

Jonathan M. Lees<[e-mail]>

Examples

data(GH)

GH$pcol <- seiscols(GH)
swig(GH, sel=which(GH$COMPS=="V"),    WIN=c(3, 10), SHOWONLY=TRUE)

xcol <-  seiscols(GH, acols=c("black", "darkmagenta", "forestgreen") )

GH$pcol <- xcol

swig(GH, sel=which(GH$COMPS=="V"), , SHOWONLY=TRUE)