{
  double th_min=0;
  double th_max=TMath::Pi()*2;
  double r[1000];
  double theta[1000];
  TF1 *fp1 = new TF1("fp1", "1-sin(x)", -1, 1) ;
  for(int i=0; i<1000; ++i) {
    theta[i] = i*(th_max-th_min)/1000 + th_min;
        r[i] = fp1->Eval( theta[i] );
  }
  TCanvas *Cpol = new TCanvas("Cpol", "TGraphPolar Example: a heart...", 600,600) ;
  TGraphPolar *gr = new TGraphPolar(1000, theta, r) ;
  gr->SetTitle("#color[2]{Heart: r=1-sin#vartheta}");
  gr->SetLineColor(2) ;
  gr->SetLineWidth(3) ;
  gr->Draw ("AOL");


  //----------------------------------------
  // Προσθέστε αυτές τις εντολές για να σχεδιαστεί σωστά η ακτίνα (από 0 και πάνω...)
  Cpol->Draw();
  gr->SetMinRadial(0);
  gr->SetMaxRadial(2);  // <-- βάλτε τη σωστή τιμή του ρ_max
  gr->SetMinPolar(0);
  gr->SetMaxPolar(2*TMath::Pi()); 
  //----------------------------------------

}