!
! Ladder diagram with gluon rungs
!
exec lecture_fig_setup ladder 7 12 1 1 0.2 0.2
! set y psize =+0.5
set font -1001
set font title -1004
set tsize 0.6
set ssize 0.2
!
exec lecture_fig_copy 'Ladder Diagram' 0
!
set tick all off
!
exec lecture_fig_plot 0
draw arrow 1 blue = pl -4
0.5 11 2 11
draw arrow 1 blue = pl -4
2 11 5 11.5
draw sine 1 green = pl
2 11 3 10
draw arrow 1 red = pl -4
3 10 5 10
draw arrow 1 red = pl -4
3 8 3 10
draw arrow 1 red = pl -4
3 8 5 8
draw gluon 1 magenta = pl
3 8 3 7
draw gluon 1 magenta = pl
3 7 4.5 7
draw gluon 1 magenta = pl
3 7 3 6
draw gluon 1 magenta = pl
3 6 4.5 6
draw symbol -11 black 0.1 pl
3 5.5
draw symbol -11 black 0.1 pl
3 5
draw symbol -11 black 0.1 pl
3 4.5
draw gluon 1 magenta = pl
3 4 4.5 4
draw gluon 1 magenta = pl
3 4 3 3
draw gluon 1 magenta = pl
3 3 4.5 3
draw gluon 1 magenta = pl
3 3 3 2
draw gluon 1 magenta = pl
3 2 4.5 2
draw gluon 1 magenta = pl
3 2 2 1
draw arrow 1 blue = pl -4
0.5 1 2 1
draw arrow 1 blue = pl -4
2 1.2 5 1.2
draw arrow 1 blue = pl -4
2 1.0 5 1.0
draw arrow 1 blue = pl -4
2 0.8 5 0.8
draw symbol -11 cyan 0.6 pl
2 1
comment 1&0
  new 'e'    1.4 11.2 = = c pl = blue
  new 'e'    4.4 11.5 = = c pl = blue
  new '[g]^*!'    3.2 10.4 = = l pl = green
  new 'x'  3.2 8.8 = = l pl = red
  new 'x?n!, k?tn!'  4.7 6.8 = = l pl = magenta
  new 'x?n-1!, k?tn-1!'  4.7 5.8 = = l pl = magenta
  new 'x?3!, k?t3!'  4.7 3.8 = = l pl = magenta
  new 'x?2!, k?t2!'  4.7 2.8 = = l pl = magenta
  new 'x?1!, k?t1!'  4.7 1.8 = = l pl = magenta
end
!
@9 hard epost
@9 close