!
! Draw tree-level diagram for B -| J/psi KS
!
exec lecture_fig_setup b_jpsi_ks 10 9 2 1 0.2 0.2
set font -1001
set font title -1004
set title off
!
exec lecture_fig_copy 'B -> J/[y] K?S!' 2
!
set tick all off
!
! c Quark Exchange
!
title 1&1 'Tree Level'
exec lecture_fig_plot 1
!
draw arrow 1 red = pl -4
1 7 5 7
draw arrow 1 red = pl -4
5 7 8.5 7
!
draw arrow 1 black = pl -4
5 4 1 4
draw arrow 1 black = pl -4
8.5 2 5 4
!
draw arrow 2 magenta = pl -4
5 7 6 5
!
draw arrow 1 blue = pl -4
8.5 6 6 5
draw arrow 1 blue = pl -4
6 5 8.5 3
comment 1&1
  new 'B&^[-]!^0!' 0.8 5.6 0.4 = r pl = green
  new 'b' 1.5 7.1 0.4 = l pl = red
  new 'c' 8.6 6.9 0.4 = l pl = red
  new 'V?cb!' 5 7.3 0.4 = c pl -1001 cyan
  new 'V?cs!' 5 4.8 0.4 = l pl -1001 cyan
  new 'd&^[-]!' 1.5 4.1 0.4 = l pl = black
  new 'd&^[-]!' 8.6 1.8 0.4 = l pl = black
  new 'W^[-]!' 5.0 5.8 0.4 = r pl = magenta
  new 'c&^_!' 8.6 5.9 0.4 = l pl = blue
  new 's'     8.6 2.8 0.4 = l pl = blue
  new 'K?S!'  9.0 2.3 0.4 = l pl = green
  new 'J/[y]' 9.0 6.5 0.4 = l pl = green
end
!
! Penguin
!
title 1&2 Penguin
exec lecture_fig_plot 2
!
draw arrow 1 red = pl -4
1 4.5 3 4.5
draw arrow 1 green = pl -4
3 4.5 5 4.5
draw arrow 1 red = pl -4
5 4.5 8 4.5
draw arc 2 magenta = pl
4 4.5
1 1
180 360
!
draw arrow 1 black = pl -4
4 2 1 2
draw arrow 1 black = pl -4
8 2 4 2
!
draw gluon 1 magenta = pl -4
4 4.5 6 6.5
!
draw arrow 1 blue = pl -4
6 6.5 8 8
draw arrow 1 blue = pl -4
8 5.5 6 6.5
!
comment 1&2 
  new 'B&^[-]!^[0]!' 0.8 3.0 0.4 = r pl = green
  new 'b' 1.5 4.6 0.4 = l pl = red
  new 'W' 4 3.0 0.4 = c pl = magenta
  new 'u, c, t' 4 4.1 0.4 = c pl = green
  new 'V?tb!' 3 4.8 0.4 = r pl -1001 cyan
  new 'V?ts!' 5 4.0 0.4 = l pl -1001 cyan
  new 'd&^[-]!' 1.5 2.1 0.4 = l pl = black
  new 'g' 6.2 5.8 0.4 = l pl = magenta
  new 'c&^_!' 8.2 5.4 0.4 = l pl = blue
  new 'c'     8.2 7.9 0.4 = l pl = blue
  new 'd&^[-]!' 8.2 1.9 0.4 = l pl = black
  new 's' 8.2 4.4 0.4 = l pl = red
  new 'J/[y]' 8.9 6.6 0.4 = l pl = blue
  new 'K?S!' 8.9 3.0 0.4 = l pl = green
end
!
@9 hard epost
@9 close