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 |
- |
|
|