summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/feyn/feyn.sty
blob: ab49e7f276d759ac6bdb0703b5badb8217cdb837 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
%%
%% 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, 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 .
%% 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}
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{feyn}[\filedate\space\fileversion\space textpos]
\typeout{Package: `feyn' \fileversion\space<\filedate>}
%% \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         \~}
\DeclareFontFamily{OMS}{feyn}{\skewchar\font'000}
\DeclareFontShape{OMS}{feyn}{m}{n}{%
<-10.5>feyn10%
<10.5-11.5>feyn11%
<11.5->feyn12%
}{}
\DeclareFontFamily{OMS}{textfeyn}{\skewchar\font'000}
\DeclareFontShape{OMS}{textfeyn}{m}{n}{%
<-10.5>feyntext10%
<10.5-11.5>feyntext11%
<11.5->feyntext12%
}{}
\DeclareSymbolFont{feynman}{OMS}{feyn}{m}{n}
\DeclareSymbolFontAlphabet{\feyn}{feynman}
\DeclareSymbolFont{textfeynman}{OMS}{textfeyn}{m}{n}
\DeclareSymbolFontAlphabet{\Feyn}{textfeynman}
\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
    \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$}}
\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}
  \else\ifcat #1_
    \vbox to 0pt{\kern\FEYN@maxis\nointerlineskip\box0\vss}
    %\vbox to 0pt{\kern2pt\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{\@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}}
\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}
\endinput
%%
%% End of file `feyn.sty'.