Syncline and Anticline traces
SynAnticline(x, y, syn = TRUE, spacing = NULL, N = 1, r1 = 1, r2 = 1.2, h1 = 0, h2 = 0, endtol = 0.1, REV = FALSE, col = "black", ...)
x
: x-coordinatesy
: y-coordinatessyn
: logical, TRUE=syncline, FALSE=anticlinespacing
: spacing of pointsN
: number of pointsr1
: x-radius of curled partr2
: y-radius of curled parth1
: length of first legh2
: length of 2nd legendtol
: indent on either endsREV
: reverse direction of x-ycol
: color of teeth and line...
: graphical parametersGraphical Side effect
Jonathan M. Lees<jonathan.lees@unc.edu
PointsAlong
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) ######## anticline plot(c(-5,5), c(-5,5), asp=1, type='n' ) SynAnticline(G$x,G$y, N=5, syn=FALSE, endtol=.2) ######## syncline plot(c(-5,5), c(-5,5), asp=1, type='n' ) SynAnticline(G$x,G$y, N=5, syn=FALSE, endtol=.2)
Useful links