faultperp function

Fault Perpendiculars

Fault Perpendiculars

Draw perpendicular marks on fault trace

faultperp(x, y, N = 20, endtol = 0.1, h = 1, col = "black")

Arguments

  • x: x-coordinates
  • y: y-coordinates
  • N: number of points
  • endtol: indent on either ends
  • h: length of perpendicular marks
  • col: color of line

Returns

Graphical Side effect

Author(s)

Jonathan M. Leesjonathan.lees@unc.edu

See Also

OverTurned

Examples

ff=list() ff$x=c(-4.850,-4.700,-3.934,-2.528, 0.603, 2.647, 3.861, 2.626) ff$y=c(-4.045,-2.087,-0.710, 0.172, 1.291, 2.087,-0.753,-4.131) G =getsplineG(ff$x, ff$y, kdiv=20) g = PointsAlong(G$x, G$y, N=5) plot(c(-5,5), c(-5,5), asp=1, type='n' ) lines(G) faultperp(G$x, G$y, N = 10, endtol = 0.1, h = .3, col = "black")
  • Maintainer: Jonathan M. Lees
  • License: GPL (>= 2)
  • Last published: 2024-07-09

Useful links