#' Uute geomeetriliste joonte genereerimine ja salvestamine andmebaasi.
#'

source("01_funktsioonid.R")

## 2. Ortofotode allalaadimine
# kaardiruutude nimekiri
epk10t <- pk_epk10t(obj = objektid[i])
epk10t_nr <- epk10t$nr
j <- 2
pattern <- sprintf("%s.tif", epk10t_nr[j])
# pattern <- "62084.tif"
ls <- list.files(path = "~/ortofotod/", pattern = pattern)
if (length(ls) == 0) {
  estmap::maaamet_ortofotod(epk10t = epk10t_nr[j])
}


## 6. Piirkonna piirikastide maatriksite loomine