!
! Flavour changing neutrla current decay
!
exec lecture_fig_setup fcnc 8 8 1 1 0.2 0.2
set font -1001
set font title -1004
set title off
!
exec lecture_fig_copy 'K^0! decay' 0
!
set tick all off
!
exec lecture_fig_plot 0
draw arrow 1 blue = pl -4
3 4 1 7
draw arrow 1 blue = pl -4
1 1 3 4
draw sine 1 magenta = pl
3 4 5 4
draw arrow 1 green = pl -4
5 4 7 7
draw arrow 1 green = pl -4
7 1 5 4
comment 1
  new 'K^0!'  1.0 3.9 = = c pl = blue
  new 's&^_!' 0.9 6.8 = = r pl = blue
  new 'd' 0.9 0.8 = = r pl = blue
  new 'Z^*!'  4.0 4.6 = = c pl = magenta
  new '[m]^[-]!' 7.1 6.8 = = l pl = green
  new '[m]^+!' 7.1 0.8 = = l pl = green
end
!
@9 hard epost
@9 close