program PieExample;

{$APPTYPE CONSOLE}

uses

   SysUtils, Graphics, Classes, HPDFDoc;

var

   HPDF: THotPDF;

begin

   HPDF := THotPDF.Create( nil );

   try

       HPDF.AutoLaunch := true;                                      // Soubor PDF se zobrazí automaticky

       HPDF.FileName := 'Curve.pdf';                              

       HPDF.BeginDoc;                                                                  // Vytvořit soubor PDF

       HPDF.CurrentPage.DrawPie(10, 10, 110, 110, 50, 10, 10, 50 ); // Nakreslit výseč

       HPDF.CurrentPage.Fill;                                                         // Vyplnit křivku

       HPDF.EndDoc;                                                                    // Zavřít soubor PDF

   finally

       HPDF.Free;

   end;

end.