CREATE OR REPLACE PROCEDURE Test_Color IS
-- Colors
   ---------------
  l_blob BLOB;
 BEGIN
    Plpdf.init; -- initialize, without parameters means: page orientation: portrait, unit: mm, default page format: A4
    Plpdf.SetPrintFont('Arial',NULL,8); -- set font attributes: family: Arial, style: regular, font size: 12

	FOR l_r IN 0..15 LOOP
	  Plpdf.NewPage;
	   Plpdf.PrintCell(5,0,TO_CHAR(l_r*16),'0',0,'C');
	    Plpdf.LineBreak;
       Plpdf.PrintCell(5,5,NULL);
	  FOR l_g IN 0..15 LOOP
	    Plpdf.PrintCell(5,5,TO_CHAR(l_g*16),'0',0,'C');
	  END LOOP;
	  Plpdf.LineBreak;
	  FOR l_b IN 0..15 LOOP
	    Plpdf.PrintCell(5,5,TO_CHAR(l_b*16));
	    FOR l_g IN 0..15 LOOP
		  Plpdf.SetColor4Filling(l_r*16,l_g*16,l_b*16);
		  Plpdf.PrintCell(5,5,NULL,'1',0,NULL,1);
		END LOOP;
	  Plpdf.LineBreak;
	  END LOOP;
  	  Plpdf.LineBreak;
	END LOOP;

    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;
/