!
! QED basic feynman graphs for electron-muon scattering
!
exec lecture_fig_setup dis 8 8 1 1 0.2 0.2
set font -1001
set font title -1004
set title off
!
exec lecture_fig_copy 'Kinematics of Lepton-Nucleon Scattering' 0
!
set tick all off
!
! Lepton-nucleus scattering
!
exec lecture_fig_plot
draw arrow 1 blue = pl -1
1 6 4 6
draw line 2  green = pl
4 6 6 6
draw arrow 1 blue = pl -1
4 6 7 7.5
draw sine 1 magenta = pl
4 6 4 2
draw arrow 1 blue = pl -1
1 2 4 2
draw arrow 1 blue = pl -1
4 2 7 1
draw arrow 1 blue = pl -1
4 2 7 1.8
draw arrow 1 blue = pl -1
4 2 7 3
comment 1
  new 'k' 0.9 5.8 = = r pl = blue
  new 'k[\242]' 7.1 6.8 = = l pl = blue
  new '[q]' 5.3 6.1 = = l pl = green
  new 'q'  4.4 3.8 = = l pl = magenta
  new 'P' 0.9 1.8 = = r pl = blue
  new 'W' 7.1 1.8 = = l pl = blue
end
!
@9 hard epost
@9 close