\def\phamp{2} % Photon amplitude
\def\vtxsz{1}    % Vertex size; default = 1

% Higgs -> Gamma Gamma - Generic diagrams (shaded area as interaction)
\def\HyyGeneric{\raisebox{-19pt}{\begin{picture}(101,44)(-12,-22)
  \Line[dash](0,0)(20,0)\Photon(60,20)(80,20){\phamp}{3}\Photon(60,-20)(80,-20){-\phamp}{3}
  \Line(20,  0)(60, 20)\Line(24, -2)(60, 16)\Line(28, -4)(60, 12)\Line(32, -6)(60,  8)\Line(36, -8)(60,  4)\Line(40,-10)(60,  0)\Line(44,-12)(60, -4)\Line(48,-14)(60, -8)\Line(52,-16)(60,-12)\Line(56,-18)(60,-16)\Line(60, 20)(60,-20)
%   \Line(22, -1)(60, 18)\Line(26, -3)(60, 14)\Line(30, -5)(60, 10)\Line(34, -7)(60,  6)\Line(38, -9)(60,  2)\Line(42,-11)(60, -2)\Line(46,-13)(60, -6)\Line(50,-15)(60,-10)\Line(54,-17)(60,-14)\Line(58,-19)(60,-18)
  \Line(60,-20)(20,0)
  \Line[arrow,arrowpos=1,arrowwidth=0.9](64, 16)(75, 16)\Text(70, 13)[t]{$q_1$}
  \Line[arrow,arrowpos=1,arrowwidth=0.9](64,-16)(75,-16)\Text(70,-13)[b]{$q_2$}
  \Text(-2,0)[r]{$H$}\Text(82,20)[l]{$\mu$}\Text(82,-20)[l]{$\nu$}
\end{picture}}}

% Higgs -> Gamma Gamma - Physical Diagrams
% 1-loop
\def\HyyLO{\raisebox{-19pt}{\begin{picture}(101,44)(-12,-22)
  \Line[dash](0,0)(20,0)\Photon(60,20)(80,20){\phamp}{3}\Photon(60,-20)(80,-20){-\phamp}{3}
  \Line[arrow](20,0)(60,20)\Line(60,20)(60,-20)\Line(60,-20)(20,0)
  \Text(-2,0)[r]{$H$}\Text(82,20)[l]{$\gamma$}\Text(82,-20)[l]{$\gamma$}
\end{picture}}}
% 1-loop
\def\HyyNLO{\raisebox{-19pt}{\begin{picture}(101,44)(-12,-22)
  \Line[dash](0,0)(20,0)\Photon(60,20)(80,20){\phamp}{3}\Photon(60,-20)(80,-20){-\phamp}{3}
  \Line[arrow](20,0)(60,20)\Line(60,20)(60,-20)\Line(60,-20)(20,0)
  \Gluon(40,-10)(60,0){\phamp}{3}
  \Text(-2,0)[r]{$H$}\Text(82,20)[l]{$\gamma$}\Text(82,-20)[l]{$\gamma$}
\end{picture}}}
% singlet planar
\def\HyySA{\raisebox{-17pt}{\begin{picture}(121,44)(-12,-2)
  \Line[dash](0,20)(20,20)\Gluon(60,0)(40,0){\phamp}{3}\Gluon(40,40)(60,40){\phamp}{3}\Photon(80,0)(100,0){-\phamp}{3}\Photon(80,40)(100,40){\phamp}{3}\Text(-2,20)[r]{$H$}\Text(102,0)[l]{$\gamma$}\Text(102,40)[l]{$\gamma$}
  \Line[arrow](20,20)(40,40)\Line(40,40)(40,0)\Line(40,0)(20,20)
  \Line(60,0)(80,0)\Line[arrow](60,40)(80,40)\Line(60,0)(60,40)\Line(80,0)(80,40)\Text(32,20)[]{$t$}\Text(70,20)[]{$q$}
  %\put(84,5){\vector(1,0){16}}\put(84,35){\vector(1,0){16}}\Text(84,8)[bl]{$q_1,\mu$}\Text(84,32)[tl]{$q_2,\nu$}
\end{picture}}}
% singlet crossed
\def\HyySB{\raisebox{-17pt}{\begin{picture}(121,44)(-12,-2)
  \Line[dash](0,20)(20,20)\Gluon(60,0)(40,0){\phamp}{3}\Gluon(40,40)(60,40){\phamp}{3}\Photon(80,0)(100,0){-\phamp}{3}\Photon(80,40)(100,40){\phamp}{3}\Text(-2,20)[r]{$H$}\Text(102,0)[l]{$\gamma$}\Text(102,40)[l]{$\gamma$}
  \Line[arrow](20,20)(40,40)\Line(40,40)(40,0)\Line(40,0)(20,20)
  \Line(60,0)(80,0)\Line[arrow](60,40)(80,40)\Line(60,0)(80,40)\Line(80,0)(60,40)\Text(32,20)[]{$t$}\Text(70,33)[]{$q$}
  %\put(84,5){\vector(1,0){16}}\put(84,35){\vector(1,0){16}}\Text(84,8)[bl]{$q_1,\mu$}\Text(84,32)[tl]{$q_2,\nu$}
\end{picture}}}
% non-singlet QED-like
\def\HyyNA{\raisebox{-19pt}{\begin{picture}(101,44)(-12,-22)
  \Line[dash](0,0)(20,0)\Photon(60,20)(80,20){\phamp}{3}\Photon(60,-20)(80,-20){-\phamp}{3}
  \Line[arrow](20,0)(60,20)\Line(60,20)(60,-20)\Line(60,-20)(20,0)
  \Gluon(33.33,-6.67)(60,6.67){\phamp}{4}\Gluon(46.67,-13.33)(60,-6.67){\phamp}{2}
  \Text(-2,0)[r]{$H$}\Text(82,20)[l]{$\gamma$}\Text(82,-20)[l]{$\gamma$}
\end{picture}}}
% non-singlet 3-gluon
\def\HyyNB{\raisebox{-19pt}{\begin{picture}(101,44)(-12,-22)
  \Line[dash](0,0)(20,0)\Photon(60,20)(80,20){\phamp}{3}\Photon(60,-20)(80,-20){-\phamp}{3}
  \Line[arrow,arrowpos=0.25](20,0)(60,20)\Line(60,20)(60,-20)\Line(60,-20)(20,0)
  \Gluon(40,-10)(47.5,0){\phamp}{2}\Gluon(40,10)(47.5,0){\phamp}{2}\Gluon(60,0)(47.5,0){\phamp}{2}
  \Text(-2,0)[r]{$H$}\Text(82,20)[l]{$\gamma$}\Text(82,-20)[l]{$\gamma$}
\end{picture}}}
% non-singlet quark-bubble insertion
\def\HyyNC{\raisebox{-19pt}{\begin{picture}(101,44)(-12,-22)
  \Line[dash](0,0)(20,0)\Photon(60,20)(80,20){\phamp}{3}\Photon(60,-20)(80,-20){-\phamp}{3}
  \Line[arrow,arrowpos=0.25](20,0)(60,20)\Line(60,20)(60,-20)\Line(60,-20)(20,0)
  \Gluon(47.5,-5)(47.5,-13.75){\phamp}{1}\Gluon(47.5,13.75)(47.5,5){\phamp}{1}
  \BCirc(47.5,0){5}
  \Text(-2,0)[r]{$H$}\Text(82,20)[l]{$\gamma$}\Text(82,-20)[l]{$\gamma$}
\end{picture}}}

% Higgs -> Gamma Gamma - Master Integrals
\def\ExtLines{\Line[dash](-30,0)(-20,0)\Line[dash](20,0)(30,0)}
\def\RightBubble{\Arc(25,8)(5,-60,180)\Line(20,0)(20,8)\Line(20,0)(27.5,3.67)\Vertex(20,0){\vtxsz}}
\def\LeftBubble{\Arc(-25,8)(5,0,240)\Line(-20,0)(-20,8)\Line(-20,0)(-27.5,3.67)\Vertex(-20,0){\vtxsz}}
\def\LeftLowerBubble{\Arc(-25,-8)(5,-240,0)\Line(-20,0)(-20,-8)\Line(-20,0)(-27.5,-3.67)\Vertex(-20,0){\vtxsz}}
\def\Ja{\begin{picture}(60,40)(-30,-20)\Line[dash](-30,0)(-20,0)\Line[dash](20,0)(30,10)\Line[dash](20,0)(30,-10)\LeftBubble\LeftLowerBubble
  \Arc[dash](0,0)(20,0,360)\Vertex(-20,0){\vtxsz}\Vertex(20,0){\vtxsz}
\end{picture}}
\def\Jdb{\begin{picture}(60,40)(-30,-20)\Line[dash](-30,0)(-20,0)\Line[dash](20,0)(30,10)\Line[dash](20,0)(30,-10)\LeftBubble
  \Arc[dash](-10,0)(10,0,360)\Arc[dash](10,0)(10,0,360)\Vertex(-20,0){\vtxsz}\Vertex(0,0){\vtxsz}\Vertex(20,0){\vtxsz}
\end{picture}}
\def\Jc{\begin{picture}(60,40)(-30,-20)\Line[dash](-30,0)(-20,0)\Line[dash](20,0)(30,10)\Line[dash](20,0)(30,-10)\LeftBubble
  \Line[dash](-20,0)(20,0)\Arc[dash](0,0)(20,0,360)\Vertex(-20,0){\vtxsz}\Vertex(20,0){\vtxsz}
\end{picture}}
\def\Jda{\begin{picture}(60,40)(-30,-20)\Line[dash](-30,0)(-20,0)\Line[dash](20,20)(30,20)\Line[dash](20,-20)(30,-20)
  \Line[dash](-20,0)(20,20)\Line[dash](-20,0)(20,-20)\Arc[dash](-14.64,0)(40,-30,30)\Arc[dash](54.64,0)(40,150,210)
  \Vertex(-20,0){\vtxsz}\Vertex(20,20){\vtxsz}\Vertex(20,-20){\vtxsz}\LeftBubble
\end{picture}}
\def\Jf{\begin{picture}(60,40)(-30,-20)\Line[dash](-30,0)(-20,0)\Line[dash](20,20)(30,20)\Line[dash](20,-20)(30,-20)
  \Line[dash](-20,0)(0,20)\Line[dash](-20,0)(0,-20)\Line[dash](20,20)(0,20)\Line[dash](20,-20)(0,-20)\Line[dash](20,-20)(0,20)\Line[dash](20,20)(0,-20)
  \Vertex(-20,0){\vtxsz}\Vertex(20,20){\vtxsz}\Vertex(20,-20){\vtxsz}\Vertex(0,20){\vtxsz}\Vertex(0,-20){\vtxsz}\LeftBubble
\end{picture}}
\def\Bca{\begin{picture}(60,40)(-10,0)
  \Arc(3.83,6)(6,101.25,318.75)\Arc(36.17,6)(6,-138.75,78.75)\Arc(20,34)(6,-18.75,198.75)\Line(20,15.33)(14.32,32.07)\Line(20,15.33)(25.68,32.07)\Line(20,15.33)(8.35,2.04)\Line(20,15.33)(2.66,11.88)\Line(20,15.33)(37.34,11.88)\Line(20,15.33)(31.65,2.04)\Vertex(20,15.33){\vtxsz}
\end{picture}}
\def\Bcia{\begin{picture}(60,40)(-30,-20)
  \Arc(0,0)(20,0,360)\Arc[dash](26.67,0)(33.33,143.13,216.87)\Arc[dash](-26.67,0)(33.33,-36.87,36.87)\Vertex(0,-20){\vtxsz}\Vertex(0,20){\vtxsz}
\end{picture}}
\def\Bcib{\begin{picture}(60,40)(-30,-20)
  \Arc(0,0)(20,0,360)\Arc(26.67,0)(33.33,143.13,216.87)\Arc(-26.67,0)(33.33,-36.87,36.87)\Vertex(0,-20){\vtxsz}\Vertex(0,20){\vtxsz}
\end{picture}}

\def\toposep{~~}
