#!/bin/bash
x=`cat spot | perl -pe 's/(\d+),(\d+)/$1/'`
y=`cat spot | perl -pe 's/(\d+),(\d+)/$2/'`
files=`ls [0-9][0-9].jpg`
mkdir /tmp/$$
for f in $files
do djpeg $f | pnmcut $x $y 16 16 >/tmp/$$/$f
done
(cd /tmp/$$; pnmcat -lr $files)
rm -r /tmp/$$