/[groff]/groff/src/utils/afmtodit/afmtodit.pl
ViewVC logotype

Diff of /groff/src/utils/afmtodit/afmtodit.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.15 by wl, Thu May 26 21:02:01 2005 UTC revision 1.16 by wl, Sat Dec 3 08:15:11 2005 UTC
# Line 6246  while (<MAP>) { Line 6246  while (<MAP>) {
6246              $map{$field[0], $nmap{$field[0]}} = $field[1];              $map{$field[0], $nmap{$field[0]}} = $field[1];
6247              $nmap{$field[0]} += 1;              $nmap{$field[0]} += 1;
6248    
6249              # There is more then one way to make a PS glyph name;              # There is more than one way to make a PS glyph name;
6250              # let us try unicode names with `uni' and `u' prefixes.              # let us try Unicode names with both `uni' and `u' prefixes.
6251              my $utmp = $AGL_to_unicode{$field[0]};              my $utmp = $AGL_to_unicode{$field[0]};
6252              if (defined $utmp && $utmp =~ /^[0-9A-F]{4}$/) {              if (defined $utmp && $utmp =~ /^[0-9A-F]{4}$/) {
6253                  foreach my $unicodepsname ("uni" . $utmp, "u" . $utmp) {                  foreach my $unicodepsname ("uni" . $utmp, "u" . $utmp) {
# Line 6564  for (my $i = 0; $i <= $#encoding; $i++) Line 6564  for (my $i = 0; $i <= $#encoding; $i++)
6564  sub conv {  sub conv {
6565      $_[0]*$unitwidth*$resolution/(72*1000*$sizescale) + ($_[0] < 0 ? -.5 : .5);      $_[0]*$unitwidth*$resolution/(72*1000*$sizescale) + ($_[0] < 0 ? -.5 : .5);
6566  }  }
6567    
6568    # eof

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26