Lines Matching refs:tfminfo

678 foreach my $tfminfo (@tfmlist) {
679     my $tfm = $tfminfo->{"tfm"};
681     $tfminfo->{"designsize"} = $tfm2size{$tfm};
682     if ($tfminfo->{"scale_type"} eq "@") {
684         $tfminfo->{"scale_type"} = "X";
685         $tfminfo->{"scale"} /= $tfminfo->{"designsize"};
687     push @goodtfmlist, $tfminfo;
696     foreach my $tfminfo (@$tfmlist) {
697         my $tfm = $tfminfo->{"tfm"};
699         $tfminfo->{"designsize"} = $tfm2size{$tfm};
700         if ($tfminfo->{"scale_type"} eq "@") {
702             $tfminfo->{"scale_type"} = "X";
703             $tfminfo->{"scale"} /= $tfminfo->{"designsize"};
738     foreach my $tfminfo ($fontmatch{$fontname} ? @{$fontmatch{$fontname}} : @tfmlist) {
739         if ($tfminfo->{"scale"} eq "*") {
741             next if !defined $tfmfontwidth{$tfminfo->{"tfm"}};
742             my $newscale = optimal_scale $fontwidth{$fontname}, $tfmfontwidth{$tfminfo->{"tfm"}};
745                 my %newtfminfo = %$tfminfo;
751                 my $tfm = $tfminfo->{"tfm"};
757             push @eligible_tfms, $tfminfo;
764     foreach my $tfminfo (@eligible_tfms) {
765         my $tfm = $tfminfo->{"tfm"};
767         my $scale = $tfminfo->{"scale"};
773             @besttfms   = ($tfminfo);
777             push @besttfms, $tfminfo;