#!/bin/sh 
case $1 in
"") echo 'Usage: bboxify-dotplot: dotplotfile' 1>&2; exit 1;
esac

</dev/null gs -quiet -DNODISPLAY $1 quit.ps | nawk '
func min(a,b) { return ((a<b)?a:b); }
func max(a,b) { return ((a>b)?a:b); }
BEGIN {
	inch = 72
	llx = lly =  9999999.0
	urx = ury = -9999999.0
}
/bbox/ { 
	llx = min(llx, $2 - inch)
	lly = min(lly, $3 - inch/4)
	urx = max(urx, $4 + inch)
	ury = max(ury, $5 + inch/2)
}
END {
	print "%!PS-Adobe-0.0"
	print "%%BoundingBox: " llx " " lly " " urx " " ury
}
'
cat $1