YPIX: PICK Buttons for swig
In RSEIS: Seismic Time Series Analysis Tools

View source: R/YPIX.R

YPIX	R Documentation

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)

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
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

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>

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)

}

RSEIS documentation built on Sept. 13, 2024, 1:09 a.m.