thrust: Thrust Fault

In GEOmap: Topographic and Geologic Mapping

Thrust Fault

Description

Add Thrust fault with teeth on overlying block

Usage

thrust(x, y, h = 1, N=1, REV = FALSE, endtol=0.1, col = "black", ...)

Arguments

x	x-coordinates
y	y-coordinates
h	height of teeth
N	NUmber of points along line
endtol	percent tolerance on ends of line
REV	reverse direction of x-y (teeth on other side)
col	color of teeth and line
...	graphical parameters

Value

Graphical Side effect

Author(s)

Jonathan M. Lees<[e-mail]

See Also

teeth

Examples

 plot(c(-5,5), c(-5,5), asp=1, type='n' )
  
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)


###

 plot(c(-5,5), c(-5,5), asp=1, type='n' )
  
thrust(ff$x, ff$y,  h=2, N=14, REV=FALSE)


##########  reverse side:
plot(c(-5,5), c(-5,5), asp=1, type='n' )
  
thrust(ff$x, ff$y, h=2, N=14, REV=TRUE)

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