!
! Prompt semileptonic decay
!
exec lecture_fig_setup prompt 10 6 1 1 0.2 0.2
set font -1001
set font title -1004
set title off
!
exec lecture_fig_copy 'Prompt Leptons' 0
!
set tick all off
exec lecture_fig_plot 0
!
draw arrow 1 red = pl -4
1 3
5 3
draw arrow 1 blue = pl -4
5 3
9 3
draw line 2 green = pl
5 3
7.0 4.5
draw arrow 1 red = pl -1
7.0 4.5
9.0 5.4
draw arrow 1 magenta = pl -1
7.0 4.5
9.0 3.7
draw line 1 black = pl
1 1
9 1
comment 1
  new 'b' 2 3.2 0.4 = c pl = red
  new 'c' 2 2.4 0.4 = c pl = red
  new 'c' 8 3.2 0.4 = c pl = blue
  new 's' 8 2.4 0.4 = c pl = blue
  new 'W^[-]!' 6.3 4.00 0.4 = c pl = green
  new 'W^+!' 6.3 3.25 0.4 = c pl = green
  new 'l^[-]!' 9 5.5 0.4 = c pl = red
  new 'l^+!' 9 4.7 0.4 = c pl = red
  new '[n]'     9 3.9 0.4 = c pl = magenta
  new '[n]&^_!' 9 3.2 0.4 = c pl = magenta
  new 'Spectator' 5 1.2 0.4 = c pl = black
end
!
@9 hard epost
@9 close