CREATE OR REPLACE PROCEDURE Test1TTF IS
-- TTF example
   ---------------
  l_ttf Plpdf_Type.t_addfont;
  l_blob BLOB;
 BEGIN
    l_ttf := Plpdf_Ttf.GetTTF(1);
    Plpdf.init; -- initialize, without parameters means: page orientation: portrait, unit: mm, default page format: A4
	Plpdf.addTTF('Typewriter-PG', NULL, l_ttf);
    Plpdf.NewPage; -- begin a new page, without parameters means: page orientation: default (portrait)
    Plpdf.SetPrintFont('Typewriter-PG',NULL,12); -- set font attributes: family: Arial, style: regular, font size: 12
	Plpdf.PrintCell(100,10,'Hello World!');
    Plpdf.SendDoc(l_blob); -- create content

	-- print
	/*
	owa_util.mime_header('application/pdf');
        htp.p('Content-Length: ' || dbms_lob.getlength(l_blob)); 
        owa_util.http_header_close; 	
        wpg_docload.download_file(l_blob);
        */

	-- or store
	INSERT INTO STORE_BLOB (blob_file, created_date) VALUES (l_blob, SYSDATE);
	COMMIT;
 END;
/