#! /bin/csh -f# ----------------------------------------------------------------#       Speech Signal Processing Toolkit (SPTK): version 3.0# 		       SPTK Working Group# # 		 Department of Computer Science# 		 Nagoya Institute of Technology# 			      and#   Interdisciplinary Graduate School of Science and Engineering# 		 Tokyo Institute of Technology# 		    Copyright (c) 1984-2000# 		      All Rights Reserved.# # Permission is hereby granted, free of charge, to use and# distribute this software and its documentation without# restriction, including without limitation the rights to use,# copy, modify, merge, publish, distribute, sublicense, and/or# sell copies of this work, and to permit persons to whom this# work is furnished to do so, subject to the following conditions:# #   1. The code must retain the above copyright notice, this list#      of conditions and the following disclaimer.# #   2. Any modifications must be clearly marked as such.#                                                                        # NAGOYA INSTITUTE OF TECHNOLOGY, TOKYO INSITITUTE OF TECHNOLOGY,# SPTK WORKING GROUP, AND THE CONTRIBUTORS TO THIS WORK DISCLAIM# ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT# SHALL NAGOYA INSTITUTE OF TECHNOLOGY, TOKYO INSITITUTE OF# TECHNOLOGY, SPTK WORKING GROUP, NOR THE CONTRIBUTORS BE LIABLE# FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY# DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,# WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS# ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR# PERFORMANCE OF THIS SOFTWARE.# ----------------------------------------------------------------##########################################################################									##   Draw a Waveform							##									##						1997.1  K.Koishida	##									##########################################################################onintr cleanset path	= ( /usr/local/SPTK/bin $path )set cmnd	= $0set cmnd	= $cmnd:tset file@ start		= 0@ term          = -1@ numscreen	= 5@ numdata	= 2000set ymax	= 2000set pen		= 1	set type	= fset flagy2	= 0set flagfile	= 0set flagnumdata	= 0set flagy	= 0@ i = 0while ($i < $#argv)	@ i++	switch ($argv[$i])	case -s:		@ i++		set start = $argv[$i]		breaksw	case -e:		@ i++		set term = $argv[$i]		breaksw	case -n:		@ i++		@ numdata = $argv[$i]		set flagnumdata = 1		breaksw	case -i:		@ i++		set numscreen = $argv[$i]		breaksw	case -y:		@ i++		set ymax = $argv[$i]		set flagy = 1		breaksw	case -y2:		@ i++		set ymin = $argv[$i]		set flagy = 1		set flagy2 = 1		breaksw	case -p:		@ i++		set pen = $argv[$i]		breaksw	case +s:		set type = s		breaksw	case +i:		set type = i		breaksw	case +f:		set type = f		breaksw	case +d:		set type = d		breaksw	case -h:		set exit_status = 0		goto usage		breaksw	default:		set file = $argv[$i]		set flagfile = 1		if ( ! -f $file ) then			echo2 "${cmnd}: Can't open file "'"'"$file"'"'" \!"			set exit_status = 1			goto usage		endif		breaksw	endswendcat $file > /tmp/$$set file = /tmp/$$goto mainusage:	echo2 ''	echo2 " $cmnd - draw a waveform"	echo2 ''	echo2 '  usage:'	echo2 "       $cmnd [ options ] [ infile ] > stdout"	echo2 '  options:'	echo2 '       -s  s         : start point                  [0]'	echo2 '       -e  e         : end point                    [EOF]'	echo2 '       -n  n         : data number of one screen    [N/A]'	echo2 '       -i  i         : number of screen             [5]'	echo2 '       -y  ymax      : maximum amplitude            [N/A]'	echo2 '       -y2 ymin      : minimum amplitude            [-ymax]'	echo2 '       -p  p         : pen number                   [1]'	echo2 '       +type         : input data type              [f]'	echo2 '                        s (short)  i (int)             '	echo2 '                        f (float)  d (double)          '	echo2 '       -h            : print this message'	echo2 '  infile:'	echo2 '       waveform                                     [stdin]'	echo2 '  stdout:'	echo2 '       XY-plotter command'	echo2 '  notice:'	echo2 '       If options of amplitude are not used,'	echo2 '        value of amplitude is deautomatically determined.'	echo2 '       If -n option is not used,'	echo2 '        entire waveform is displayed.'	echo2 ''exit $exit_statusmain:if ( ! $flagnumdata ) then	if ( $term > 0 ) then		@ wc = $term	else		set wc = ` x2x +{$type}a $file | wc -l `	endif	@ wc = $wc - $start			@ rest = $wc % $numscreen	@ wc /= $numscreen	if ($rest) @ wc++	@ numdata = $wcendifif ( ! $flagy ) then	set val = (`x2x +{$type}f < $file | minmax | x2x +fs | x2x +sa`)	if ( $val[1] < 0 ) then		@ val[1] *= -1	endif	if ( $val[1] > $val[2] ) then		@ ymax = $val[1]		@ ymin = -$val[1]	else		@ ymax = $val[2]		@ ymin = -$val[2]	endifendifif ( ! $flagy2 ) then	set ymin = -$ymaxendifset width	= 1.7set height	= 0.4@ n1		= $numdata - 1@ end		= $start + $n1@ ox		= 20@ oy 		= 225@ xs 		= $start@ xe		= $xs + $n1if ( $numdata < 10 ) then	@ dx = 1else	@ dx = $numdata / 10endifwhile ( $numscreen > 0 )	@ i = 0	set xscale = ()	while ( $i < 10 )		@ x = $dx * $i + $xs		set xscale = ($xscale $x)		@ i++	end	fig -o $ox $oy -W $width -H $height -p $pen << EOF		x 	$xs $xe		y	$ymin $ymax		xscale	$xscale		yscale	$ymin $ymaxEOF	x2x +{$type}f $file |\	bcut -s $start -e $end |\	fdrw -o $ox $oy -W $width -H $height -p $pen -g 0 \	     -y $ymin $ymax -n $numdata	@ numscreen--	@ oy 	-= 50	@ xs 	+= $numdata	@ xe 	+= $numdata	@ start	+= $numdata	@ end	+= $numdataendclean:/bin/rm -f /tmp/$$