|
Lines 103-109
sub draw_barcode {
Link Here
|
| 103 |
_draw_barcode( |
103 |
_draw_barcode( |
| 104 |
$self, |
104 |
$self, |
| 105 |
llx => $llx + $llx_layout * $self->{'unitvalue'}, |
105 |
llx => $llx + $llx_layout * $self->{'unitvalue'}, |
| 106 |
lly => $llx + $llx_layout * $self->{'unitvalue'}, |
106 |
lly => $lly + $lly_layout * $self->{'unitvalue'}, |
| 107 |
width => $self->{'width'} * $barcode_width_scale, |
107 |
width => $self->{'width'} * $barcode_width_scale, |
| 108 |
y_scale_factor => $self->{'height'} * $barcode_height_scale, |
108 |
y_scale_factor => $self->{'height'} * $barcode_height_scale, |
| 109 |
barcode_type => $self->{'layout'}->{'barcode'}->[0]->{'type'}, |
109 |
barcode_type => $self->{'layout'}->{'barcode'}->[0]->{'type'}, |
|
Lines 249-255
sub draw_text {
Link Here
|
| 249 |
my $text_attribs = shift @$text; |
249 |
my $text_attribs = shift @$text; |
| 250 |
my $llx = $self->{'llx'} || 0; |
250 |
my $llx = $self->{'llx'} || 0; |
| 251 |
my $llx_text_attr = $text_attribs->{'llx'} || 0; |
251 |
my $llx_text_attr = $text_attribs->{'llx'} || 0; |
| 252 |
my $lly = $self->{'llx'} || 0; |
252 |
my $lly = $self->{'lly'} || 0; |
| 253 |
my $lly_text_attr = $text_attribs->{'lly'} || 0; |
253 |
my $lly_text_attr = $text_attribs->{'lly'} || 0; |
| 254 |
|
254 |
|
| 255 |
my $origin_llx = $llx + $llx_text_attr * $self->{'unitvalue'}; |
255 |
my $origin_llx = $llx + $llx_text_attr * $self->{'unitvalue'}; |
| 256 |
- |
|
|