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) { |
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 |