Assorted away-tpope updates
[tpope-extra.git] / bin / terraservice
1 #!/bin/bash
2 # $Id$
3 # -*- sh -*- vim: ft=sh sw=4 sts=4
4
5 if [ "$#" != 3 -a "$#" != 4 ]; then
6     echo "Usage: `basename $0` <LAT> <LON> <SCALE> [<IMAGE NAME>]" >&2
7     exit 1
8 fi
9
10 i=1
11 j=10
12
13 while [ "`expr $i \* 3000`" -lt "$3" -a $i -lt 64 ]; do
14     i="`expr $i \* 2`"
15     j="`expr $j + 1`"
16 done
17
18 file=0
19 while [ -f "$HOME/.gpsdrive/top_file`printf %04d $file`.jpg" ]; do
20     file="`expr $file + 1`"
21 done
22 file=file"`printf %04d $file`"
23
24 wget -q "http://terraservice.net/GetImageArea.ashx?t=1&lat=$1&lon=$2&s=$j&w=1280&h=1024" -O /tmp/terraservice-$$.jpg || exit 1
25
26 mv /tmp/terraservice-$$.jpg "$HOME/.gpsdrive/top_${4:-$file}.jpg"
27
28 echo "top_${4:-$file}.jpg" $1 $2 `expr 180352 \* $i / 64` >> "$HOME/.gpsdrive/map_koord.txt"
29 #echo "top_${4:-$file}.jpg" $1 $2 `expr 181417 \* $i / 64` >> "$HOME/.gpsdrive/map_koord.txt"
30