#!/bin/csh -f
# 01.09.92 rename Alex Urrutia + Keven Fedirko v1.00
#
# This interactive script will change the name of a sequence of frames to
# another name.  This is very useful in post-processing
 
if ($#argv < 2) then
	echo
	echo "Usage: rename <from> <to>"
	echo
	exit -1
endif
foreach i ( `\ls ./$1*.pic` )
	set nohead = $i:t
	set root1 = $nohead:r
	set count = $root1:e
	echo "mv $nohead $2.$count.pic"
	mv $i $2.$count.pic
end
