twig.try

seismic software,very useful

#! /bin/sh -x
# twig - window and sutwig on terminal
# Usage: twig <filename
#
# $Author: jkc $
# $Source: /src/su/shell/RCS/twig,v $
# $Revision: 1.6 $ ; $Date: 88/10/27 22:44:59 $


cmd=`/bin/basename $0`

# self-doc if no args and stdin not redirected or on -
if
	[ $# -eq 0 -a -t 0 -o X"$1" = X- ]
then
        echo "Usage: $cmd <stdin [min= count= j=] [sutwig options]" 1>&2
	echo "Defaults are no-fill no-labels and full-screen size" 1>&2
	exit 1
fi


min="min=1"
j="j=1"
o=""
file=""
for i
do
	case $i in
	min=*)
		min=$i
		shift
	;;
	count=*)
		count=$i
		shift
	;;
	j=*)
		j=$i
		shift
	;;
	title=*)
		title=$i
		shift
	;;
	*=*)
		o="$o $i"
		shift
	;;
	*)
		file=$i
	;;
	esac
done

case $# in
0)	# Correct usage: cmd <file or ... | cmd ...
	suwind $min $count $j |
	sutwig sizex=10.5 sizet=6.5 fill=0 $title label1="" label2="" $o |
	tube
;;
1)	# Also accept usage: cmd filename
	suwind <$file $min $count $j |
	sutwig sizex=10.5 sizet=6.5 fill=0 $title label1="" label2="" $o |
	tube
;;
*)
        echo "Usage: $cmd <stdin [min= count= j=] [sutwig options]" 1>&2
	echo "Defaults are no-fill no-labels and full-screen size" 1>&2
	exit 1
;;
esac

exit 0