staadion

Staadioni joonise koostamise parameetrid

  keskjoon="jah"
  pinkidearv=8

Joonis ise

plot(1, 1, xlim=c(0, 30), ylim=c(0, 20), type="n")
if(keskjoon=="jah"){
  abline(v=15)
}
rect(0, 5, 2, 15)
for(pinginr in 0:(pinkidearv-1)){
   rect(pinginr*30/pinkidearv, 1, 2+pinginr*30/pinkidearv, 2)
}