% 4katrin.sty
%
\usepackage[T1]{fontenc}
\usepackage{german}
\usepackage[cp850]{inputenc}
\usepackage{vmargin}
\usepackage{picinpa1}

\def\slippy{%
  \tolerance 4000%
  \emergencystretch 1em%
  \hfuzz .2\p@
  \vfuzz\hfuzz}

% horizontale Fotos (zentriert)
% Argument = Bildunterschrift
\def\hfoto#1{\begin{figure}[ht]
             \hbox to \hsize{\hss
                \fbox{\vbox to 87mm{\vss\hbox to 128mm{\hss}}}
             \hss}
             \vbox to 0pt{\vss\hbox to\hsize{\hss\footnotesize #1\hss}\vss}
             \end{figure}
%             \vspace*{-10mm}
}
% vertikale Fotos (in Text eingebunden)
% 1. Argument: Bildunterschrift
% 2. Argument: n,[rl]
%              ^--- Zahl der Zeilen vor dem Bild; r oder l für rechts bzw. links
% 3. Argument: einschließende Absätze
\renewcommand{\wincaption}{}
\long\def\vfoto#1#2#3{\begin{figwindow}[#2,o,
                             {\vbox{%
                                \hbox{%
                                 \fbox{\vbox to 128mm{\vss\hbox to 87mm{\hss}}}%
                                }%
                                \hbox to 87mm{\hss \footnotesize#1\hss}%
                              }
                             },
                             {}]
                         #3
                      \end{figwindow}
}

\setpapersize{A4}
\setmargins{30mm}{9mm}{160mm}{240mm}{12pt}{11mm}{0pt}{11mm}

% Teile römisch numerieren und diese Nummern nicht vor Abschnitte schreiben
\ifx\thechapter\undefined\relax\else
   \renewcommand\thechapter      {\Roman{chapter}}
\fi
\renewcommand\thesection      {\@arabic\c@section}

% Teile im Text wie section nur etwas größer und auf eine neue Seite
\ifx\chapter\undefined\relax\else
\renewcommand\chapter{\clearpage
                      \@startsection{chapter}{0}{\z@}%
                                   {-4ex \@plus -1ex \@minus -.2ex}%
                                   {3.1ex \@plus.2ex}%
                                   {\normalfont\huge\bfseries}}
\fi

% Bis zu subsubsection numerieren 
\setcounter{secnumdepth}{5}
% ... und ins Inhaltsverzeichnis übernehmen
\setcounter{tocdepth}{5}

% Im Inhaltsverzeichnis vertikale Abstände festlegen (2. Argument)
\ifx\l@chapter\undefined\relax\else
\renewcommand*\l@chapter{\katrin@tocline{0}{10pt}{3em}}
\fi
\renewcommand*\l@section{\katrin@tocline{1}{5pt}{3em}}
\renewcommand*\l@subsection{\katrin@tocline{2}{3pt}{3em}}
\renewcommand*\l@subsubsection{\katrin@tocline{3}{0pt}{3em}}

% Keine ausgepunktete Linie im Inhaltsverzeichnis, keine Einrückungen, dafür
% aber vertikale Abstände (#2) und falls \c@tocdepth < 1 fettdruck
\def\katrin@tocline#1#2#3#4#5{\ifnum #1>\c@tocdepth \else
  \vskip #2 \@plus.2\p@
  {\leftskip 0pt\relax \rightskip \@tocrmarg \parfillskip -\rightskip
    \parindent 0pt\relax\@afterindenttrue
   \interlinepenalty\@M
   \leavevmode
   \@tempdima #3\relax
   \advance\leftskip \@tempdima \hbox{}\hskip -\leftskip
   \ifnum #1<\@ne\bfseries\fi
    {#4}\nobreak\hfill \nobreak
           \hbox to\@pnumwidth{\hfil #5}\par}\fi}

% Bei Fußnoten die Zahl abgesetzt und den Text insgesamt eingerückt
\long\def\@makefntext#1{\leftskip=20pt\noindent
            \hbox to0pt{\hss$\m@th^{\@thefnmark}$\hbox to3pt{\hfill}}#1}

% Seitennumerierung unten wechselseitig links uns rechts
\newcommand{\ps@katrin}{%
    \renewcommand{\@evenfoot}{\textrm{\thepage}\hfill}%
    \renewcommand{\@oddfoot}{\hfill\textrm{\thepage}}%
}
\pagestyle{katrin}

% Für Einleitung, Abkürzungsverzeichnis, Vorwort, Quellen, ...
\def\ksection#1{\section*{#1}
                \addcontentsline{toc}{section}{\protect\numberline{}#1}}
\def\ksubsection#1{\subsection*{#1}
                \addcontentsline{toc}{subsection}{\numberline{}#1}}
\def\ksubsubsection{\subsubsection*}

% Für Quellen und Literatur
\newif\ifderselbe
\derselbefalse
\newtoks\ders
\def\ders{}
\def\Derselbe{Ders.}
\def\Dieselbe{Dies.}
\newcommand{\kbib}[3]{%
   \vbox{%                            Eintrag zusammenhalten
      \noindent\hangindent=1cm%
      \def\kbibtest{#1}%
      \ifx\kbibtest\empty\relax%
      \else%
         \ifderselbe\relax\else%      "Ders." oder richtigen Autor drucken
            \ifx\kbibtest\Derselbe%
               \def\kbibtest{\ders}%
            \else%
               \ifx\kbibtest\Dieselbe%
                  \def\kbibtest{\ders}%
               \else
                  \gdef\ders{#1}%
               \fi
            \fi%
         \fi%
         {\sc \kbibtest:\ }%
      \fi%
      #2\ #3%
   }%
   \vskip 5\p@ \@plus1\p@%         Abstand zwischen den Punkten
}

% Um "Ders." zu erhalten, Option [derselbe] angeben
\DeclareOption{derselbe}{\derselbetrue}

% \section auf eine neue Seite
\DeclareOption{SectionOnNewpage}{
   \let\latexsection=\section
   \renewcommand{\section}{\clearpage\latexsection}
}

\ProcessOptions

\def\FNders{}
\def\gDerselbe{Ders.}
\def\gDieselbe{Dies.}
\def\kDerselbe{ders.}
\def\kDieselbe{dies.}
\let\Fnote=\footnote
\newcommand{\Autor}[1]{
   \def\derstest{#1}%
   \ifderselbe\relax\else%            "Ders." oder richtigen Autor drucken
      \ifx\derstest\gDerselbe%
         \def\derstest{\FNders}%
      \else
         \ifx\derstest\gDieselbe%
            \def\derstest{\FNders}%
         \else
            \ifx\derstest\kDerselbe%
               \def\derstest{\FNders}%
            \else
               \ifx\derstest\kDieselbe%
                  \def\derstest{\FNders}%
               \else    
                 \gdef\FNders{#1}%
               \fi
            \fi
         \fi
      \fi%
   \fi%
   {\sc \derstest}%
}
\newcommand{\kTitel}[1]{#1}

\endinput

