12 my $s = Cairo::PdfSurface->create('digit.pdf', $pw, $ph);
13 my $c = Cairo::Context->create($s);
16 $c->set_line_width(2);
17 $c->set_line_cap('round');
18 $c->set_source_rgb(0, 0, 0);
23 $c->set_line_width(0.5);
24 $c->move_to($x-.5*$u, $y);
25 $c->line_to($x+.5*$u, $y);
27 $c->move_to($x, $y-.5*$u);
28 $c->line_to($x, $y+.5*$u);
44 cross($xp+6*$u, $yp+6*$u);
46 my ($x1,$y1,$x2,$y2) = $r =~ /^\((\d+),(\d+)\)-\((\d+),(\d+)\)$/ or die;
47 $c->move_to($xp + (.9*$x1+.1*$x2)*$u, $yp + (.9*$y1+.1*$y2)*$u);
48 $c->line_to($xp + (.9*$x2+.1*$x1)*$u, $yp + (.9*$y2+.1*$y1)*$u);
53 if ($xp + 5*$u > $pw) {
56 if ($yp + 5*$u > $ph) {
64 print "Output $n matchograms.\n";