!
! Feynman Diagrams of K mixing
!
exec lecture_fig_setup kmixing 12 6 1 2 0.2 0.2
set font -1001
set font title -1004
set title off
!
exec lecture_fig_copy 'K Mixing' 2
!
set frame all off
exec lecture_fig_plot 1
!
draw line 1 green = pl
1.5 4.5
4.5 4.5
draw line 1 blue = pl
1.5 1.5
4.5 1.5
draw line 1 red = pl
4.5 4.5
4.5 1.5
draw line 2 magenta = pl
4.5 4.5
7.5 4.5
draw line 2 magenta = pl
4.5 1.5
7.5 1.5
draw line 1 red = pl
7.5 4.5
7.5 1.5
draw line 1 blue = pl
7.5 4.5 
10.5 4.5 
draw line 1 green = pl
7.5 1.5
10.5 1.5
!
comment 1&idb
  new 's&^_!'   1.3 4.5 0.4 = r pl = green
  new 's'        11.1 1.2 0.4 = r pl = green
  new 'K^0!'      0.8 3.0 0.4 = r pl = green
  new 'K&^[-]^0' 11.5 3.0 0.4 = r pl = green
  new 'd'       1.3 1.2 0.4 = r pl = blue
  new 'd&^[-]!'  10.9 4.5 0.4 = l pl = blue
  new 'u,c,t'     2.80 2.9 0.4 = l pl = red
  new 'u,c,t'     7.80 2.9 0.4 = l pl = red
  new 'W'         5.7 4.85 0.4 = l pl = magenta
  new 'W'         5.7 0.85 0.4 = l pl = magenta
end
!
exec lecture_fig_plot 2
!
draw line 1 green = pl
1.5 4.5
4.5 4.5
draw line 1 blue = pl
1.5 1.5
4.5 1.5
draw line 2 magenta = pl
4.5 4.5
4.5 1.5
draw line 1 red = pl
4.5 4.5
7.5 4.5
draw line 1 red = pl
4.5 1.5
7.5 1.5
draw line 2 magenta = pl
7.5 4.5
7.5 1.5
draw line 1 blue = pl
7.5 4.5 
10.5 4.5 
draw line 1 green = pl
7.5 1.5
10.5 1.5
!
comment 1&idb
  new 's&^_!'   1.3 4.5 0.4 = r pl = green
  new 's'        11.1 1.2 0.4 = r pl = green
  new 'K^0!'      0.8 3.0 0.4 = r pl = green
  new 'K&^[-]^0' 11.5 3.0 0.4 = r pl = green
  new 'd'       1.3 1.2 0.4 = r pl = blue
  new 'd&^[-]!'  10.9 4.5 0.4 = l pl = blue
  new 'W' 3.6 2.9 0.4 = l pl = magenta
  new 'W' 7.80 2.9 0.4 = l pl = magenta
  new 'u&^_!,c&^_!,t&^[-]!'     5.4 4.85 0.4 = l pl = red
  new 'u,c,t'     5.4 0.85 0.4 = l pl = red
end
!
@9 hard epost
@9 close