R/DrawSegmentAngle.R

Defines functions DrawSegmentAngle

DrawSegmentAngle<-function(P, angle, l, color){
  P1=P
  angle=(pi*angle)/180
  P2=P+c(l*cos(angle), l*sin(angle))
  segments(P1[1], P1[2], P2[1], P2[2], col=color)
  return()
}

Try the LearnGeom package in your browser

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

LearnGeom documentation built on July 14, 2020, 5:06 p.m.