Great-circle segment between two vectors

Plots the great-circle segment between two vectors

Usage

stereo_segment(
  x,
  y,
  upper.hem = FALSE,
  earea = TRUE,
  n = 100L,
  BALL.radius = 1,
  ...
)

Arguments

x, y

objects of class "Vec3", "Line", "Ray", or "Plane"

upper.hem

logical. Whether the projection is shown for upper hemisphere (TRUE) or lower hemisphere (FALSE, the default).

earea

logical TRUE for Lambert equal-area projection (also "Schmidt net"; the default), or FALSE for meridional stereographic projection (also "Wulff net" or "Stereonet").

n

integer. number of points along greatcircle (100 by default)

BALL.radius

numeric size of sphere

...

graphical parameters passed to graphics::lines()

See also

slerp(), stereo_greatcircle

Examples

x <- Line(120, 7)
y <- Line(10, 13)
plot(rbind(x, y))
stereo_segment(x, y, col = "red")


# For multiple segments use lapply():
set.seed(20250411)
mu <- Line(45, 10)
x <- rvmf(100, mu = mu)
plot(x)
lapply(seq_len(nrow(x)), FUN = function(i) {
  stereo_segment(x[i, ], mu, col = i)
})
#> [[1]]
#> NULL
#> 
#> [[2]]
#> NULL
#> 
#> [[3]]
#> NULL
#> 
#> [[4]]
#> NULL
#> 
#> [[5]]
#> NULL
#> 
#> [[6]]
#> NULL
#> 
#> [[7]]
#> NULL
#> 
#> [[8]]
#> NULL
#> 
#> [[9]]
#> NULL
#> 
#> [[10]]
#> NULL
#> 
#> [[11]]
#> NULL
#> 
#> [[12]]
#> NULL
#> 
#> [[13]]
#> NULL
#> 
#> [[14]]
#> NULL
#> 
#> [[15]]
#> NULL
#> 
#> [[16]]
#> NULL
#> 
#> [[17]]
#> NULL
#> 
#> [[18]]
#> NULL
#> 
#> [[19]]
#> NULL
#> 
#> [[20]]
#> NULL
#> 
#> [[21]]
#> NULL
#> 
#> [[22]]
#> NULL
#> 
#> [[23]]
#> NULL
#> 
#> [[24]]
#> NULL
#> 
#> [[25]]
#> NULL
#> 
#> [[26]]
#> NULL
#> 
#> [[27]]
#> NULL
#> 
#> [[28]]
#> NULL
#> 
#> [[29]]
#> NULL
#> 
#> [[30]]
#> NULL
#> 
#> [[31]]
#> NULL
#> 
#> [[32]]
#> NULL
#> 
#> [[33]]
#> NULL
#> 
#> [[34]]
#> NULL
#> 
#> [[35]]
#> NULL
#> 
#> [[36]]
#> NULL
#> 
#> [[37]]
#> NULL
#> 
#> [[38]]
#> NULL
#> 
#> [[39]]
#> NULL
#> 
#> [[40]]
#> NULL
#> 
#> [[41]]
#> NULL
#> 
#> [[42]]
#> NULL
#> 
#> [[43]]
#> NULL
#> 
#> [[44]]
#> NULL
#> 
#> [[45]]
#> NULL
#> 
#> [[46]]
#> NULL
#> 
#> [[47]]
#> NULL
#> 
#> [[48]]
#> NULL
#> 
#> [[49]]
#> NULL
#> 
#> [[50]]
#> NULL
#> 
#> [[51]]
#> NULL
#> 
#> [[52]]
#> NULL
#> 
#> [[53]]
#> NULL
#> 
#> [[54]]
#> NULL
#> 
#> [[55]]
#> NULL
#> 
#> [[56]]
#> NULL
#> 
#> [[57]]
#> NULL
#> 
#> [[58]]
#> NULL
#> 
#> [[59]]
#> NULL
#> 
#> [[60]]
#> NULL
#> 
#> [[61]]
#> NULL
#> 
#> [[62]]
#> NULL
#> 
#> [[63]]
#> NULL
#> 
#> [[64]]
#> NULL
#> 
#> [[65]]
#> NULL
#> 
#> [[66]]
#> NULL
#> 
#> [[67]]
#> NULL
#> 
#> [[68]]
#> NULL
#> 
#> [[69]]
#> NULL
#> 
#> [[70]]
#> NULL
#> 
#> [[71]]
#> NULL
#> 
#> [[72]]
#> NULL
#> 
#> [[73]]
#> NULL
#> 
#> [[74]]
#> NULL
#> 
#> [[75]]
#> NULL
#> 
#> [[76]]
#> NULL
#> 
#> [[77]]
#> NULL
#> 
#> [[78]]
#> NULL
#> 
#> [[79]]
#> NULL
#> 
#> [[80]]
#> NULL
#> 
#> [[81]]
#> NULL
#> 
#> [[82]]
#> NULL
#> 
#> [[83]]
#> NULL
#> 
#> [[84]]
#> NULL
#> 
#> [[85]]
#> NULL
#> 
#> [[86]]
#> NULL
#> 
#> [[87]]
#> NULL
#> 
#> [[88]]
#> NULL
#> 
#> [[89]]
#> NULL
#> 
#> [[90]]
#> NULL
#> 
#> [[91]]
#> NULL
#> 
#> [[92]]
#> NULL
#> 
#> [[93]]
#> NULL
#> 
#> [[94]]
#> NULL
#> 
#> [[95]]
#> NULL
#> 
#> [[96]]
#> NULL
#> 
#> [[97]]
#> NULL
#> 
#> [[98]]
#> NULL
#> 
#> [[99]]
#> NULL
#> 
#> [[100]]
#> NULL
#> 
points(mu, pch = 16, col = "white")