!
! Draw spectator quark diagrams for B and D hadrons
!
exec lecture_fig_setup spectator 13 10 1 1 0.2 0.2
set font -1001
set font title -1004
set title off
!
exec lecture_fig_copy 'Spectator Decays' 3
!
set tick all off
!
! b Quark
!
set hard spectator_b.eps
exec lecture_fig_plot 1
draw arrow 1 red = pl -4
1 6 5 6
draw arrow 1 blue = pl -4
5 6 8 4
!
draw arrow 1 black = pl -4
5 4 1 4
draw arrow 1 black = pl -4
8 2 5 4
!
draw arrow 2 magenta = pl -4
5 6 7 7
!
draw arrow 1 blue = pl -4
7 7 9 8.5
draw arrow 1 blue = pl -4
9 5.5 7 7
!
comment 1&1
  new 'B^&[-]!' 0.8 4.8 0.4 = r pl = green
  new 'b' 1.5 6.1 0.4 = l pl = red
  new 'c' 7.0 5.0 0.4 = l pl = blue
  new 'q&^_!' 1.5 3.5 0.4 = l pl = black
  new 'q^&^_!' 7.0 1.6 0.4 = l pl = black
  new 'W^[-]!' 6.0 6.6 0.4 = r pl = magenta
  new 'e^-!, [m]^[-]!, [t]^[-]!, d, s' 9.1 8.4 0.4 = l pl = blue
  new '[n]&^_!?e!, [n]&^_!?[m]!, [n]&^_!?[t]!, u&^_!, c&^_!' 9.1 5.4 0.4 = l pl = green
end
!
@9 hard epost
@9 close
!
! c Quark
!
set x psize =-1.0
set x size  =-1.0
set hard spectator_c.eps
exec lecture_fig_plot 2
draw arrow 1 red = pl -4
1 6 5 6
draw arrow 1 blue = pl -4
5 6 8 4
!
draw arrow 1 black = pl -4
5 4 1 4
draw arrow 1 black = pl -4
8 2 5 4
!
draw arrow 2 magenta = pl -4
5 6 7 7
!
draw arrow 1 blue = pl -4
7 7 9 8.5
draw arrow 1 blue = pl -4
9 5.5 7 7
!
comment 1&2
  new 'D^+!' 0.8 4.8 0.4 = r pl = green
  new 'c' 1.5 6.1 0.4 = l pl = red
  new 's' 7.0 5.0 0.4 = l pl = blue
  new 'q&^_!' 1.5 3.5 0.4 = l pl = black
  new 'q&^_!' 7.0 1.6 0.4 = l pl = black
  new 'W^+!' 6.0 6.6 0.4 = r pl = magenta
  new 'e^+!, [m]^+!, d&^[-]!, s&^_!' 9.1 5.4 0.4 = l pl = blue
  new '[n]?e!, [n]?[m]!, u' 9.1 8.4 0.4 = l pl = green
end
!
@9 hard epost
@9 close
!
! c Quark Exchange
!
set hard exchange_c.eps
set y size =-3
set y psize =-3
set y lim 0 7
set x size =-1
set x psize =-1
set x lim 0 11
exec lecture_fig_plot 3
!
!
draw arrow 1 red = pl -4
1 6 5 6
draw arrow 1 blue = pl -4
5 6 9 5
!
draw arrow 1 black = pl -4
5 4 1 4
draw arrow 1 black = pl -4
9 1 5 4
!
draw arrow 2 magenta = pl -4
5 6 5 4
!
draw arrow 1 blue = pl -4
5.5 5 9 4
draw arrow 1 blue = pl -4
9 2 5.5 5
comment 1&3
  new 'D^0!' 0.8 4.8 0.4 = r pl = green
  new 'c' 1.5 6.1 0.4 = l pl = red
  new 's' 7.0 5.8 0.4 = l pl = blue
  new 'u&^_!' 1.5 3.5 0.4 = l pl = black
  new 'd&^[-]!' 6.0 1.8 0.4 = l pl = black
  new 'W^+!' 4.8 4.8 0.4 = r pl = magenta
  new 'd, u' 9.1 3.8 0.4 = l pl = blue
  new 'd&^[-]!, u&^_!' 9.1 1.8 0.4 = l pl = green
end
!
@9 hard epost
@9 close