#!/bin/bash

# Get ortos
# Version 20230712

# Calcule images number
numq=$(wc -l 'points.txt' | awk '{print $1}');

# set numq="5"

echo $numq;

contador=1;
# Read points
for i in $(less points.txt | awk '{print $1}' points.txt); do

less points.txt | head -$contador | tail -1 > linea-prov;

x1=$(awk '{print $1}' linea-prov);
y1=$(awk '{print $2}' linea-prov);
x2=$(echo "$x1+100" | bc -l)
y2=$(echo "$y1+100" | bc -l)

echo $contador,"  ",$x1,"  ",$y1;

contador=$(echo "$contador+1" | bc -l);

name=$x1,$y1,$x2,$y2;

echo $name;

links -source "http://mapcache.icc.cat/map/bases/service?LAYERS=orto&FORMAT=image/jpeg&EXCEPTIONS=application/vnd.ogc.se_xml&SERVICE=WMS&VERSION=1.1.1&REQUEST=GetMap&STYLES=&SRS=EPSG:25831&BBOX=$name&WIDTH=2000&HEIGHT=2000" > $name.png;

done