R: PICK Buttons for swig

YPIX {RSEIS} | R Documentation

## PICK Buttons for swig

### Description

defining functions for swig

### Usage

    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

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

[Package RSEIS version 3.7-4 Index]