R/StereoCirc.R

Defines functions StereoCirc

Documented in StereoCirc

StereoCirc <-
function(n.seg = 360){
  cir.x <- cos(seq(from = 0, to  = 2 * pi, length = n.seg))
  cir.y <- sin(seq(from = 0, to  = 2 * pi, length = n.seg))
  lines(cir.x, cir.y)
  lines(c(-0.025, 0.025), c(0, 0), lwd = .5)
  lines(c(0, 0), c(-0.025, 0.025), lwd = .5)
}

Try the RockFab package in your browser

Any scripts or data that you put into this service are public.

RockFab documentation built on June 23, 2022, 9:11 a.m.