CREATE OR REPLACE PROCEDURE Test24 IS
-- Draw sector
  l_blob BLOB;
  
  l_xc NUMBER;
  l_yc NUMBER;
  l_r NUMBER;
  
 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)
    l_xc := 105; -- abscissa of the center
    l_yc := 55; -- ordinate of the center
    l_r := 40; -- radius
    Plpdf.SetColor4Filling(120,120,255); -- set filler color (RGB) 
    Plpdf.DrawSector(l_xc,l_yc,l_r,20,120); -- draw sector: start angle: 20, end angle:120
    Plpdf.SetColor4Filling(120,255,120);  -- set filler color (RGB)
    Plpdf.DrawSector(l_xc,l_yc,l_r,120,250); -- draw sector: start angle: 120, end angle:250
    Plpdf.SetColor4Filling(255,120,120);  -- set filler color (RGB)
    Plpdf.DrawSector(l_xc,l_yc,l_r,250,20); -- draw sector: start angle: 250, end angle:20 
    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;
/