Help language development. Donate to The Perl Foundation
This is a PDF rendering back-end for the HTML::Canvas module.
This back-end is experimental.
It may be useful, if you wish to manipulate existing PDF files use the HTML Canvas API.
use v6; # Finish an existing PDF. Add a background color and page numbers use PDF::Lite; use PDF::Content; use HTML::Canvas; use HTML::Canvas::To::PDF; # render to a PDF page my PDF::Lite $pdf .= open: "examples/render-pdf-test-sheets.pdf"; # use a cache for shared resources such as fonts and images. # for faster production and smaller multi-page PDF files my HTML::Canvas::To::PDF::Cache $cache .= new; my $pages = $pdf.page-count; for 1 .. $pages -> $page-num { my $page = $pdf.page($page-num); my HTML::Canvas $canvas .= new; my PDF::Content $gfx = $page.pre-gfx; my HTML::Canvas::To::PDF $feed .= new: :$gfx, :$canvas, :$cache; $canvas.context: -> \ctx { ctx.fillStyle = "rgba(0, 0, 200, 0.2)"; ctx.fillRect(10, 25, $page.width - 20, $page.height - 45); ctx.font = "12px Arial"; ctx.fillStyle = "rgba(50, 50, 200, 0.8)"; ctx.fillText("Page $page-num/$pages", 550, 15); } } $pdf.save-as: "examples/demo.pdf";