#
## \section{k-means-rsh}
## 
## \subsection*{Purpose}
## Classify an image sequence by the K-means algorithm in a remote shell
## Used as a subroutine to kmeans_classify
## 
## \subsection*{Usage }
## \begin{verbatim}
## k-means-rsh [-ff feature file <filename>]
##    [-cf classified file <filename>]
##    [-sf statistics file <filename>]
##    [-classes number of classes <integer>]
## \end{verbatim}
## \begin{description}
##   \item[-U]
## 	Print usage information
##   \item[-sn]
## 	filter structure number
##   \item[-dec]
## 	decimate the filter output?
##   \item[-ff]
## 	feature file (Khoros image (sequence))
##   \item[-cf]
## 	classified (output) file (Khoros image)
##   \item[-sf]
## 	output statistics file
##   \item[-classes]
## 	number of classes (default 2)
## \end{description}
##
## \subsection*{Date created}
## March 1994

#
# Classify an image sequence by the K-mean algorithm in a remote shell

@ counter=0

while ($counter != $#argv )
  @ counter+=1
    switch ($argv[$counter])
      case "-ff":
	@ counter+=1
	set feature=$argv[$counter]
	breaksw
      case "-cf":
	@ counter+=1
	set classified=$argv[$counter]
	breaksw
      case "-sf":
	@ counter+=1
	set stat_file=$argv[$counter]
	breaksw
      case "-classes":
	@ counter++
	set classes=$argv[$counter]
	breaksw
      default:		
	echo "k-means-rsh:"
	echo "	Options"
	echo "	  -U		-- print usage"
	echo "	  -ff @@@	-- input feature file"
	echo "	  -cf @@@	-- output classification file"
	echo "	  -sf @@@	-- output statistics file"
	echo "	  -classes ##	-- number of classes"
	exit
	breaksw
    endsw
end

setenv KHOROS_HOME /usr/local/khoros
${KHOROS_HOME}/bin/${HOSTTYPE}/vkmeans -i1 $feature -o1 $classified \
					 -f2 $stat_file -k $classes