Exd/scripts/demo.pl

#!/usr/bin/env perl

use v5.40.0;

use strict;
use warnings;

use Exd::Printer;
use Exd::DeviceToImage;
use Exd::DeviceToRawFile;
use Exd::DeviceToBluetooth;
use Exd::Utils;

{
#    my $device  = Exd::DeviceToBluetooth->new( address => '5A:4A:AE:8C:E9:D2', port => 1 );
    my $device =
      Exd::DeviceToImage->new( output_file => 'a.png' );
    my $printer = Exd::Printer->new( device => $device );
    for my $font (
        'Z003 Medium Italic',
        'Noto Sans CJK JP',
        'Shadow Into Light Regular'
      )
    {
        $printer->font($font);

        my $hoz = Exd::Utils::get_gd_image('scripts/hoz.jpg');

        $printer->print_text(
            [
                $hoz, ' The best software ' , $hoz , ' belongs to everybody ',
                $hoz
            ],
            30
        );
        $printer->image('scripts/hoz.jpg');
        $printer->print_n_lf(4);

        $printer->print;
    }
}