!
! QED basic feynman graph for electron-proton elastic scattering
!
exec lecture_fig_setup ep 8 8 1 1
set font -1001
set font title -1004
!
exec lecture_fig_copy 'Electron-Proton Elastic Scattering' 0
!
set tick all off
!
! Lepton-nucleus scattering
!
exec lecture_fig_plot
draw arrow 1 blue = pl -4
1 6 4 6
draw arrow 1 blue = pl -4
4 6 7 7
draw sine 1 magenta = pl
4 6 4 2
draw arrow 1 blue = pl -4
1 2.1 4 2.1
draw arrow 1 blue = pl -4
1 2.0 4 2.0
draw arrow 1 blue = pl -4
1 1.9 4 1.9
draw arrow 1 blue = pl -4
4 2.1 7 1.1
draw arrow 1 blue = pl -4
4 2.0 7 1.0
draw arrow 1 blue = pl -4
4 1.9 7 0.9
draw circle 1 green = pl 0 100 0
4 2 0.4
comment 1
  new 'k' 1.1 6.1 = = r pl = blue
  new 'k[\242]' 6.9 7.0 = = r pl = blue
  new 'q'  4.4 3.8 = = l pl = magenta
  new 'p' 0.9 1.8 = = r pl = blue
  new 'p[\242]' 7.1 1.4 = = r pl = blue
end
!
@9 hard epost
@9 close