#!/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;
}