| CC: | christopher [...] pobox.com |
| Subject: | Feature Suggestion - allow scaling of barcodes |
It would be nice if EAN13.pm supported the "ModuleSize" paramater, like
the QRCode module does.
Here is the tested DIFF to impliment such a feature:-
*** EAN13.pm.original 2003-05-29 22:07:03.000000000 +0000
--- EAN13.pm.with_ModuleSize 2011-09-15 14:04:07.018203846 +0000
***************
*** 148,151 ****
--- 148,156 ----
my($oGd, $cBlack);
if($hParam{NoText}) {
+ if($hParam{ModuleSize}) { # Scale it
+ my($rc,$c);
+ while(($c=chop($sPtn)) ne '') {$rc.= $c x $hParam{ModuleSize}}
+ $sPtn=$rc;
+ }
($oGd, $cBlack) = GD::Barcode::plot($sPtn, length($sPtn),
$iHeight, 0, 0);
}
| Subject: | EAN13_with_ModuleSize.diff |
*** EAN13.pm.original 2003-05-29 22:07:03.000000000 +0000
--- EAN13.pm.with_ModuleSize 2011-09-15 14:04:07.018203846 +0000
***************
*** 148,151 ****
--- 148,156 ----
my($oGd, $cBlack);
if($hParam{NoText}) {
+ if($hParam{ModuleSize}) { # Scale it
+ my($rc,$c);
+ while(($c=chop($sPtn)) ne '') {$rc.= $c x $hParam{ModuleSize}}
+ $sPtn=$rc;
+ }
($oGd, $cBlack) = GD::Barcode::plot($sPtn, length($sPtn), $iHeight, 0, 0);
}