bcars: Plot Box Cars

In GEOmap: Topographic and Geologic Mapping

Plot Box Cars

Description

Add Box Cars to a line.

Usage

bcars(x, y, h1 = 1, h2 = 0.3, rot, col = "black", border = "black")

Arguments

x	x-coordinates
y	y-coordinates
h1	length, mm
h2	thickness, mm
rot	rotation vectors, (cosines and sines)
col	color
border	color

Details

Used for plotting detachment faults in USGS format.

Value

Graphical Side effects

Author(s)

Jonathan M. Lees<[e-mail]>

Examples

G=list()
G$x=c(-1.0960,-0.9942,-0.8909,-0.7846,-0.6738,-0.5570,-0.4657,-0.3709,
-0.2734,-0.1740,-0.0734, 0.0246, 0.1218, 0.2169, 0.3086, 0.3956, 0.4641, 
0.5293, 0.5919, 0.6530, 0.7131)
G$y=c(-0.72392,-0.62145,-0.52135,-0.42599,-0.33774,-0.25896,-0.20759,
-0.16160,-0.11981,-0.08105,-0.04414,-0.00885, 0.02774, 0.06759, 0.11262, 
0.16480, 0.21487, 0.27001, 0.32895, 0.39044, 0.45319)



 g = PointsAlong(G$x, G$y, N=6)

 sk = 3

###############
plot(G$x, G$y, type='n',asp=1, axes=FALSE, xlab='', ylab='')

 lines(G$x,G$y,col='blue')
 bcars(g$x,g$y,h1=sk,h2=sk*.5, rot=g$rot , col='blue')


###############
plot(G$x, G$y, type='n',asp=1, axes=FALSE, xlab='', ylab='')
 lines(G$x,G$y,col='blue')
 bcars(g$x,g$y,h1=sk,h2=sk*.5, rot=g$rot , col=NA, border='blue')

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