From 26b5af90d7132dc6c5d514d589adfca8502d62c0 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 3 Mar 2008 01:10:05 +0000 Subject: feyn font 0.3.1 git-svn-id: svn://tug.org/texlive/trunk@6809 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/feyn/feyn.sty | 250 +++++++++++++++++++++++++----- 1 file changed, 215 insertions(+), 35 deletions(-) (limited to 'Master/texmf-dist/tex/latex/feyn') diff --git a/Master/texmf-dist/tex/latex/feyn/feyn.sty b/Master/texmf-dist/tex/latex/feyn/feyn.sty index ab49e7f276d..59207ad9361 100644 --- a/Master/texmf-dist/tex/latex/feyn/feyn.sty +++ b/Master/texmf-dist/tex/latex/feyn/feyn.sty @@ -6,7 +6,7 @@ %% %% feyn.dtx (with options: `package') %% Feyn: package to manage the font feyn10 -%% This software is copyright, 1991, 1994, 2001, Norman Gray. +%% This software is copyright, 1991, 1994, 2001, 2002, 2005, 2008, Norman Gray. %% %% This program is free software; you can redistribute it and/or %% modify it under the terms of the GNU General Public License @@ -27,16 +27,10 @@ %% %% 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 . -%% RCS Info $Id: feyn.dtx,v 1.11 2002/04/23 11:26:15 norman Exp $ -\def\ParseRCSDate$#1: #2 #3 ${\def\FEYN@Date{#2}} -\ParseRCSDate$Date: 2002/04/23 11:26:15 $ -\def\filename{feyn} -\def\fileversion{0.1} %%VERSION%% -\def\filedate{\FEYN@Date} -\def\docdate{\FEYN@Date} +%% RCS Info $Id: feyn.dtx.in,v 1.18 2008/02/29 20:45:59 norman Exp $ \NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{feyn}[\filedate\space\fileversion\space textpos] -\typeout{Package: `feyn' \fileversion\space<\filedate>} +\ProvidesPackage{feyn}[2008/02/29 \space0.3.1\space textpos] +\typeout{Package: `feyn' 0.3.1\space<2008/02/29 >} %% \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 @@ -52,39 +46,224 @@ %% 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->feyn12% +<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->feyntext12% +<11.5-15>feyntext12% + <15-21>feyntext18% + <21->feyntext24% }{} \DeclareSymbolFont{feynman}{OMS}{feyn}{m}{n} -\DeclareSymbolFontAlphabet{\feyn}{feynman} +\DeclareSymbolFontAlphabet{\feyn@alphabet}{feynman} \DeclareSymbolFont{textfeynman}{OMS}{textfeyn}{m}{n} -\DeclareSymbolFontAlphabet{\Feyn}{textfeynman} +\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@module \FEYN@module=2\wd0 -\newdimen\FEYN@maxis \FEYN@maxis=\ht0 -\def\Diagram#1{\setbox0=\hbox{\vbox{\offinterlineskip \let\\\cr +\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}} -\def\maxis#1{\raise\FEYN@maxis \hbox{$#1$}} + \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} - %\vbox to 0pt{\vss\box0\nointerlineskip\kern6pt} + \vbox to 0pt{\vss\box0\nointerlineskip\kern2\feyn@maxis} \else\ifcat #1_ - \vbox to 0pt{\kern\FEYN@maxis\nointerlineskip\box0\vss} - %\vbox to 0pt{\kern2pt\nointerlineskip\box0\vss} + \vbox to 0pt{\kern\feyn@maxis\nointerlineskip\box0\vss} \else \PackageError{feyn} {Bad arguments for \string\vertexlabel} @@ -92,24 +271,25 @@ \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}} + \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}} + \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{\@tempcnta="28 \advance\@tempcnta by #3\vcenter to 0pt{\vss - \hbox to 0pt{\hskip #1\FEYN@module\hbox to 0pt{$\feyn{\char\@tempcnta}$}\hss - }\vskip #2\FEYN@module}} +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}{"21} -\DeclareMathSymbol{\Bigbosonloop}{7}{feynman}{"21} -\DeclareMathSymbol{\smallbosonloop}{0}{feynman}{"20} +\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'. -- cgit v1.2.3