Revision 50b0d77d
Von Cem Aydin vor etwa 3 Jahren hinzugefügt
| SL/Helper/QrBill.pm | ||
|---|---|---|
| 129 | 129 |
my $cross = Imager->new(); |
| 130 | 130 |
$cross->read(file => $Config{cross_file}) or die $cross->errstr, "\n";
|
| 131 | 131 |
|
| 132 |
return $cross->scale(xpixels => 27, ypixels => 27, qtype => 'mixing');
|
|
| 132 |
return $cross->scale(xpixels => 35, ypixels => 35, qtype => 'mixing');
|
|
| 133 | 133 |
} |
| 134 | 134 |
|
| 135 | 135 |
sub _plot {
|
Auch abrufbar als: Unified diff
Swiss QR-Bill: QrBill.pm: Skalierung Schweizerkreuz angepasst