Pick zooms on 24 hour display
Pick zooms on 24 hour display.
pickseis24(pjj, DB, usta, ucomp)
pjj |
output of plotseis24 |
DB |
Database of seismic trace meta data |
usta |
stations to extract |
ucomp |
components to extract |
Use only 2 clicks on the plotseis24 display.
Graphical Side effects. Program starts swig
Jonathan M. Lees<jonathan.lees@unc.edu>
swig, winseis24 , plotseis24 , getseis24
## Not run:
dev.new(width=8, height=12)
dev.new(width=12, height=8)
dev.set(2)
usta <- "CAL"
acomp <- "V"
JJ <- getseis24(DB, 2009, 2, usta, acomp, kind = 1)
pjj <- plotseis24(JJ, dy=1/18, FIX=24, SCALE=1, FILT=list(ON=FALSE,
fl=0.05 , fh=20.0, type="BP", proto="BU"), RCOLS=c(rgb(0.2, .2, 1),
rgb(.2, .2, .2)) )
ucomp <- c("V", "N", "E", "I")
pickseis24(pjj, DB, usta, ucomp )
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.