RSEIS (version 4.2-4)

YPIX: PICK Buttons for swig

Description

defining functions for swig

Usage

YPIX(nh, g)
WPIX(nh, g)
NOPIX(nh, g)
REPIX(nh, g)
DELpix(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)
JustF(nh, g)
SHOW3(nh, g)

Value

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.

Arguments

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

Author

Jonathan M. Lees<[e-mail]>

Details

Buttons can be defined on the fly.

YPIX

Multiple picks on a panel

WPIX

window picks (start and end)

NOPIX

remove the picks

REPIX

un-remove the picks

DELpix

Delete pix near clicks

PickWin

Pick window for 3 component picking

pADDPIX

add picks

Ppic

P-wave arrival (only one per station)

Spic

S-wave arrival (only one per station)

Apic

acoustic-wave arrival (only one per station)

POLSWITCH

flip polarity

Pup

Polarity Up

Pnil

Polarity nil

Pdown

Polarity down

FILLPIX

Fill the pick from bottom to top of panel

RIDPIX

remove pick

SEEPIX

print current picks to screen

ROT.RT

Rotate to radial and transverse (need event and station locations

JustV

Display only vertical components

JustE

Display only east components

JustN

Display only north components

JustF

Display only infrasound (F) components

SHOW3

Display All 3 components

iNEXT

Used internally in PickWin to move to next station

See Also

swig, XTR

Examples

if(interactive()){

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)

}