---
title: "staadion"
output: html_document
---
 Staadioni joonise koostamise parameetrid
```{r}
  keskjoon="jah"
  pinkidearv=8
```
 Joonis ise
```{r}
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)
}
```

```{r}

```