winmark: Window Mark

In RSEIS: Seismic Time Series Analysis Tools

Window Mark

Description

Add Mark up to current seismic trace with a bar desgnating a window selection.

Usage

winmark(a1, a2, side = 1, bar = NULL,
leg = NULL, col = col, lwd = 1, lty = 1,
arrows = FALSE, alen = 0.1, leglen = 0.15,
 LEGON = 3, BARON = TRUE)

Arguments

a1	x1-location
a2	x2-location
side	side where bar is drawn, as in axes: 1=bottom,2=left,3=top,4=right
bar	location of bar
leg	location of leg
col	color
lwd	line width
lty	line type
arrows	logical, add arrows to ends of legs
alen	length of arrow heads, inches, default=0.125
leglen	length of arrows aas percent of usr("par"), default=0.125
LEGON	plotting flag for legs: 0=no legs, 1=left leg, 2=right leg, 3=both legs(default)
BARON	logical:plotting flag for bar

Details

Used for marking seismic traces. The window marker looks like a staple, three segments are drawn, a bar and two legs. The thickness of the legs are determined by bar and leg, unless these are missing. if they are missing parameter side is used to set the locations, and leglen determines the length of the legs. If either bar or leg are missing the parameters are derived from par("usr") and are applied to whole window. side switches the orientation of the staple mark, with the legs pointing according away from named the axis.

Value

Graphical Side Effect

Author(s)

Jonathan M. Lees<jonathan.lees.edu>

Examples

plot(c(0,1), c(0,1), type='n', xlab='', ylab='' )


winmark(.3, .7,       side=3, col='brown', arrows=TRUE, leglen=.4)
winmark(.3, .7,       side=1, col='blue', arrows=TRUE, leglen=.5)

winmark(.3, .7,        side=2, col='green',
arrows=TRUE, alen=.05, leglen=.4)


winmark(.3, .7,      leg=.65, bar=.6,
side=4, col='orange', arrows=TRUE, alen=.1, leglen=.125)


winmark(.3, .7,      bar=.65, leg=.6,
side=4, col='seagreen', arrows=TRUE, alen=.1, leglen=.125)
#############  examples with different legs showing
plot(c(0,1), c(0,1), type='n', xlab='', ylab='' )

winmark(.3, .7,       side=3, col='brown',
arrows=TRUE, leglen=.4, LEGON=1)
winmark(.3, .4,       side=1, col='brown',
 arrows=TRUE, leglen=.4, LEGON=2)
winmark(.7, .9,       side=1, col='blue',
arrows=TRUE, leglen=.4, LEGON=0)

RSEIS documentation built on Sept. 13, 2024, 1:09 a.m.