CREATE OR REPLACE procedure test19 is
-- Print ellipse, circle
  l_blob blob;
 begin
    plpdf.init; -- initialize, without parameters means: page orientation: portrait, unit: mm, default page format: A4 
    plpdf.NewPage; -- begin a new page, without parameters means: page orientation: default (portrait)
    plpdf.SetPrintFont('Arial',null,12); -- set font attributes: family: Arial, style: regular, font size: 12
	plpdf.DrawEllipse(50,50,20,10); -- draw ellipse: abscissa of center, ordinate of center, horizontal radius, vertical radius, style: draw (default)
	plpdf.SetColor4Filling(0,0,255); -- set color for filling (RGB)	
    plpdf.Drawcircle(100,100,10,'DF'); -- draw ellipse: abscissa of center, ordinate of center, radius, style: draw and fill					  	
    plpdf.SendDoc(l_blob); -- create content
	
	-- print
	-- plpdf_util.print_blob(l_blob);
    
	-- or store
	insert into STORE_BLOB (blob_file, created_date) values (l_blob, sysdate);
	commit;
 end;
/