#!/bin/sh
pngd=local
rot=
res=
sca="-resize 100%"
mrg=
scp=0

# new option -s <sca> => convert -rescale <sca>
#     e.g.   -s 50%
# 
#  we replace -density <nnn>x<nnn> (convert) with -E<nnn> (gmt psconvert)
#     option  -d <nnn>  understands also  <nnn>x<nnn>
# 
#  we ignore -o -O until there is /var/www/hgs;
#     instead we use new option -holt <dir>/
#     e.g.  ps2png -holt www/4me/mcplots/ $ps
#
#  we ignore -rr and -rl since this seems automatic now
#
# The old ps2png is in ~/bin/obsolete
#
while [ x`beak $1` = x- ]; do
   if [ x$1 = x-holt ]; then
      shift
      pngd=$1 scp=1
   elif [ x$1 = x-o ]; then
      shift
      pngd=$1
   elif [ x$1 = x-O ]; then
      shift
   elif [ x$1 = x-s ]; then
      shift
      sca="-rescale $1"
   elif [ x$1 = x-m ]; then
      mrg="-layers merge"
   elif [ x$1 = x-d ]; then
      shift
      res="-E"`echo $1 | sed 's|x.*||'`
   elif [ x$1 = x-rl ]; then
      rot=
   elif [ x$1 = x-rr ]; then
      rot=
   fi
   shift
done
echo pngd=$pngd

p=`echo $1 | sed -n 's|\(.*\)/.*|\1|p'`
if [ x$p = x ]; then
   p=`pwd -P`
fi
mkdir -p $HOME/tmp
echo gmt psconvert $1 -A+m1u -Tg $res
     gmt psconvert $1 -A+m1u -Tg $res
echo png=`basename $1 .ps`.png
     png=`basename $1 .ps`.png
echo mv $p/$png $HOME/tmp/tmp-$png 
echo convert $HOME/tmp/tmp-$png $p/$png
if [ -r $p/$png ]; then
 mv $p/$png $HOME/tmp/tmp-$png
 convert $sca $rot $mrg ${PS2PNG_LATEOPT:-} $HOME/tmp/tmp-$png $p/$png
 if [ x$pngd != xlocal ]; then
    if [ $scp = 1 ]; then
       ssh hgs@holt.oso.chalmers.se 'mkdir -p '$pngd
       scp2h +d $pngd/ $p/$png
       pngw=`echo $pngd | sed 's|^www/||'`
       echo "http://holt.oso.chalmers.se/hgs/$pngw$png"
    elif [ x`echo $pngd | sed -n 's|.*\(www\).*|\1|p'` = xwww ]; then
       mv $p/$png $pngd$png
       httpa -a $pngd$png
    else
       echo ready $p/$png
    fi
 else
    echo ready $p/$png
 fi
fi
exit

