R/polaraxis.R

In TauP.R: Earthquake Traveltime Calculations for 1-D Earth Models

Defines functions polaraxis

Documented in polaraxis

polaraxis <-
function(rp = 6371, at = 0:17 * 20){
  text( sin(at * pi/180) * rp * 1.1, cos(at * pi/180) * rp * 1.1, at)
}

Try the TauP.R package in your browser