% \iffalse meta-comment
%
%%  (C) 2006 Paul Ebermann
%%
%%   Package noitcrul - Unterstreichungen ohne "Italic correction".
%%
%%   Die Datei noitcrul.dtx sowie die dazugeh�rige
%%   noitcrul.ins sowie die damit generierte
%%   noitcrul.sty stehen unter der
%%   "LaTeX Project Public License" (LPPL, zu finden
%%   unter http://www.latex-project.org/lppl/, sowie
%%   auch in den meisten TeX-Distributionen in
%%   texmf/docs/latex/base/lppl*.txt), Version 1.3b oder
%%   sp�ter (nach Wahl des Verwenders).
%%
%%   Der 'maintenance-status' ist (zur Zeit) 'author-maintained'.
%%   
%%   Das hei�t u.a., die Dateien d�rfen frei vertrieben werden,
%%   bei �nderungen (durch andere Personen als Paul Ebermann)
%%   ist aber der Name der Datei zu �ndern.
%
% \fi
%
% \iffalse
%<package>\NeedsTeXFormat{LaTeX2e}[2003/12/01]
%<package>\ProvidesPackage{noitcrul}
%<package> [2006/04/11 v0.2 Unterstreichungen ohne italic correction (PE)]
%
%<*driver>
\documentclass[draft,ngerman]{ltxdoc}
\usepackage{noitcrul}
\usepackage{pauldoc}
\begin{document}
   \DocInput{noitcrul.dtx}
\end{document}
%</driver>
% \fi
%
% \changes{v0.1}{2006/03/23}{Erste Fassung}
% \changes{v0.2}{2006/04/11}{Packagename von \pack{underline} zu
%                            \pack{noitcrul} ge�ndert, wegen
%                            CTAN-Namenskonflikt.}
%
% \GetFileInfo{noitcrul.sty}
%
%
% \title{Das \pack{noitcrul}-Package -- Sch�nere Unterstreichungen\thanks{%
% Dieses Dokument geh�rt zu \pack{noitcrul}~\fileversion,
% vom~\filedate.}}
% \author{Paul Ebermann\thanks{\texttt{Paul-Ebermann@gmx.de}}}
%
% \maketitle
%
%  \begin{abstract}
%    Das Package stellt eine verk�rzte Unterstreichung im Mathemodus
%    -- $\noitUnderline{M}_k$ statt $\underline{M}_k$ -- zur Verf�gung.
%    Dadurch wirkt es bei folgenden Indizees �sthetischer.
%  \end{abstract}
%
% \tableofcontents
%
% \section{Benutzerdoku}
%
%  Betrachtet man \fbox{$\underline{M}_k$} und \fbox{$M_k$}, so stellt man fest, dass
%  das $k$ im zweiten Fall n�her am $M$ sitzt als im ersten Fall. Der Grund ist, das
%  die Unterstreichung noch ein St�ck �berh�ngt -- um die sogenannte \emph{italics correction},
%  d.h. die L�nge, die $M$ oben mehr als unten nach rechts ragt. Dieses Paket bietet
%  nun (f�r den Mathemodus\footnote{Ich habe das nur f�r den Mathemodus ben�tigt
%   (f�r Kategoriensymbole wie $\noitUnderline{AM}_k$), eine Implementation f�r den
%   Textmodus w�re sogar noch einfacher, denke ich -- kommt vielleicht in einer
%   sp�teren Version.}) eine Unterstreichung, welche nicht �berh�ngt.
%
%  \noindent\DescribeMacro{\noitUnderline}\marg{formel} unterstreicht \meta{formel}
%  mit vermindertem rechten �berhang. Beispielsweise ergibt '\noitUnderline{M}_k'
%  \fbox{$\noitUnderline{M}_k$}.
%
% \StopEventually{\PrintChanges\PrintIndex}
%
% \CheckSum{25}
%
% \CharacterTable
%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%   Digits        \0\1\2\3\4\5\6\7\8\9
%   Exclamation   \!     Double quote  \"     Hash (number) \#
%   Dollar        \$     Percent       \%     Ampersand     \&
%   Acute accent  \'     Left paren    \(     Right paren   \)
%   Asterisk      \*     Plus          \+     Comma         \,
%   Minus         \-     Point         \.     Solidus       \/
%   Colon         \:     Semicolon     \;     Less than     \<
%   Equals        \=     Greater than  \>     Question mark \?
%   Commercial at \@     Left bracket  \[     Backslash     \\
%   Right bracket \]     Circumflex    \^     Underscore    \_
%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%   Right brace   \}     Tilde         \~}
%
% \section{Implementation}
%
%    \begin{macrocode}
%<*package>
%    \end{macrocode}
%
%  Das Package \pack{robustcommand} stellt uns Hilfsmittel zur Kommandodefinition
%  zur Verf�gung.
%    \begin{macrocode}
\RequirePackage{robustcommand}
%    \end{macrocode}
%
%  \begin{macro}{\neg@it@corr}\noindent\marg{formel}
%  
%  Dies f�gt an der aktuellen Stelle eine negative \emph{italics correction}, wie sie
%  nach \meta{formel} eingef�gt w�rde, ein.
%
%  Da wir zum Ausmessen der Formel eine '\hbox' brauchen, m�ssen
%  wir darin wieder in den (richtigen) Mathemodus wechseln, also
%  rufen wir einfach mit '\mathpalette' ein weiteres Makro auf,
%  welches dann die eigentliche Arbeit macht.
%    \begin{macrocode}
\newcommand*{\neg@it@corr}
  {\mathpalette\neg@it@corr@}
%    \end{macrocode}
%  \end{macro}
%
%  \begin{macro}{\neg@it@corr@}\noindent\marg{mathstyle}\marg{formel}
%    \begin{macrocode}
\newcommand*{\neg@it@corr@}[2]
{%
%    \end{macrocode}
%  Zun�chst messen wir die Formel mit und ohne '\/' aus, speichern die L�nge
%  in L�ngenregistern.\footnote{\cs{dimen@} und \cs{dimen@ii} sind vom
%  \LaTeX-Kernel (bzw. auch schon von \PlainTeX) f�r tempor�re lokale
%   Zuweisungen vorgesehen}
%  Da '\settowidth' eine '\hbox' aufmacht, m�ssen wir
%  darin wieder in den Mathemodus wechseln, und mit \meta{mathstyle} auch
%  noch in den richtigen Stil, aus dem heraus '\neg@it@corr' aufgerufen wurde.
%    \begin{macrocode}
   \settowidth{\dimen@}{$#1#2\/_{}$}%
   \settowidth{\dimen@ii}{$#1#2_{}$}%
%    \end{macrocode}
%  Dann berechnen wir die Differenz der beiden L�ngen, und geben das ganze
%  gleich noch aus (zu Debug-Zwecken). \footnote{Im Logfile erscheinen immer vier
%  Ausgaben, weil \cs{mathpalette} in Wirklichkeit das Makro f�r jeden Stil
%  einmal "`ausf�hrt"' (expandiert), und erst die \TeX-Engine sp�ter entscheidet,
%  welche der vier gesetzten Formeln wirklich genommen wird, da sich der Stil auch
%  noch im Nachhinein �ndern kann. Daher geben wir den Namen des Stils gleich mit
%  aus.}
%    \begin{macrocode}
   \advance \dimen@ by -\dimen@ii%
   \PackageInfo{noitcrul}{#1: \the\dimen@}%
%    \end{macrocode}
%  Jetzt die eigentliche Aktion: wir f�gen diesen Abstand als negativen Kern hier ein.
%    \begin{macrocode}
   \kern -\dimen@%
}%
%    \end{macrocode}
%  \end{macro}
%
%  \begin{macro}{\noitUnderline}\noindent{formel}
%
%   Hier das Makro, f�r das wir das alles machen \ldots
%    \begin{macrocode}
\robust@new@command{\noitUnderline}[1]
%    \end{macrocode}
%  Wir setzen \meta{formel}, und rufen '\neg@it@cor'\marg{formel} auf
% (was ja wieder etwas zur�ck geht).
%  Das ganze unterstreichen wir dann mit '\underline'.
%    \begin{macrocode}
  {\underline{#1\neg@it@corr{#1}}}
%    \end{macrocode}
%  \end{macro}
%
%  Das war es.
%    \begin{macrocode}
\endinput
%</package>
%    \end{macrocode}
%
% \Finale
%\endinput


%%% Folgendes ist nur f�r meinen Editor.
%%%
%%% Local Variables:
%%% mode: latex
%%% TeX-master: t
%%% End: