joonistus

  plot(0, 0, xlim=c(0, 10), ylim=c(0, 10), type="n")
  segments(1, 8, 3, 8)
  segments(2, 8, 2, 4, col="blue")
  #Tehke joontest A-täht
  points(8, 9)
  points(9, 9, pch=19, cex=3, col="red")
   #täht koodiga 19, suurus 3 suhtelist ühikut
 
  keskx=9
  kesky=9
  kiirtearv=10
  raadius=4
  nurgad=seq(0, 6.28, length.out=kiirtearv)
  nurgad

##  [1] 0.0000000 0.6977778 1.3955556 2.0933333 2.7911111 3.4888889 4.1866667
##  [8] 4.8844444 5.5822222 6.2800000

  x1d=rep(keskx, kiirtearv)
  y1d=rep(kesky, kiirtearv)
  x2d=x1d+raadius*cos(nurgad)
  y2d=y1d+raadius*sin(nurgad)
  segments(x1d, y1d, x2d, y2d, col="yellow", lwd=2, lty=2)

   #line width, line type