%   FEYNMANDOCTITLE :  TITLEPAGE OF FEYNMANDOC...TEST VERSION
%  INPUT FEYNMAN.INC   RUN WITH FDTITLE.TEX OR PRINTDOC
%\pagestyle{empty}  % no numbering.
%\centerline{Initial and Final State Radiation}
\begin{titlepage}
\begin{flushright}     %  added 6/7/89 to give cav-hep preprint number  <<<
\quad\\[-1.0in]
\mbox{\mbox{\hskip 4in}Cavendish-HEP 88/11}\\[0.58in]
\end{flushright}       %  added 6/7/89 to give cav-hep preprint number  <<<
\begin{center}
{\Huge\bf FEYNMAN}\\[0.71in]\Large A \LaTeX\ Routine 
for Generating Feynman Diagrams\\
{\small Version 1.0}\\[0.46in]
Michael Levine\\[0.23in]    % Declares the author's name.
Oct. 21, 1988  %\today   % Deleting this command produces today's date.
\end{center}
\normalsize
%
\vskip 2in  \hskip -1.0in
\begin{picture}(30000,10000)
%
% THE PROTON
%
\put(1500,1500){\oval(1000,4000)}
\put(-800,4300){PROTON}
\thicklines
\drawline\fermion[\W\REG](1000,1350)[2000]
\drawline\fermion[\W\REG](1000,1400)[2000]
\drawline\fermion[\W\REG](1000,1450)[2000]
\drawline\fermion[\W\REG](1000,1500)[2000]
\drawline\fermion[\W\REG](1000,1550)[2000]
\drawline\fermion[\W\REG](1000,1600)[2000]
\drawline\fermion[\W\REG](1000,1650)[2000]
\thinlines
\drawline\fermion[\E\REG](2000,1500)[5000]
\drawarrow[\E\ATBASE](\pbackx,\pbacky)
\drawline\fermion[\E\REG](2000,3000)[5000]
\drawarrow[\E\ATBASE](\pbackx,\pbacky)
\drawarrow[\E\ATBASE](\pbackx,0)
\put(8000,2000){Spectators}
\drawline\fermion[\E\REG](2000,0)[25000]
%
% THE LEPTONIC SECTOR:
%
\drawline\photon[\NE\REG](\fermionbackx,\pbacky)[10]
\global\advance\pmidx by 650
\global\advance\pmidy by -450
\put(\pmidx,\pmidy){$\gamma,\,W^\pm,\,Z$}
\drawline\fermion[\E\REG](\photonbackx,\photonbacky)[15000]
\drawarrow[\W\ATBASE](\pmidx,\pmidy)
\global\advance \pbackx by 250
\global\advance \pbacky by -300
\put(\pbackx,\pbacky){$e$}
\drawline\fermion[\NW\REG](\photonbackx,\photonbacky)[15000]
\drawarrow[\NW\ATBASE](\pmidx,\pmidy)
\global\advance \pbackx by -1250
\global\advance \pbacky by 150
\put(\pbackx,\pbacky){$e,\,\nu_e$}
%
% INITIAL STATE RADIATION:
%
\drawline\gluon[\SE\FLIPPED](4000,0)[2]\gluonlink
\vertexcap2\vertexcap3\drawvertex\gluon[\SE 3](\gluonbackx,\gluonbacky)[5]
\drawline\fermion[\SW\REG](\vertexthreex,\vertexthreey)[2000]
\drawarrow[\SW\ATBASE](\pmidx,\pmidy)
%\global\advance\fermionbackx by -550
%\global\advance\fermionbacky by -600
\global\advance\fermionbackx by -700
\global\advance\fermionbacky by -450
\put(\fermionbackx,\fermionbacky){$q$}
\drawline\fermion[\SE\REG](\vertexthreex,\vertexthreey)[2000]
\drawarrow[\NW\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 50
\global\advance\fermionbacky by -450
\put(\fermionbackx,\fermionbacky){$\bar q$}
\drawline\fermion[\NE\REG](\vertextwox,\vertextwoy)[2000]
\drawarrow[\NE\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 50
\global\advance\fermionbacky by -250
\put(\fermionbackx,\fermionbacky){$q$}
\drawline\fermion[\SE\REG](\vertextwox,\vertextwoy)[2000]
\drawarrow[\NW\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 50
\global\advance\fermionbacky by -750
\put(\fermionbackx,\fermionbacky){$\bar q$}
%
\drawline\gluon[\SE\FLIPPED](16000,0)[2]\gluonlink
\vertexcap2\vertexcap3\drawvertex\gluon[\SE 3](\gluonbackx,\gluonbacky)[5]
\drawline\fermion[\SW\REG](\vertexthreex,\vertexthreey)[2000]
\drawarrow[\SW\ATBASE](\pmidx,\pmidy)
%\global\advance\fermionbackx by -550
%\global\advance\fermionbacky by -600
\global\advance\fermionbackx by -700
\global\advance\fermionbacky by -450
\put(\fermionbackx,\fermionbacky){$q$}
\drawline\fermion[\SE\REG](\vertexthreex,\vertexthreey)[2000]
\drawarrow[\NW\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 50
\global\advance\fermionbacky by -450
\put(\fermionbackx,\fermionbacky){$\bar q$}
\drawline\fermion[\NE\REG](\vertextwox,\vertextwoy)[2000]
\drawarrow[\NE\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 50
\global\advance\fermionbacky by -250
\put(\fermionbackx,\fermionbacky){$q$}
\drawline\fermion[\SE\REG](\vertextwox,\vertextwoy)[2000]
\drawarrow[\NW\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 50
\global\advance\fermionbacky by -750
\put(\fermionbackx,\fermionbacky){$\bar q$}
%
%
% FINAL STATE RADIATION:
%
%\end{picture}
%\end{document}
\drawline\fermion[\SE\REG](\photonfrontx,\photonfronty)[5000]
\backstemmed\drawline\gluon[\E\CENTRAL](\pbackx,\pbacky)[4]
%\drawline\fermion[\NE\REG](\gluonbackx,\gluonbacky)[2000]
\drawline\fermion[\NE\REG](\pbackx,\pbacky)[2000]
\drawarrow[\NE\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 50
\global\advance\fermionbacky by -250
\put(\fermionbackx,\fermionbacky){$q$}
%\drawline\fermion[\SE\REG](\gluonbackx,\gluonbacky)[2000]
\drawline\fermion[\SE\REG](\fermionfrontx,\fermionfronty)[2000]
\drawarrow[\NW\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 50
\global\advance\fermionbacky by -750
\put(\fermionbackx,\fermionbacky){$\bar q$}
\drawline\fermion[\SE\REG](\gluonfrontx,\gluonfronty)[8000]
\flipvertex\drawvertex\gluon[\E 3](\fermionbackx,\fermionbacky)[3]
\drawline\fermion[\S\REG](\vertexthreex,\vertexthreey)[2000]
\drawarrow[\S\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by -275
\global\advance\fermionbacky by -650
\put(\fermionbackx,\fermionbacky){$q$}
\drawline\fermion[\E\REG](\vertexthreex,\vertexthreey)[2000]
\drawarrow[\W\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 50
\global\advance\fermionbacky by -250
\put(\fermionbackx,\fermionbacky){$\bar q$}
\drawline\fermion[\N\REG](\vertextwox,\vertextwoy)[2000]
\drawarrow[\N\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by -275
\global\advance\fermionbacky by 375
\put(\fermionbackx,\fermionbacky){$q$}
\drawline\fermion[\E\REG](\vertextwox,\vertextwoy)[2000]
\drawarrow[\W\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 50
\global\advance\fermionbacky by -250
\put(\fermionbackx,\fermionbacky){$\bar q$}
\drawline\fermion[\SE\REG](\vertexonex,\vertexoney)[12000]
\drawarrow[\SE\ATBASE](\pmidx,\pmidy)
\global\advance\fermionbackx by 75
\global\advance\fermionbacky by -650
\put(\fermionbackx,\fermionbacky){$q$}
\end{picture}
\end{titlepage}
