Как сгенерировать шрифт "Embeded subset" с помощью CPAN-модуля PDF :: API2

Question

Кто-нибудь знает, как сгенерировать шрифт "Embeded subset", используя PDF :: API2 ?Я не могу найти ничего в его документации, и все, что он пытается сделать, похоже, создает либо просто «Embeded», либо не встраиваемый шрифт:

my $pdf  = PDF::API2->open('blank.pdf');
my $page = $pdf->openpage(1);
my $txt  = $page->text;
my $font = $pdf->ttfont('verdana.ttf');
$txt->textlabel( 170, 170, $font, 20, 'text Embeded TTF font');

Другой модуль Text :: PDF :: TTFont который наследуется от Текст :: PDF делает это правильно.

спасибо!

Answer 1

Я могу создать встроенное подмножество

#!/usr/bin/perl
use strict;
use warnings;
use lib 'PDF-API2-0.73/lib/';


use PDF::API2;

my $text = "A sample text using Noto TTF";

my $pdf  = PDF::API2->new();
my $page = $pdf->page;
my $txt = $page->text;

my $font = $pdf->ttfont('C:/temp/fonts/NotoSans-Bold.ttf');        

$txt->font($font, 25);
$txt->translate(200, 550);
$txt->fillcolor('black');
$txt->text($text);

$pdf->saveas("Noto-TTF.pdf");