#!/bin/tcsh
# makes djvu images at 1600x1200, 800x600, 640x480
# makes jpeg thumbnails 128x128
set bindir=`pwd`/$0:h
pushd $1
set allpegs=(???-*.{jpg,JPG} {DSC,dsc,P00}?????.{jpg,JPG} {MOV,mov}?????.{mpg,MPG})
set jpegs=({DSC,dsc,P00}?????.{jpg,JPG})
foreach i ( $jpegs )
  djpeg -scale 1/2 $i | cjpeg -q 75 > $i:t:r:r.m.jpg
  djpeg $i | pnmscale 0.4 | cjpeg -q 75 > $i:t:r:r.l.jpg
end
$bindir/make-thumbs -s 128 -q 75 -e .t $allpegs
$bindir/make-djvus        -e .h -o index.h.djvu $jpegs
$bindir/make-djvus -s 1/2 -e .m -o index.m.djvu $jpegs
$bindir/make-djvus -s 0.4 -e .l -o index.l.djvu $jpegs
$bindir/make-index $allpegs >index.html
popd