27 lines
531 B
Perl
27 lines
531 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
use v5.40.0;
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use Exd::Printer;
|
||
|
|
use Exd::DeviceToImage;
|
||
|
|
use Exd::DeviceToRawFile;
|
||
|
|
use Exd::Utils;
|
||
|
|
|
||
|
|
{
|
||
|
|
my $device = Exd::DeviceToImage->new( output_file => 'a.png' );
|
||
|
|
my $printer = Exd::Printer->new( device => $device );
|
||
|
|
|
||
|
|
my $hoz = Exd::Utils::get_gd_image('scripts/hoz.jpg');
|
||
|
|
|
||
|
|
$printer->print_text(
|
||
|
|
[ $hoz, ' The best software belongs to everybody ', $hoz ], 27 );
|
||
|
|
$printer->image('scripts/hoz.jpg');
|
||
|
|
$printer->print_n_lf(4);
|
||
|
|
|
||
|
|
$printer->print;
|
||
|
|
}
|
||
|
|
|