!
! Feynman graph for tau decay
!
exec lecture_fig_setup taudecay 8 8 1 1 0.5 0.5
set y psize =+0.5
set font -1001
set font title -1004
!
exec lecture_fig_copy 'Tau Decay' 0
!
set tick all off
!
exec lecture_fig_plot
draw arrow 1 green = pl -4
1 1 3 2
draw arrow 1 green = pl -4
3 2 7 1
draw line 2 magenta = pl
3 2 4 5
draw arrow 1 blue = pl -4
4 5 6 3
draw arrow 1 blue = pl -4
6 7 4 5
comment 1 
  new '[n]&^_!?e! [n]&^_!?[m]! u&^_!' 6.1 6.8 = = l pl = blue
  new 'e^[-]! [m]^[-]! d' 6.1 2.8 = = l pl = blue
  new 'W^[-]!'  3.7 3.1 = = l pl = magenta
  new '[t]^[-]!' 0.9 0.8 = = r pl = green
  new '[n]?[t]!' 7.1 0.8 = = l pl = green
end
!
@9 hard epost
@9 close