ellipse: draw an ellipse

In tjconstant/photonMonkey: Misc Tools for Photonics

Usage

ellipse(x, y, a, b)

Arguments

x
y
a
b

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (x, y, a, b) 
{
    nseg = 360
    x.cent <- x
    y.cent <- y
    xx <- x.cent + a * cos(seq(0, 2 * pi, length.out = nseg))
    yy <- y.cent + b * sin(seq(0, 2 * pi, length.out = nseg))
    lines(xx, yy, col = "red")
    return(cbind(xx, yy))
  }

tjconstant/photonMonkey documentation built on May 31, 2019, 3:38 p.m.