perpen: perpendicular marks along line

In GEOmap: Topographic and Geologic Mapping

perpendicular marks along line

Description

draw perpendicular marks along line

Usage

perpen(x, y, h, rot, col = "black", lwd = 1)

Arguments

x	x-coordinates
y	y coordinates
h	height of tooth
rot	rotation of teeth
col	color of line
lwd	line width

Details

Used by faultperp

Value

graphical side effects

Author(s)

Jonathan M. Lees<[e-mail]

See Also

PointsAlong, faultperp

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)

G =getsplineG(ff$x, ff$y, kdiv=20)
g = PointsAlong(G$x, G$y, N=5)

lines(G)

perpen(g$x, g$y, 5, g$rot, col = "black", lwd = 1)

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