%Style-Datei f"ur umflossene Zeichen - Helmut Kopka, Peter Felix Schuster
\ProvidesPackage{jur-umfl}[2006/02/28 v0.03 Paket f"ur Zier-Initialen]

%Dann das Makro \umfluss zur vereinfachten Eingabe eines umflossenen Textes
%Aufruf \umfluss[einger"uckte Zeilen]{Text} - Voreinstellung f"ur einger"uckte Zeilen ist 4
% Die erste Zeile sollte nicht einger"uckt sein (\noindent).
% Mit leichten Ver"anderungen abgeschrieben aus Kopka LaTeX 2 (2.A) Kap. 2.4.3.5 (S. 119) bzw
% (3.A) Kap. 2.3.5 (S. 126)
% \newdimen\umfltmp richtet \umfltmp als tempor"are Box ein. Dieser wird der Wert 80\% der H"ohe der Box 0 zugewiesen
% \hangindent = Einr"uckung einer Zeile. Wenn n>0 links einr"ucken, wenn n<0, rechts einr"ucken
% \hangafter = f"ur wie viele Zeilen. n<0: ersten n Zeilen einr"ucken, danach nicht. n>0 ersten n nicht einr"ucken,
%              sondern alle folgenden
% \setbox = Box-Register belegen
% \wd = Breite der Box ermitteln
% \ht = H"ohe der Box ermitteln
% \advance ... by ... erweitert (oder verk"urzt) eine L"angeneinheit (hier \hangindent)
% \hskip = Horizontalen Leerraum erstellen
% \raisebox{dimen}[H"ohe][Tiefe]{Text} Der angegebene Text wird in einer \hbox um L"ange dimen (\umfltmp) nach oben
%                                      verschoben. H"ohe/Tiefe gibt die (restlichen) Ma"se f"ur die \hbox an.
% \unhbox = Inhalt der Box (Text) ausgeben, aber "au"sere Box l"oschen
\newdimen\umfltmp
\newcommand{\umfluss}[2][4]{\setbox0=\hbox{{#2}}%
\hangindent=\wd0\hangafter=-#1 \advance\hangindent by .25em
\umfltmp=-.8\ht0 \hskip-\wd0 \hskip-.25em
\raisebox{\umfltmp}[0pt][0pt]{\unhbox0}\hskip.25em}

%Ursprgl f"ur das Infosymbel, mit "Anderungen (die Abst"ande betreffenden)
%\newdimen\infotemp
%\newcommand{\infosymbol}[1]{\setbox0=\hbox{\Huge #1}%
%\hangindent=\wd0\hangafter=-2 \advance\hangindent by .25em
%\infotemp=-.666\ht0 \hskip-\wd0 \hskip-.25em
%\raisebox{\infotemp}[0pt][0pt]{\unhbox0}\hskip.25em}

%\newdimen\ytmp
%\newcommand{\yinitpar}[1]{\setbox0=\hbox{\textinit{#1}}%
%\hangindent=\wd0\hangafter=-4 \advance\hangindent by .25em
%\ytmp=-.8\ht0 \hskip-\wd0 \hskip-.25em
%\raisebox{\ytmp}[0pt][0pt]{\unhbox0}\hskip.25em}


\endinput