YPIX: PICK Buttons for swig

Description Usage Arguments Details Value Author(s) See Also Examples

Description

defining functions for swig

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
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)

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

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

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

iNEXT

Used internally in PickWin to move to next station

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.

Author(s)

Jonathan M. Lees<jonathan.lees@unc.edu>

See Also

swig, XTR

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
## 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)


Search within the RSEIS package
Search all R packages, documentation and source code

Questions? Problems? Suggestions? or email at ian@mutexlabs.com.

Please suggest features or report bugs with the GitHub issue tracker.

All documentation is copyright its authors; we didn't write any of that.