R/faultdip.R
In GEOmap: Topographic and Geologic Mapping

`faultdip` <-
function(x,y, rot=0, h=1, lab='')
  {

    alpha = (90-rot)*pi/180
    arrows(x,y,x+h*cos(alpha), y+h*sin(alpha), length=h*.1)  
  }

Any scripts or data that you put into this service are public.

GEOmap documentation built on Sept. 1, 2023, 5:09 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the GEOmap package in your browser