#!/bin/csh
echo "converting PostScript to a GIF image"
set psfile = $argv[1]".ps"
set prefix = $argv[1]
set bb = `grep "%%BoundingBox" $psfile `
set longaxis = $bb[4]
set multiplier = (`expr $longaxis / 72`)
set more = (`expr $multiplier + 1`)
set moreall = (`expr $more \* 200`)
set newlong = $moreall
set shortaxis = $bb[5]
set multiplier_short = (`expr $shortaxis / 72`)
set more_short = (`expr $multiplier_short + 1`)
set moreall_short = (`expr $more_short \* 200`)
set newshort = $moreall_short
gsgifscript $prefix $newshort $newlong
pnmscale -xscale 0.25 -yscale 0.25 $1.raw | \
pnmrotate -noantialias 90 | ppmtogif > ../seisimag/$1.gif
