/// \file
/// \ingroup tutorial_graphics
/// \notebook -js
/// \preview This macro produces the flowchart of TFormula::Eval.
///
/// \macro_image
/// \macro_code
///
/// \author Rene Brun

void eval()
{

   TCanvas *c1 = new TCanvas("c1");
   c1->Range(0, 0, 20, 10);
   TPaveLabel *pt1 = new TPaveLabel(0.2, 4, 3, 6, "Eval");
   pt1->SetTextSize(0.5);
   pt1->SetFillColor(42);
   pt1->Draw();
   TPaveText *pt2 = new TPaveText(4.5, 4, 7.8, 6);
   pt2->Draw();
   TText *t1 = pt2->AddText("Read Operator");
   TText *t2 = pt2->AddText("number i");
   TPaveText *pt3 = new TPaveText(9, 3.5, 17.5, 6.5);
   TText *t4 = pt3->AddText("Apply Operator to current stack values");
   TText *t5 = pt3->AddText("Example: if operator +");
   TText *t6 = pt3->AddText("value[i] += value[i-1]");
   t4->SetTextAlign(22);
   t5->SetTextAlign(22);
   t6->SetTextAlign(22);
   t5->SetTextColor(4);
   t6->SetTextColor(2);
   pt3->Draw();
   TPaveLabel *pt4 = new TPaveLabel(4, 0.5, 12, 2.5, "return result = value[i]");
   pt4->Draw();
   TArrow *ar1 = new TArrow(6, 4, 6, 2.7, 0.02, "|>");
   ar1->Draw();
   TText *t7 = new TText(6.56, 2.7, "if i = number of stack elements");
   t7->SetTextSize(0.04);
   t7->Draw();
   ar1->DrawArrow(6, 8, 6, 6.2, 0.02, "|>");
   TLine *l1 = new TLine(12, 6.6, 12, 8);
   l1->Draw();
   l1->DrawLine(12, 8, 6, 8);
   ar1->DrawArrow(3, 5, 4.4, 5, 0.02, "|>");
   ar1->DrawArrow(7.8, 5, 8.9, 5, 0.02, "|>");
}
