9 my $s = Cairo::PdfSurface->create('digit.pdf', 7*$u, 7*$u);
10 my $c = Cairo::Context->create($s);
13 $c->set_line_width(2);
14 $c->set_line_cap('round');
15 $c->set_source_rgb(0, 0, 0);
24 my ($x1,$y1,$x2,$y2) = $r =~ /^\((\d+),(\d+)\)-\((\d+),(\d+)\)$/ or die;
25 $c->move_to((.9*$x1+.1*$x2)*$u, (.9*$y1+.1*$y2)*$u);
26 $c->line_to((.9*$x2+.1*$x1)*$u, (.9*$y2+.1*$y1)*$u);
34 print "Output $n pages.\n";