!
! Top Quark Decay
!
exec lecture_fig_setup tdecay 8.1 6 1 1 0.2 0.2
set font -1001
set font title -1004
set title off
!
exec lecture_fig_copy 't Decay' 0
set x lim -2.4 3.0
set y lim -2.1 1.9
!
set tick all off
!
exec lecture_fig_plot
draw arrow 1 red 6 plot -4
 -2.2 0
 -1.0 0
draw arrow 1 cyan 6 plot -4
 -1.0 0
 0.5 -1
draw arrow 1 yellow 6 plot -4
  -0.5 -0.533
  0.5 -1.2
draw arrow 1 yellow 4 plot -1
  0.5 -1.2
  1.2 -1.9
draw arrow 1 cyan 4 plot -1
  0.5 -1.0
  1.2 -1.7
draw sine 1 blue 3 plot 0.15
  0.5 -1.0
  1.2 -0.8
draw sine 1 blue 4 plot 0.2
  -1.0 0
  0.0 1
draw arrow 1 magenta 6 plot -4
  0.0 1
  1.0 1.5
draw arrow 1 magenta 6 plot -4
  0.0 1
  1.0 0.5
comment 1
  new 't'  -1.6 0.2 0.4  = c pl = red
  new 'b'  0.0 -0.5 0.4  = c pl = cyan
  new 'W^[+]!'  -0.8 0.6 0.4  = c pl = blue
  new 'e^[+]!,[m]^[+]!,[t]^[+]!,u,c' 1.1 1.4 0.3 = l pl = magenta
  new '[n]?e!,[n]?[m]!,[n]?[t]!,d&^[-]!,s&^_!' 
   1.1 0.4 0.3 = l pl = magenta
  new 'c Meson'  1.3 -1.9 0.3  = l pl = cyan
  new 'W^[-]!'  1.3 -0.9 0.3  = l pl = blue
end
!
@1 hard epost
@1 close