sub setTTFont {
  my ( $self, $fontfile, $size )= @_;

  if (exists $self->{__font_cache}->{$fontfile}) {
    $self->{font} = $self->{__font_cache}->{$fontfile};
  }
  else {
    $self->{font} = $self->{pdf}->ttfont($fontfile);
    $self->{__font_cache}->{$fontfile} = $self->{font};
  }

  $self->{fontname} = $fontfile;
}