---
title: "maja"
output: html_document
---


```{r}
  trepikodadeArv=10
  trepikojaLaius=12
  ukseKatus="jah"
  uksePostid="jah"
  ukseV2rv="brown"
```

```{r}
  plot(0, 0, xlim=c(0, (trepikodadeArv+1)*trepikojaLaius), 
                       ylim=c(0,20), type="n")
  for(nr in 1:trepikodadeArv){
     rect(nr*trepikojaLaius+1, 0, nr*trepikojaLaius+2, 2, col = ukseV2rv)
     if(ukseKatus=="jah"){
       segments(nr*trepikojaLaius, 2.5, nr*trepikojaLaius+3, 2.5 )
     }
     #Lisage uksepostid, kui muutujas tellitud
     if(uksePostid=="jah"){
       segments(nr*trepikojaLaius+0.5, 2.5, nr*trepikojaLaius+0.5, 0 )
       segments(nr*trepikojaLaius+2.5, 2.5, nr*trepikojaLaius+2.5, 0 )
     }
  }
```

```{r}
  trepikodadeArv=3
  trepikojaLaius=12
  korrusteArv=4
  korruseK6rgus=3
  ukseKatus="jah"
  uksePostid="jah"
  ukseV2rv="brown"
  klaasiV2rv="yellow" #lisage aknaklaasile värv
  p6lemisT6en2osus=0.3
```

```{r}
  plot(0, 0, xlim=c(0, (trepikodadeArv+1)*trepikojaLaius), 
                       ylim=c(0,20), type="n")
  for(nr in 1:trepikodadeArv){
     rect(nr*trepikojaLaius+1, 0, nr*trepikojaLaius+2, 2, col = ukseV2rv)
     if(ukseKatus=="jah"){
       segments(nr*trepikojaLaius, 2.5, nr*trepikojaLaius+3, 2.5 )
     }
     #Lisage uksepostid, kui muutujas tellitud
     if(uksePostid=="jah"){
       segments(nr*trepikojaLaius+0.5, 2.5, nr*trepikojaLaius+0.5, 0 )
       segments(nr*trepikojaLaius+2.5, 2.5, nr*trepikojaLaius+2.5, 0 )
     }
     for(knr in 1:korrusteArv){
       rect(nr*trepikojaLaius, knr*korruseK6rgus, 
            nr*trepikojaLaius+2, knr*korruseK6rgus+2,
            col=ifelse(runif(1)<p6lemisT6en2osus, "yellow", "white"))
       rect(nr*trepikojaLaius+3, knr*korruseK6rgus, nr*trepikojaLaius+5, knr*korruseK6rgus+2)
     }
  }
```