#!/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 2046.0 7263.0 21 56 -gcp 23892.0 7158.0 24 56 -gcp 23874.0 33600.0 24 54 -gcp 2037.0 20556.0 21 55 1941_Strassenkarte_der_Baltischen_Laender_Blatt_5_Litauen__Westblatt_300K_mapywig.jpg 1941_Strassenkarte_der_Baltischen_Laender_Blatt_5_Litauen__Westblatt_300K_mapywig.vrt

# Add cutline to VRT
gdalwarp -r $GDAL_SAMPLING_WARP -tps -dstalpha -cutline_srs EPSG:4326 \
  -cutline "POLYGON(($(echo -e "921.0 1549.5082956259428\n24726.75 1442.9064856711916\n24742.5 35777.246229260934\n1014.75 35874.00603318251" | \
  gdaltransform -tps -output_xy 1941_Strassenkarte_der_Baltischen_Laender_Blatt_5_Litauen__Westblatt_300K_mapywig.vrt | \
  awk 'NR==1{first=$0} {printf "%s %s,", $1,$2} END{print " " first}')))" \
  1941_Strassenkarte_der_Baltischen_Laender_Blatt_5_Litauen__Westblatt_300K_mapywig.vrt 1941_Strassenkarte_der_Baltischen_Laender_Blatt_5_Litauen__Westblatt_300K_mapywig.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_5_Litauen__Westblatt_300K_mapywig.cut.vrt 1941_Strassenkarte_der_Baltischen_Laender_Blatt_5_Litauen__Westblatt_300K_mapywig.xyz