#!/bin/csh
echo "converting Seismic Unix PostScript to Alden raster file ..."
set psfile = $argv[1]".ps"
set prefix = $argv[1]
set bb = `grep "%%BoundingBox" $psfile `
set longaxis = $bb[4]
echo 'Long axis is:  '$longaxis
set shortaxis = $bb[5]
echo 'Short axis is:  '$shortaxis
set multiplier = (`expr $longaxis / 72`)
set more = (`expr $multiplier + 1`)
set moreall = (`expr $more \* 200`)
set newlong = $moreall
echo 'NewLong is '$newlong
gsscript_alden $prefix $newlong
writeAldenFile -i  $prefix.raw -o $prefix.ald -h $newlong -w 2048
