\section{tcl\-Sadie.c File Reference}
\label{tclSadie_8c}\index{tclSadie.c@{tcl\-Sadie.c}}
{\tt \#include $<$stdio.h$>$}\par
{\tt \#include $<$tcl.h$>$}\par
{\tt \#include $<$tk.h$>$}\par
{\tt \#include \char`\"{}sadie.h\char`\"{}}\par
\subsection*{Functions}
\begin{CompactItemize}
\item 
int {\bf Sadie\_\-File\-IO\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-General\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-Plot\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-New\-Functions\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-Contrast\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-Filter\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-Geometry\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-Multi\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-Classify\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-Tools\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-Image\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Sadie\_\-Proto\_\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
void {\bf usage} (void)
\item 
int {\bf verifyfile} (Tcl\_\-Interp $\ast$interp, char $\ast${\bf name})
\item 
int {\bf setlibdir\_\-env} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf setlibdir\_\-default} (Tcl\_\-Interp $\ast$interp)
\item 
void {\bf setlibdir} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf Tcl\_\-App\-Init} (Tcl\_\-Interp $\ast$interp)
\item 
int {\bf main} (int argc, char $\ast$$\ast$argv)
\end{CompactItemize}
\subsection*{Variables}
\begin{CompactItemize}
\item 
short {\bf nlev}
\item 
short {\bf csize}
\item 
double {\bf weight}
\item 
double $\ast$ {\bf count}
\item 
{\bf PIXEL} {\bf gain}
\item 
{\bf PIXEL} {\bf bias}
\item 
{\bf PIXEL} {\bf gmin}
\item 
{\bf PIXEL} {\bf gmax}
\item 
{\bf PIXEL} {\bf thresh}
\item 
{\bf PIXEL} {\bf gbrk} [2][4]
\item 
{\bf PIXEL} $\ast$ {\bf table}
\item 
char $\ast$ {\bf msg\_\-ptr}
\item 
Tcl\_\-Interp $\ast$ {\bf Main\-Tcl\-Interp}
\end{CompactItemize}


\subsection{Function Documentation}
\index{tclSadie.c@{tcl\-Sadie.c}!main@{main}}
\index{main@{main}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int main (int {\em argc}, char $\ast$$\ast$ {\em argv})}\label{tclSadie_8c_a41}




Definition at line 330 of file tcl\-Sadie.c.

References Tcl\_\-App\-Init, and usage.\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_Classify_Init@{Sadie\_\-Classify\_\-Init}}
\index{Sadie_Classify_Init@{Sadie\_\-Classify\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-Classify\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a31}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_Contrast_Init@{Sadie\_\-Contrast\_\-Init}}
\index{Sadie_Contrast_Init@{Sadie\_\-Contrast\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-Contrast\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a27}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_FileIO_Init@{Sadie\_\-FileIO\_\-Init}}
\index{Sadie_FileIO_Init@{Sadie\_\-FileIO\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-File\-IO\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a23}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_Filter_Init@{Sadie\_\-Filter\_\-Init}}
\index{Sadie_Filter_Init@{Sadie\_\-Filter\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-Filter\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a28}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_General_Init@{Sadie\_\-General\_\-Init}}
\index{Sadie_General_Init@{Sadie\_\-General\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-General\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a24}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_Geometry_Init@{Sadie\_\-Geometry\_\-Init}}
\index{Sadie_Geometry_Init@{Sadie\_\-Geometry\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-Geometry\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a29}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_Image_Init@{Sadie\_\-Image\_\-Init}}
\index{Sadie_Image_Init@{Sadie\_\-Image\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-Image\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a33}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_Multi_Init@{Sadie\_\-Multi\_\-Init}}
\index{Sadie_Multi_Init@{Sadie\_\-Multi\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-Multi\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a30}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_NewFunctions_Init@{Sadie\_\-NewFunctions\_\-Init}}
\index{Sadie_NewFunctions_Init@{Sadie\_\-NewFunctions\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-New\-Functions\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a26}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_Plot_Init@{Sadie\_\-Plot\_\-Init}}
\index{Sadie_Plot_Init@{Sadie\_\-Plot\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-Plot\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a25}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_Proto_Init@{Sadie\_\-Proto\_\-Init}}
\index{Sadie_Proto_Init@{Sadie\_\-Proto\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-Proto\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a34}


\index{tclSadie.c@{tcl\-Sadie.c}!Sadie_Tools_Init@{Sadie\_\-Tools\_\-Init}}
\index{Sadie_Tools_Init@{Sadie\_\-Tools\_\-Init}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Sadie\_\-Tools\_\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a32}


\index{tclSadie.c@{tcl\-Sadie.c}!setlibdir@{setlibdir}}
\index{setlibdir@{setlibdir}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}void setlibdir (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a39}




Definition at line 189 of file tcl\-Sadie.c.

References setlibdir\_\-default, setlibdir\_\-env, usage, and verifyfile.\index{tclSadie.c@{tcl\-Sadie.c}!setlibdir_default@{setlibdir\_\-default}}
\index{setlibdir_default@{setlibdir\_\-default}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int setlibdir\_\-default (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a38}




Definition at line 164 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!setlibdir_env@{setlibdir\_\-env}}
\index{setlibdir_env@{setlibdir\_\-env}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int setlibdir\_\-env (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a37}




Definition at line 133 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!Tcl_AppInit@{Tcl\_\-AppInit}}
\index{Tcl_AppInit@{Tcl\_\-AppInit}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Tcl\_\-App\-Init (Tcl\_\-Interp $\ast$ {\em interp})}\label{tclSadie_8c_a40}




Definition at line 230 of file tcl\-Sadie.c.

References Main\-Tcl\-Interp, msg\_\-ptr, Sadie\_\-Classify\_\-Init, Sadie\_\-Contrast\_\-Init, Sadie\_\-File\-IO\_\-Init, Sadie\_\-Filter\_\-Init, Sadie\_\-General\_\-Init, Sadie\_\-Geometry\_\-Init, Sadie\_\-Image\_\-Init, Sadie\_\-Multi\_\-Init, Sadie\_\-New\-Functions\_\-Init, Sadie\_\-Plot\_\-Init, Sadie\_\-Tools\_\-Init, and setlibdir.

Referenced by main.\index{tclSadie.c@{tcl\-Sadie.c}!usage@{usage}}
\index{usage@{usage}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}void usage (void)}\label{tclSadie_8c_a35}




Definition at line 88 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!verifyfile@{verifyfile}}
\index{verifyfile@{verifyfile}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int verifyfile (Tcl\_\-Interp $\ast$ {\em interp}, char $\ast$ {\em name})}\label{tclSadie_8c_a36}




Definition at line 107 of file tcl\-Sadie.c.

\subsection{Variable Documentation}
\index{tclSadie.c@{tcl\-Sadie.c}!bias@{bias}}
\index{bias@{bias}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}{\bf PIXEL} bias}\label{tclSadie_8c_a15}




Definition at line 47 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!count@{count}}
\index{count@{count}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}double$\ast$ count}\label{tclSadie_8c_a13}




Definition at line 45 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!csize@{csize}}
\index{csize@{csize}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}short csize}\label{tclSadie_8c_a11}




Definition at line 43 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!gain@{gain}}
\index{gain@{gain}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}{\bf PIXEL} gain}\label{tclSadie_8c_a14}




Definition at line 46 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!gbrk@{gbrk}}
\index{gbrk@{gbrk}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}{\bf PIXEL} gbrk[2][4]}\label{tclSadie_8c_a19}




Definition at line 51 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!gmax@{gmax}}
\index{gmax@{gmax}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}{\bf PIXEL} gmax}\label{tclSadie_8c_a17}




Definition at line 49 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!gmin@{gmin}}
\index{gmin@{gmin}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}{\bf PIXEL} gmin}\label{tclSadie_8c_a16}




Definition at line 48 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!MainTclInterp@{MainTclInterp}}
\index{MainTclInterp@{MainTclInterp}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}Tcl\_\-Interp$\ast$ Main\-Tcl\-Interp}\label{tclSadie_8c_a22}




Definition at line 59 of file tcl\-Sadie.c.

Referenced by Tcl\_\-App\-Init.\index{tclSadie.c@{tcl\-Sadie.c}!msg_ptr@{msg\_\-ptr}}
\index{msg_ptr@{msg\_\-ptr}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}char$\ast$ msg\_\-ptr}\label{tclSadie_8c_a21}




Definition at line 58 of file tcl\-Sadie.c.

Referenced by Tcl\_\-App\-Init.\index{tclSadie.c@{tcl\-Sadie.c}!nlev@{nlev}}
\index{nlev@{nlev}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}short nlev}\label{tclSadie_8c_a10}




Definition at line 42 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!table@{table}}
\index{table@{table}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}{\bf PIXEL}$\ast$ table}\label{tclSadie_8c_a20}




Definition at line 52 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!thresh@{thresh}}
\index{thresh@{thresh}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}{\bf PIXEL} thresh}\label{tclSadie_8c_a18}




Definition at line 50 of file tcl\-Sadie.c.\index{tclSadie.c@{tcl\-Sadie.c}!weight@{weight}}
\index{weight@{weight}!tclSadie.c@{tcl\-Sadie.c}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}double weight}\label{tclSadie_8c_a12}




Definition at line 44 of file tcl\-Sadie.c.