PICK Buttons for swig
defining functions for swig
YPIX(nh, g) WPIX(nh, g) NOPIX(nh, g) REPIX(nh, g) PickWin(nh, g) pADDPIX(nh, g, phase) Ppic(nh, g) Spic(nh, g) Apic(nh, g) POLSWITCH(nh, g, dir) Pup(nh, g) Pnil(nh, g) Pdown(nh, g) FILLPIX(nh, g) RIDPIX(nh, g) SEEPIX(nh, g) ROT.RT(nh, g) JustV(nh, g) JustE(nh, g) JustN(nh, g)
nh |
waveform list for RSEIS |
g |
plotting parameter list for interactive program |
phase |
phase name (P, S, A, etc...) |
dir |
vertical up, down or nil |
Buttons can be defined on the fly.
Multiple picks on a panel
window picks (start and end)
remove the picks
un-remove the picks
Pick window for 3 component picking
add picks
P-wave arrival (only one per station)
S-wave arrival (only one per station)
acoustic-wave arrival (only one per station)
flip polarity
Polarity Up
Polarity nil
Polarity down
Fill the pick from bottom to top of panel
remove pick
print current picks to screen
Rotate to radial and transverse (need event and station locations
Display only vertical components
Display only east components
Display only north components
Used internally in PickWin to move to next station
The return value depends on the nature of the function as it is returned to the main code swig. Choices for returning to swig are: break, replot, revert, replace, donothing, exit.
Jonathan M. Lees<jonathan.lees@unc.edu>
swig, XTR
## Not run:
MYFUNC<-function(nh, g)
{
print("pressed MYFUNC")
d <- data.frame(list(stations=nh$STNS, components=nh$COMPS))
print(d)
g$action <- "replot"
invisible(list(global.vars=g))
}
STDLAB <- c("DONE", "QUIT", "SELBUT" , "MYFUNC" )
data(GH)
JJ <- swig(GH, sel=1:10, STDLAB=STDLAB)
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.