!
! The unitarity triangle
!
exec lecture_fig_setup unitarity 8 5 2 1 0.2 0.2
set font -1001
set font title -1004
set title off
!
exec lecture_fig_copy 'Unitarity triangle' 2
!
set tick all off
!
! With CKM matrix elements
!
exec lecture_fig_plot 1
draw arrow 1 blue = pl -4
7 1 1 1
draw arrow 1 blue = pl -4
1 1 3 4
draw arrow 1 blue = pl -4
3 4 7 1
draw arc 1 red 10 pl
7 1
1.0 1.0
144 180
draw arc 1 green = pl
1 1
1.0 1.0
0 55
draw arc 1 green = pl
3 4
1.0 1.0
235 326
comment 1&1 
  new 'A'    3.0 4.1 = = c pl = blue
  new '[a]'  3.1 3.4 = = c pl = green
  new 'B'    7.0 0.5 = = c pl = blue
  new '[b]'  6.5 1.1 = = r pl = green
  new 'C'    1.0 0.5 = = c pl = blue
  new '[g]'  1.4 1.2 = = l pl = green
  new 'V?ud! V?ub!&^*!' 1.8 3.0 = = r pl = red
  new 'V?cd! V?cb!&^*!' 4.0 0.4 = = c pl = red
  new 'V?td! V?tb!&^*!' 5.0 3.0 = = l pl = red
end
!
! Rho, eta
!
exec lecture_fig_plot 2
draw arrow 1 blue = pl -4
7 1 1 1
draw arrow 1 blue = pl -4
1 1 3 4
draw arrow 1 blue = pl -4
3 4 7 1
draw arc 1 red 10 pl
7 1
1.0 1.0
144 180
draw arc 1 green = pl
1 1
1.0 1.0
0 55
draw arc 1 green = pl
3 4
1.0 1.0
235 326
comment 1&2 
  new 'A = ([r]&^_!,[c]&^_!)'    3.0 4.1 = = c pl = blue
  new '[a]'  3.1 3.4 = = c pl = green
  new 'B = (1,0)'    6.8 0.5 = = c pl = blue
  new '[b]'  6.5 1.1 = = r pl = green
  new 'C = (0,0)'    1.2 0.5 = = c pl = blue
  new '[g]'  1.4 1.2 = = l pl = green
end
!
@9 hard epost
@9 close