| winmark {RSEIS} | R Documentation |
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)