void feynman_BToDlnu()
{

  TString outPlotName("FeynDiagrams/B0ToDlnu.eps");

  TCanvas *c1 = new TCanvas("c1", "A canvas", 10,10, 600, 300);
  c1->Range(0, 0, 100, 40);
  Int_t linsav = gStyle->GetLineWidth();
  gStyle->SetLineWidth(3);
  TLatex t;
  t.SetTextAlign(22);
  t.SetTextSize(0.1);
  TLine * l;
  l = new TLine(15, 35, 85, 35); l->Draw();
  l = new TLine(15, 27, 85, 27); l->Draw();
  t.DrawLatex(12,35,"d");
  t.DrawLatex(12,27,"#bar{b}");
  t.DrawLatex(5,31,"B^{0}");
  t.DrawLatex(88,35,"d");
  t.DrawLatex(88,27,"#bar{c}");
  t.DrawLatex(95,31,"D^{-}");
  
  TCurlyLine *gamma = new TCurlyLine(45, 27, 60, 10);
  gamma->SetWavy();
  gamma->Draw();
  t.DrawLatex(45,18,"W");
  
  l = new TLine(60, 10, 85, 15); l->Draw();
  l = new TLine(60, 10, 85, 5); l->Draw();
  
  t.DrawLatex(88,15,"l^{+}");
  t.DrawLatex(88,5,"#nu");
  
  c1->Update();
  gStyle->SetLineWidth(linsav);
  
  c1->Print(outPlotName);
}