semicircle: Draw a semi-circle

In tjconstant/photonMonkey: Misc Tools for Photonics

Usage

semicircle(x.center, y.center, radius, start_angle, end_angle, ...)

Arguments

x.center
y.center
radius
start_angle
end_angle
...

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.center, y.center, radius = r, start_angle, end_angle, 
    ...) 
{
    nseg = 360
    start_angler = start_angle * pi/180
    end_angler = end_angle * pi/180
    xx <- x.center + radius * cos(seq(start_angler, end_angler, 
        length.out = nseg))
    yy <- y.center + radius * sin(seq(start_angler, end_angler, 
        length.out = nseg))
    print(x.center)
    return(cbind(xx, yy))
  }

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