diff options
| -rwxr-xr-x | mat | 90 |
1 files changed, 61 insertions, 29 deletions
@@ -267,44 +267,76 @@ sub cmd_postpone { sub print_label { my ( $id, $dish_name, $amount ) = @_; - my $iconv = Text::Iconv->new("UTF-8", "ISO8859-1"); - my $row0 = `date +%Y%m%d|tr -d '\n'`.' '.LABEL_NAME; - my $row1 = $iconv->convert($dish_name).' ('.$amount.'g)'; - - # 300 dpi & 29 x 90 mm ger: 300*2.9/2.54 = 343, 300*9.0/2.54 = 1063 - my $label = new GD::Image(343, 1063); - my $x_border = 25; - my $y_border = 80; + my $fontname = "/usr/share/fonts/truetype/freefont/FreeSans.ttf"; + my $fontsize = 15; + my $x_border = 40; + my $y_border = 450; - my $white = $label->colorAllocate(255,255,255); - my $black = $label->colorAllocate(0,0,0); - - $label->fill(0, 0, $white); + my $iconv = Text::Iconv->new("UTF-8", "ISO8859-1"); + my $row0 = LABEL_NAME; + my $row1 = $iconv->convert($dish_name); + my $row2 = `date +%Y%m%d|tr -d '\n'`.' ('.$amount.'g)'; my $idbarcode = GD::Barcode::QRcode->new(sprintf("%s%d", LABEL_ID_PREFIX, $id), { Version=>3 }); my $idbarcode_image=$idbarcode->plot(); - $label->copyResized($idbarcode_image, $x_border, $y_border, 0, 0, $idbarcode_image->width() * 5, $idbarcode_image->height() * 5, $idbarcode_image->width(), $idbarcode_image->height()); - my $idtext = new GD::Image(500, gdGiantFont->height()); - $white = $idtext->colorAllocate(255,255,255); - $black = $idtext->colorAllocate(0,0,0); + + my $idtext = new GD::Image(500, $fontsize * 2); + my $white = $idtext->colorAllocate(255,255,255); + my $black = $idtext->colorAllocate(0,0,0); $idtext->fill(1, 1, $white); $idtext->string(gdGiantFont, 0, 0, $id, $black); - $label->copyResized($idtext, $x_border * 2, $y_border + $idbarcode_image->height() * 5, 0, 0, $idtext->width() * 2, $idtext->height() * 2, $idtext->width(), $idtext->height()); - my $text = new GD::Image(500, gdGiantFont->height()); - $white = $text->colorAllocate(255,255,255); - $black = $text->colorAllocate(0,0,0); - $text->fill(1, 1, $white); - $text->string(gdGiantFont, 0, 0, $row0, $black); - my $text_image=$text->copyRotate90(); - $text_image->line(0, 0, 100, 100, $white); + my $text0 = new GD::Image(500, $fontsize * 3); + $white = $text0->colorAllocate(255,255,255); + $black = $text0->colorAllocate(0,0,0); + $text0->fill(1, 1, $white); + my @bounds0 = $text0->stringFT(-1 * $black, $fontname, $fontsize, 0, 0, 2 * $fontsize, $row0); + my $text0_image=$text0->copyRotate90(); + $text0_image->line(0, 0, 100, 100, $white); + + my $text1 = new GD::Image(500, $fontsize * 3); + $white = $text1->colorAllocate(255,255,255); + $black = $text1->colorAllocate(0,0,0); + $text1->fill(1, 1, $white); + $text1->filledRectangle(0, 0, $text1->width(), $text1->height(), $white); + my @bounds1 = $text1->stringFT(-1 * $black, $fontname, $fontsize, 0, 0, 2 * $fontsize, $row1); + my $text1_image=$text1->copyRotate90(); + + my $text2 = new GD::Image(500, $fontsize * 3); + $white = $text2->colorAllocate(255,255,255); + $black = $text2->colorAllocate(0,0,0); + $text2->fill(1, 1, $white); + $text2->filledRectangle(0, 0, $text2->width(), $text2->height(), $white); + my @bounds2 = $text2->stringFT(-1 * $black, $fontname, $fontsize, 0, 0, 2 * $fontsize, $row2); + my $text2_image=$text2->copyRotate90(); + + my $labelwidth = $idbarcode_image->width() * 5 + $idtext->height() * 2 + 2 * $y_border; + if($bounds0[2] + 2 * $y_border > $labelwidth) { + $labelwidth = $bounds0[2] + 2 * $y_border; + } + if($bounds1[2] + 2 * $y_border > $labelwidth) { + $labelwidth = $bounds1[2] + 2 * $y_border; + } + if($bounds2[2] + 2 * $y_border > $labelwidth) { + $labelwidth = $bounds2[2] + 2 * $y_border; + } + if($labelwidth > 1063) + { + $labelwidth = 1063; + } - $label->copyResized($text_image, $label->width() - $text_image->width() * 4 - $x_border, $y_border, 0, 0, $text_image->width() * 4, $text_image->height() * 3, $text_image->width(), $text_image->height()); + # 300 dpi & 29 x 90 mm ger: 300*2.9/2.54 = 343, 300*9.0/2.54 = 1063 + my $label = new GD::Image(343, $labelwidth); - $text->filledRectangle(0, 0, $text->width(), $text->height(), $white); - $text->string(gdGiantFont, 0, 0, $row1, $black); - $text_image=$text->copyRotate90(); - $label->copyResized($text_image, $label->width() - $text_image->width() * 4 - 4 * gdGiantFont->height() - $x_border, $y_border, 0, 0, $text_image->width() * 4, $text_image->height() * 3, $text_image->width(), $text_image->height()); + $white = $label->colorAllocate(255,255,255); + $black = $label->colorAllocate(0,0,0); + $label->fill(0, 0, $white); + + $label->copyResized($idbarcode_image, $x_border, $y_border, 0, 0, $idbarcode_image->width() * 5, $idbarcode_image->height() * 5, $idbarcode_image->width(), $idbarcode_image->height()); + $label->copyResized($idtext, $x_border * 2, $y_border + $idbarcode_image->height() * 5, 0, 0, $idtext->width() * 2, $idtext->height() * 2, $idtext->width(), $idtext->height()); + $label->copyResized($text0_image, $label->width() - $x_border - 2 * $fontsize, $y_border, 0, 0, $bounds0[1] * 1, $bounds0[2], $bounds0[1], $bounds0[2]); + $label->copyResized($text1_image, $label->width() - $x_border - 4 * $fontsize, $y_border, 0, 0, $bounds1[1] * 1, $bounds1[2], $bounds1[1], $bounds1[2]); + $label->copyResized($text2_image, $label->width() - $x_border - 6 * $fontsize, $y_border, 0, 0, $bounds2[1] * 1, $bounds2[2], $bounds2[1], $bounds2[2]); open(PNGFILE, ">label.png"); print PNGFILE $label->png; |