%%
%% This is file `feyn.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% feyn.dtx  (with options: `package')
%% Feyn: package to manage the font feyn10
%% This software is copyright, 1991, 1994, 2001, 2002, 2005, 2008, 2009 Norman Gray.
%%
%% This program is free software; you can redistribute it and/or
%% modify it under the terms of the GNU General Public License
%% as published by the Free Software Foundation; either version 2
%% of the License, or (at your option) any later version.
%%
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%% GNU General Public License for more details.
%%
%% You should have received a copy of the GNU General Public License
%% along with this program; if not, write to the Free Software
%% Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
%%
%% Author: Norman Gray, norman@astro.gla.ac.uk.
%% Department of Physics and Astronomy, University of Glasgow, UK
%%
%% See the file LICENCE for a copy of the GPL.
%% You can also find an online copy at http://www.gnu.org/copyleft/gpl.html .
%% VCS Info: Mercurial revision 204fc9a2e560, 2009-10-08 12:56 +0100
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{feyn}[2009/10/08 \space0.3.3\space textpos]
\typeout{Package: `feyn' 0.3.3\space<2009/10/08 >}
%% \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         \~}
\newif\ifFeyn@globalbang
\@ifpackageloaded{amsmath}{\Feyn@globalbangtrue}{\Feyn@globalbangfalse}
\DeclareOption{globalbang}{\Feyn@globalbangtrue}
\DeclareOption{noglobalbang}{\Feyn@globalbangfalse}
\ProcessOptions
\DeclareFontFamily{OMS}{feyn}{\skewchar\font'000}
\DeclareFontShape{OMS}{feyn}{m}{n}{%
<-10.5>feyn10%
<10.5-11.5>feyn11%
<11.5-15>feyn12%
        <15-21>feyn18%
        <21->feyn24%
}{}
\DeclareFontFamily{OMS}{textfeyn}{\skewchar\font'000}
\DeclareFontShape{OMS}{textfeyn}{m}{n}{%
<-10.5>feyntext10%
<10.5-11.5>feyntext11%
<11.5-15>feyntext12%
        <15-21>feyntext18%
        <21->feyntext24%
}{}
\DeclareSymbolFont{feynman}{OMS}{feyn}{m}{n}
\DeclareSymbolFontAlphabet{\feyn@alphabet}{feynman}
\DeclareSymbolFont{textfeynman}{OMS}{textfeyn}{m}{n}
\DeclareSymbolFontAlphabet{\Feyn@alphabet}{textfeynman}
\ifFeyn@globalbang
  \catcode`\!=\active
  \def!{\char`\!}               % ! produces this character everywhere
  \def\feyn{\begingroup
    \let!\momentum              % ...except within \feyn
    \feyn@}
  \def\Feyn{\begingroup
    \let!\momentum              % ...or \Feyn
    \Feyn@}
\else
  {\catcode`\!=\active          % only make ! active within \feyn
    \gdef\feyn{%
      \begingroup  % ends in \feyn@
      \catcode`\!=\active
      \let!=\momentum
      \feyn@}
    \gdef\Feyn{%
      \begingroup  % ends in \Feyn@
      \catcode`\!=\active
      \let!=\momentum
      \Feyn@}}
\fi
\def\feyn@#1{\feyn@alphabet{#1}\endgroup}
\def\Feyn@#1{\Feyn@alphabet{#1}\endgroup}
\DeclareMathSymbol{\FeynSpaceChar}{\mathord}{feynman}{"7F}
\setbox0=\hbox{$\FeynSpaceChar$}
\newdimen\feyn@mfmodule \feyn@mfmodule=\wd0
\newdimen\feyn@module   \feyn@module=2\wd0
\newdimen\feyn@maxis    \feyn@maxis=\ht0
{\catcode`\!=\active
  \gdef\Diagram{%
    \begingroup  % ends in \Diagram@
    \catcode`\!=\active
    \let!\momentum
    \Diagram@}}
\def\Diagram@#1{\setbox0=\hbox{\vbox{\offinterlineskip \let\\\cr
    \halign{&$\displaystyle\feyn{##}$\cr #1\crcr}}}%
    \@tempdima=\ht0
    \advance\@tempdima by 2\feyn@maxis \ht0=\@tempdima
    \vcenter{\box0}%
    \endgroup}% end group begun in \Diagram
\def\maxis#1{\raise\feyn@maxis \hbox{$#1$}}
\newdimen\feyn@nudge \feyn@nudge=\feyn@mfmodule \divide\feyn@nudge by 3
\def\feyn@pos@top#1#2#3{% top
    \leavevmode
    \@tempdima=#2\feyn@mfmodule \advance\@tempdima\feyn@nudge
    \setbox1=\hbox{\raise \@tempdima\hbox to 0pt{%
    \hskip #1\feyn@mfmodule
        \hbox to 0pt{\hss$\scriptstyle #3$\hss}\hss}}%
    \ht1=0pt \dp1=0pt \box1}
\def\feyn@pos@urt#1#2#3{% urt
    \leavevmode
    \@tempdima=#2\feyn@mfmodule \advance\@tempdima\feyn@nudge
    \setbox1=\hbox{\raise \@tempdima\hbox to 0pt{%
        \hskip #1\feyn@mfmodule \hskip\feyn@nudge $\scriptstyle #3$\hss}}%
    \ht1=0pt \dp1=0pt \box1}
\def\feyn@pos@lrt#1#2#3{% lrt
    \leavevmode
    \setbox0=\hbox to 0pt{\hskip\feyn@nudge $\scriptstyle #3$\hss}%
    \@tempdima=#2\feyn@mfmodule
        \advance\@tempdima -\ht0
        \advance\@tempdima-\feyn@nudge
    \setbox1=\hbox{\raise \@tempdima\hbox to 0pt{%
        \hskip #1\feyn@mfmodule \box0\hss}}%
    \ht1=0pt \dp1=0pt \box1}
\def\feyn@pos@bot#1#2#3{% bot
    \leavevmode
    \setbox0=\hbox to 0pt{\hss$\scriptstyle #3$\hss}%
    \@tempdima=#2\feyn@mfmodule
        \advance\@tempdima -\ht0
        \advance\@tempdima-\feyn@nudge
    \setbox1=\hbox{\raise \@tempdima\hbox to 0pt{%
        \hskip #1\feyn@mfmodule \box0\hss}}%
    \ht1=0pt \dp1=0pt \box1}
\def\feyn@pos@llft#1#2#3{% llft
    \leavevmode
    \setbox0=\hbox to 0pt{\hss$\scriptstyle #3$\hskip\feyn@nudge}%
    \@tempdima=#2\feyn@mfmodule
        \advance\@tempdima -\ht0
        \advance\@tempdima-\feyn@nudge
    \setbox1=\hbox{\raise \@tempdima\hbox to 0pt{%
        \hskip #1\feyn@mfmodule \box0\hss}}%
    \ht1=0pt \dp1=0pt \box1}
\def\feyn@pos@ulft#1#2#3{% ulft
    \leavevmode
    \@tempdima=#2\feyn@mfmodule \advance\@tempdima\feyn@nudge
    \setbox1=\hbox{\raise \@tempdima\hbox to 0pt{%
        \hskip #1\feyn@mfmodule
        \hbox to 0pt{\hss$\scriptstyle #3$\hskip\feyn@nudge}\hss}}%
    \ht1=0pt \dp1=0pt \box1}
\def\feyn@annotation#1#2#3#4{%
    \expandafter\def\csname feyn@ann@#1\endcsname##1{%
        \csname feyn@pos@\ifx\@tempa\@empty #4\else\@tempa\fi\endcsname
            {#2}{#3}{##1}%
    #1}}
\feyn@annotation{f}{0.99974}{0.35}{top}% "f"
\feyn@annotation{fA}{0.99974}{0.35}{top}% "F"
\feyn@annotation{fV}{0.99974}{0.35}{top}% 6
\feyn@annotation{fu}{0.70692}{0.95692}{ulft}% "e"
\feyn@annotation{fuA}{0.70692}{0.95692}{ulft}% "E"
\feyn@annotation{fuV}{0.70692}{0.95692}{ulft}% 5
\feyn@annotation{fd}{0.70692}{0.95692}{urt}% "d"
\feyn@annotation{fdA}{0.70692}{0.95692}{urt}% "D"
\feyn@annotation{fdV}{0.70692}{0.95692}{urt}% 4
\feyn@annotation{fv}{0}{1.24974}{urt}% "b"
\feyn@annotation{fvA}{0}{1.24974}{urt}% "B"
\feyn@annotation{fvV}{0}{1.24974}{urt}% 2
\feyn@annotation{m}{0.99974}{0.32802}{top}% "m"
\feyn@annotation{mA}{0.99974}{0.32802}{top}% "M"
\feyn@annotation{mV}{0.99974}{0.32802}{top}% 13
\feyn@annotation{ms}{0.49986}{0.32802}{top}% 11
\feyn@annotation{fl}{0}{1.85}{top}% "l"
\feyn@annotation{flA}{0}{1.85}{top}% "L"
\feyn@annotation{flV}{0}{1.85}{top}% 12
\feyn@annotation{flu}{0}{-1.35}{bot}% "n"
\feyn@annotation{fluA}{0}{-1.35}{bot}% "N"
\feyn@annotation{fluV}{0}{-1.35}{bot}% 14
\feyn@annotation{flS}{0}{1.23335}{top}% "o"
\feyn@annotation{flSA}{0}{1.23335}{top}% "O"
\feyn@annotation{flSV}{0}{1.23335}{top}% 15
\feyn@annotation{flSu}{0}{-0.90001}{bot}% "w"
\feyn@annotation{flSuA}{0}{-0.90001}{bot}% "W"
\feyn@annotation{flSuV}{0}{-0.90001}{bot}% 23
\feyn@annotation{g}{0.99974}{0.45}{top}% "g"
\feyn@annotation{gA}{0.99974}{0.45}{top}% "G"
\feyn@annotation{gV}{0.99974}{0.45}{top}% 7
\feyn@annotation{gu}{0.70692}{0.95692}{ulft}% "u"
\feyn@annotation{guA}{0.70692}{0.95692}{ulft}% "U"
\feyn@annotation{guV}{0.70692}{0.95692}{ulft}% 21
\feyn@annotation{gd}{0.70692}{0.95692}{urt}% "v"
\feyn@annotation{gdA}{0.70692}{0.95692}{urt}% "V"
\feyn@annotation{gdV}{0.70692}{0.95692}{urt}% 22
\feyn@annotation{gv}{0}{1.24974}{urt}% "}"
\feyn@annotation{gvA}{0}{1.24974}{urt}% "]"
\feyn@annotation{gvV}{0}{1.24974}{urt}% 29
\feyn@annotation{g1}{-1.41422}{1.66422}{ulft}% "q"
\feyn@annotation{g1A}{-1.41422}{1.66422}{ulft}% "Q"
\feyn@annotation{g1V}{-1.41422}{1.66422}{ulft}% 17
\feyn@annotation{g2}{1.41422}{1.66422}{urt}% "r"
\feyn@annotation{g2A}{1.41422}{1.66422}{urt}% "R"
\feyn@annotation{g2V}{1.41422}{1.66422}{urt}% 18
\feyn@annotation{g3}{1.41422}{-1.16422}{lrt}% "s"
\feyn@annotation{g3A}{1.41422}{-1.16422}{lrt}% "S"
\feyn@annotation{g3V}{1.41422}{-1.16422}{lrt}% 19
\feyn@annotation{g4}{-1.41422}{-1.16422}{llft}% "t"
\feyn@annotation{g4A}{-1.41422}{-1.16422}{llft}% "T"
\feyn@annotation{g4V}{-1.41422}{-1.16422}{llft}% 20
\feyn@annotation{gl}{0}{2.25}{urt}% "y"
\feyn@annotation{glA}{0}{2.25}{urt}% "Y"
\feyn@annotation{glV}{0}{2.25}{urt}% 25
\feyn@annotation{glu}{0}{-1.75}{llft}% "z"
\feyn@annotation{gluA}{0}{-1.75}{llft}% "Z"
\feyn@annotation{gluV}{0}{-1.75}{llft}% 26
\feyn@annotation{glB}{0}{2.91667}{urt}% "{"
\feyn@annotation{glBA}{0}{2.91667}{urt}% "["
\feyn@annotation{glBV}{0}{2.91667}{urt}% 27
\feyn@annotation{glS}{0}{1.5833}{llft}% "|"
\feyn@annotation{glSA}{0}{1.5833}{llft}% "\"
\feyn@annotation{glSV}{0}{1.5833}{llft}% 28
\feyn@annotation{h}{0.99974}{0.25}{top}% "h"
\feyn@annotation{hA}{0.99974}{0.25}{top}% "H"
\feyn@annotation{hV}{0.99974}{0.25}{top}% 8
\feyn@annotation{hu}{0.70464}{0.95464}{ulft}% "i"
\feyn@annotation{huA}{0.70464}{0.95464}{ulft}% "I"
\feyn@annotation{huV}{0.70464}{0.95464}{ulft}% 9
\feyn@annotation{hd}{0.70464}{0.95464}{urt}% "j"
\feyn@annotation{hdA}{0.70464}{0.95464}{urt}% "J"
\feyn@annotation{hdV}{0.70464}{0.95464}{urt}% 10
\feyn@annotation{hs}{0.49986}{0.25}{top}% "K"
\feyn@annotation{c}{0.65044}{0.90044}{top}% "c"
\feyn@annotation{p}{0.65}{0.9}{top}% "p"
\feyn@annotation{P}{0.65044}{0.90044}{top}% "P"
\feyn@annotation{x}{0}{0.55641}{top}% "x"
\def\momentum{\@ifnextchar[\momentum@{\momentum@[]}}
\def\momentum@[#1]#2#3{%
  \def\@tempa{#1}
  \ifx\@tempa\@empty \else
    \@ifundefined{feyn@pos@#1}
        {\@latex@error{No annotation position #1}%
           {You cannot call \string\momentum[#1]{...}^^J(must be one
             of top, urt, lrt, bot, llft, ulft)}%
        #2}%
  \fi
  \@ifundefined{feyn@ann@#2}%
    {\@latex@error{No annotation defined for #2}%
      {You cannot call \string\momentum{#2}{...}}%
     #2}%
  {\csname feyn@ann@#2\endcsname{#3}}}
\def\vertexlabel#1#2{\setbox0=\hbox to 0pt{\hss$\scriptstyle #2$\hss}
  \ifcat #1^
    \vbox to 0pt{\vss\box0\nointerlineskip\kern2\feyn@maxis}
  \else\ifcat #1_
    \vbox to 0pt{\kern\feyn@maxis\nointerlineskip\box0\vss}
  \else
    \PackageError{feyn}
      {Bad arguments for \string\vertexlabel}
      {Usage: \string\vertexlabel^{text} or \string\vertexlabel_{text}}
  \fi\fi
  }
\def\annotate#1#2#3{\vcenter to 0pt{\vss
    \hbox to 0pt{\hskip #1\feyn@module\hbox to 0pt{\hss$\scriptstyle #3$\hss}\hss
    }\vskip #2\feyn@module}}
\def\tannotate#1#2#3{\vcenter to 0pt{\vss
    \hbox to 0pt{\hskip #1\feyn@module\hbox to 0pt{\hss #3\hss}\hss
    }\vskip #2\feyn@module}}
\def\feynstrut#1#2{\setbox\strutbox=\hbox{\vrule
height #1\feyn@module depth #2\feyn@module width 0pt}}
\def\arrow#1#2#3{\@latex@error{Do not use the \string\arrow macro any more}{}}
\DeclareMathSymbol{\wfermion}{0}{feynman}{"64}
\DeclareMathSymbol{\hfermion}{0}{feynman}{"6B}
\DeclareMathSymbol{\shfermion}{0}{feynman}{"6C}
\DeclareMathSymbol{\whfermion}{0}{feynman}{"6D}
\DeclareMathSymbol{\gvcropped}{0}{feynman}{"07}
\DeclareMathSymbol{\bigbosonloop}{0}{feynman}{"7B}
\DeclareMathSymbol{\smallbosonloop}{0}{feynman}{"7C}
\DeclareMathSymbol{\bigbosonloopA}{0}{feynman}{"5B}
\DeclareMathSymbol{\smallbosonloopA}{0}{feynman}{"5C}
\DeclareMathSymbol{\bigbosonloopV}{0}{feynman}{"1B}
\DeclareMathSymbol{\smallbosonloopV}{0}{feynman}{"1C}
\endinput
%%
%% End of file `feyn.sty'.
