!
! Feynman Diagrams of K mixing
!
exec lecture_fig_setup k0l_mumu_cc 8 8 2 1 0.2 0.2
set font -1001
set font title -1004
set title off
!
exec lecture_fig_copy 'K^0!&?L! -> [m]^+![m]^-!' 2
!
set tick all off
!
exec lecture_fig_plot 1
draw arrow 1 blue = pl -4
3.0 5.0
1.5 7.0
draw arrow 1 blue = pl -4
1.5 1.0
3.0 3.0
draw arrow 1 red = pl -4
3.0 3.0
3.0 5.0
draw line 2 magenta = pl
3.0 5.0
5.0 5.0
draw line 2 magenta = pl
5.0 3.0
3.0 3.0
draw arrow 1 green = pl -4
5.0 3.0
5.0 5.0
draw arrow 1 green = pl -4
5.0 5.0 
7.0 7.0 
draw arrow 1 green = pl -4
7.0 1.0
5.0 3.0
!
comment 1&1
  new 'K^0!'     1.0 3.9 0.4 = r pl = blue
  new 's&^_!'  1.3 6.0 0.4 = l pl = blue
  new 'd'        1.3 1.4 0.4 = l pl = blue
  new 'u'        2.8 3.9 0.4 = r pl = red
  new 'W'        4.0 5.1 0.4 = c pl = magenta
  new 'W'        4.0 2.5 0.4 = c pl = magenta
  new '[m]^-! '  7.0 6.0 0.4 = r pl = green
  new '[m]^+! '  7.0 2.0 0.4 = r pl = green
  new 'sin[q]?C!' 2.9 4.9 0.4 = r pl = red
  new 'cos[q]?C!' 2.9 2.9 0.4 = r pl = red
end
!
exec lecture_fig_plot 2
draw arrow 1 blue = pl -4
3.0 5.0
1.5 7.0
draw arrow 1 blue = pl -4
1.5 1.0
3.0 3.0
draw arrow 1 red = pl -4
3.0 3.0
3.0 5.0
draw line 2 magenta = pl
3.0 5.0
5.0 5.0
draw line 2 magenta = pl
5.0 3.0
3.0 3.0
draw arrow 1 green = pl -4
5.0 3.0
5.0 5.0
draw arrow 1 green = pl -4
5.0 5.0 
7.0 7.0 
draw arrow 1 green = pl -4
7.0 1.0
5.0 3.0
!
comment 1&2
  new 'K^0!'     1.0 3.9 0.4 = r pl = blue
  new 's&^_!'  1.3 6.0 0.4 = l pl = blue
  new 'd'        1.3 1.4 0.4 = l pl = blue
  new 'c'        2.8 3.9 0.4 = r pl = red
  new 'W'        4.0 5.1 0.4 = c pl = magenta
  new 'W'        4.0 2.5 0.4 = c pl = magenta
  new '[m]^-! '  7.0 6.0 0.4 = r pl = green
  new '[m]^+! '  7.0 2.0 0.4 = r pl = green
  new 'cos[q]?C!' 2.9 4.9 0.4 = r pl = red
  new '-sin[q]?C!' 2.9 2.9 0.4 = r pl = red
end
!
@9 hard epost
@9 close