!
! Cascade semileptonic decay
!
exec lecture_fig_setup cascade 10 6 1 1 0.2 0.2
set font -1001
set font title -1004
set title off
!
exec lecture_fig_copy 'Cascade decay' 0
!
set tick all off
exec lecture_fig_plot 0
!
draw arrow 1 red = pl -4
1 3
3 3
draw arrow 1 blue = pl -4
3 3
6 3
draw arrow 1 cyan = pl -4
6 3
9 3
draw line 2 green = pl
3 3
4 4.5
draw line 2 green = pl
6 3
7.0 4.5
draw arrow 1 red = pl -1
4.0 4.5
5.0 5.0
draw arrow 1 magenta = pl -1
4.0 4.5
5.0 4.0
draw arrow 1 red = pl -1
7.0 4.5
8.0 5.0
draw arrow 1 magenta = pl -1
7.0 4.5
8.0 4.0
draw line 1 black = pl
1 1
9 1
comment 1 
  new 'b' 2 2.4 0.4 = c pl = red
  new 'c' 4.5 2.4 0.4 = c pl = blue
  new 's' 7.5 2.4 0.4 = c pl = blue
  new 'W^[-]!' 3.1 3.70 0.4 = c pl = green
  new 'W^+!' 6.1 3.70 0.4 = c pl = green
  new 'l^[-]!' 5.2 4.8 0.4 = l pl = red
  new '[n]&^_!' 5.2 3.8 0.4 = l pl = magenta
  new 'l^+!' 8.2 4.8 0.4 = l pl = red
  new '[n]'  8.2 3.8 0.4 = c pl = magenta
end
!
@9 hard epost
@9 close