R: Thrust Fault

thrust {GEOmap} | R Documentation

## 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<jonathan.lees@unc.edu

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

[Package GEOmap version 2.4-0 Index]