#!/bin/csh
echo "converting PostScript to TDU raster file ..."
set psfile = $argv[1]".ps"
set prefix = $argv[1]
set bb = `grep "%%BoundingBox" $psfile `
set longaxis = $bb[4]
set shortaxis = $bb[5]
set multiplier = (`expr $longaxis / 72`)
set more = (`expr $multiplier + 1`)
set moreall = (`expr $more \* 200`)
set newlong = $moreall
gsscript $prefix $newlong
invseismic $prefix $newlong
