#!/bin/bash

GDAL_TILE_PROCESSES=16
GDAL_TILE_ZOOMS=8-14
GDAL_SAMPLING_WARP=cubic
GDAL_SAMPLING_TILE=antialias

# Create virtual dataset with coordinates
gdal_translate -of VRT -a_srs EPSG:4326 -outsize 300% 300% -gcp 3453.0 4716.0 24.5 58 -gcp 17262.0 4455.0 26.5 58 -gcp 29133.0 33549.0 28 55.75 -gcp 3579.0 34260.0 24.5 55.75 1941_Strassenkarte_der_Baltischen_Laender_Blatt_4_Lettland__Ostblatt_mapywig_COMP85.jpg 1941_Strassenkarte_der_Baltischen_Laender_Blatt_4_Lettland__Ostblatt_mapywig_COMP85.vrt

# Add cutline to VRT
gdalwarp -r $GDAL_SAMPLING_WARP -tps -dstalpha -cutline_srs EPSG:4326 \
  -cutline "POLYGON(($(echo -e "1350.0 19896.443438914026\n927.0 19329.55354449472\n915.0 16562.250377073906\n1338.0 16208.930618401206\n1290.0 1898.9841628959275\n15708.0 1865.9834087481145\n30111.0 1900.5392156862747\n30079.5 36058.52262443439\n15754.5 36062.978129713425\n1435.5 36153.02790346908" | \
  gdaltransform -tps -output_xy 1941_Strassenkarte_der_Baltischen_Laender_Blatt_4_Lettland__Ostblatt_mapywig_COMP85.vrt | \
  awk 'NR==1{first=$0} {printf "%s %s,", $1,$2} END{print " " first}')))" \
  1941_Strassenkarte_der_Baltischen_Laender_Blatt_4_Lettland__Ostblatt_mapywig_COMP85.vrt 1941_Strassenkarte_der_Baltischen_Laender_Blatt_4_Lettland__Ostblatt_mapywig_COMP85.cut.vrt

# Generate tiles
gdal2tiles.py -r $GDAL_SAMPLING_TILE --xyz -z $GDAL_TILE_ZOOMS -x --processes=$GDAL_TILE_PROCESSES 1941_Strassenkarte_der_Baltischen_Laender_Blatt_4_Lettland__Ostblatt_mapywig_COMP85.cut.vrt 1941_Strassenkarte_der_Baltischen_Laender_Blatt_4_Lettland__Ostblatt_mapywig_COMP85.xyz