semicircle: Draw a semi-circle

Usage Arguments Examples

View source: R/semicircle.R

Usage

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

Arguments

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

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
##---- 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 Feb. 19, 2018, 7:05 a.m.