\setlength{\unitlength}{1cm}
\begin{picture}(10,10)\thicklines \boldmath
% Drawing the incoming lepton
\put(3,9){\psline[linewidth=0.8pt]{<-}(-1.5,0.5)}
\put(3,9){\psline[linewidth=0.8pt](1.5,-0.5)}
\put(3,9.5){$\scriptstyle l(k)$}
% Drawing the outcoming lepton
\put(6,9){\psline[linewidth=0.8pt]{<-}(-1.5,-0.5)}
\put(6,9){\psline[linewidth=0.8pt](1.5,0.5)}
\put(6,9.5){$\scriptstyle l^{\prime}(k^{\prime})$}
% Drawing the photon 
% argument of rput is the angle
\put(4.4,8.4){\rput{305}{%
\psCoil[linecolor=black,coilaspect=0,coilheight=2.5,coilwidth=0.3,
  linewidth=0.8pt]{0}{1440}
 \rput{*0}{}}}
%\put(2.5,2.2){$\scriptstyle q$}
% Drawing the interaction
\put(6.6,5.49){\circle{2}}
% Drawing the incoming proton lines 
%\put(1.6,1.5){\psline[linewidth=0.6pt]{<-}(-0.8,0.0)}
%\put(1.6,1.5){\psline[linewidth=0.6pt](0.8,0.0)}
%\put(1.6,1.4){\psline[linewidth=0.6pt]{<-}(-0.80,0)}
%\put(1.6,1.4){\psline[linewidth=0.6pt](0.8,0)}
%\put(1.6,1.3){\psline[linewidth=0.6pt]{<-}(-0.8,0)}
%\put(1.6,1.3){\psline[linewidth=0.6pt](0.8,0)}
%\put(1.6,1.0){$\scriptstyle p(p)$}
% Drawing the final state
%\put(3.1,1.45){\psline[linewidth=0.6pt](1.,0.05)}
%\put(3.1,1.35){\psline[linewidth=0.6pt](1.,-0.05)}
% Drawing at the end a ``>''
%\put(4.,1.6){\psline[linewidth=0.6pt](0.2,-0.2)}
%\put(4.,1.2){\psline[linewidth=0.6pt](0.2,0.2)}
%\put(3.8,1.8){$\scriptstyle X(P_{X})$}
\end{picture} 






