StereoPlane {RockFab}

Add plane data to stereonet.

Description

Function adds a great circle to existing plot based on the strike and dip of a plane.

Usage

StereoPlane(my.strike = 0, my.dip = 45, my.color = "black")

Arguments

my.strike

The strike of the plane to plot as a great circle.

my.dip

The dip of the plane to plot as a great circle.

my.color

The line color used in the plot.

Value

Adds great circle of plane to existing plot.

Author(s)

Jeffrey R. Webber

References

Modified from the package RFOC by Jonathan M. Lees.

See Also

StereoPlot, StereoWeb, StereoCirc, StereoPoint

Examples

#Plot random plane and lineation
strike <- runif(min = 0, max = 360, n = 1)
dip <- runif(min = 0, max = 90, n = 1)
trend <- runif(min = 0, max = 360, n = 1)
plunge <- runif(min = 0, max = 90, n = 1)

if(interactive()){
  StereoPlot(my.title = "Example Stereonet")
  StereoWeb()
  StereoCirc()
  StereoPoint(my.az = trend, my.inc = plunge)
  StereoPlane(my.strike = strike, my.dip = dip)
}