Font-AFM-1.20/000075500000000000000000000000001126644767200127605ustar00rootroot00000000000000Font-AFM-1.20/AFM.pm000064400000000000000000000247101126644767200137250ustar00rootroot00000000000000# This -*- perl -*- module is a simple parser for Adobe Font Metrics files. package Font::AFM; =head1 NAME Font::AFM - Interface to Adobe Font Metrics files =head1 SYNOPSIS use Font::AFM; $h = new Font::AFM "Helvetica"; $copyright = $h->Notice; $w = $h->Wx->{"aring"}; $w = $h->stringwidth("Gisle", 10); $h->dump; # for debugging =head1 DESCRIPTION This module implements the Font::AFM class. Objects of this class are initialised from an AFM (Adobe Font Metrics) file and allow you to obtain information about the font and the metrics of the various glyphs in the font. All measurements in AFM files are given in terms of units equal to 1/1000 of the scale factor of the font being used. To compute actual sizes in a document, these amounts should be multiplied by (scale factor of font)/1000. The following methods are available: =over 3 =item $afm = Font::AFM->new($fontname) Object constructor. Takes the name of the font as argument. Croaks if the font can not be found. =item $afm->latin1_wx_table() Returns a 256-element array, where each element contains the width of the corresponding character in the iso-8859-1 character set. =item $afm->stringwidth($string, [$fontsize]) Returns the width of the argument string. The string is assumed to be encoded in the iso-8859-1 character set. A second argument can be used to scale the width according to the font size. =item $afm->FontName The name of the font as presented to the PostScript language C operator, for instance "Times-Roman". =item $afm->FullName Unique, human-readable name for an individual font, for instance "Times Roman". =item $afm->FamilyName Human-readable name for a group of fonts that are stylistic variants of a single design. All fonts that are members of such a group should have exactly the same C. Example of a family name is "Times". =item $afm->Weight Human-readable name for the weight, or "boldness", attribute of a font. Examples are C, C, C. =item $afm->ItalicAngle Angle in degrees counterclockwise from the vertical of the dominant vertical strokes of the font. =item $afm->IsFixedPitch If C, the font is a fixed-pitch (monospaced) font. =item $afm->FontBBox A string of four numbers giving the lower-left x, lower-left y, upper-right x, and upper-right y of the font bounding box. The font bounding box is the smallest rectangle enclosing the shape that would result if all the characters of the font were placed with their origins coincident, and then painted. =item $afm->UnderlinePosition Recommended distance from the baseline for positioning underline strokes. This number is the y coordinate of the center of the stroke. =item $afm->UnderlineThickness Recommended stroke width for underlining. =item $afm->Version Version number of the font. =item $afm->Notice Trademark or copyright notice, if applicable. =item $afm->Comment Comments found in the AFM file. =item $afm->EncodingScheme The name of the standard encoding scheme for the font. Most Adobe fonts use the C. Special fonts might state C. =item $afm->CapHeight Usually the y-value of the top of the capital H. =item $afm->XHeight Typically the y-value of the top of the lowercase x. =item $afm->Ascender Typically the y-value of the top of the lowercase d. =item $afm->Descender Typically the y-value of the bottom of the lowercase p. =item $afm->Wx Returns a hash table that maps from glyph names to the width of that glyph. =item $afm->BBox Returns a hash table that maps from glyph names to bounding box information. The bounding box consist of four numbers: llx, lly, urx, ury. =item $afm->dump Dumps the content of the Font::AFM object to STDOUT. Might sometimes be useful for debugging. =back The AFM specification can be found at: http://partners.adobe.com/asn/developer/pdfs/tn/5004.AFM_Spec.pdf =head1 ENVIRONMENT =over 10 =item METRICS Contains the path to search for AFM-files. Format is as for the PATH environment variable. The default path built into this library is: /usr/lib/afm:/usr/local/lib/afm:/usr/openwin/lib/fonts/afm/:. =back =head1 BUGS Kerning data and composite character data are not yet parsed. Ligature data is not parsed. =head1 COPYRIGHT Copyright 1995-1998 Gisle Aas. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut #-------perl resumes here-------------------------------------------- use Carp; use strict; use vars qw($VERSION @ISOLatin1Encoding); $VERSION = "1.20"; # The metrics_path is used to locate metrics files # my $metrics_path = $ENV{METRICS} || "/usr/lib/afm:/usr/local/lib/afm:/usr/openwin/lib/fonts/afm/:."; my @metrics_path = split(/:/, $metrics_path); foreach (@metrics_path) { s,/$,, } # reove trailing slashes @ISOLatin1Encoding = qw( .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef space exclam quotedbl numbersign dollar percent ampersand quoteright parenleft parenright asterisk plus comma minus period slash zero one two three four five six seven eight nine colon semicolon less equal greater question at A B C D E F G H I J K L M N O P Q R S T U V W X Y Z bracketleft backslash bracketright asciicircum underscore quoteleft a b c d e f g h i j k l m n o p q r s t u v w x y z braceleft bar braceright asciitilde .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef .notdef dotlessi grave acute circumflex tilde macron breve dotaccent dieresis .notdef ring cedilla .notdef hungarumlaut ogonek caron space exclamdown cent sterling currency yen brokenbar section dieresis copyright ordfeminine guillemotleft logicalnot hyphen registered macron degree plusminus twosuperior threesuperior acute mu paragraph periodcentered cedilla onesuperior ordmasculine guillemotright onequarter onehalf threequarters questiondown Agrave Aacute Acircumflex Atilde Adieresis Aring AE Ccedilla Egrave Eacute Ecircumflex Edieresis Igrave Iacute Icircumflex Idieresis Eth Ntilde Ograve Oacute Ocircumflex Otilde Odieresis multiply Oslash Ugrave Uacute Ucircumflex Udieresis Yacute Thorn germandbls agrave aacute acircumflex atilde adieresis aring ae ccedilla egrave eacute ecircumflex edieresis igrave iacute icircumflex idieresis eth ntilde ograve oacute ocircumflex otilde odieresis divide oslash ugrave uacute ucircumflex udieresis yacute thorn ydieresis ); # Creates a new Font::AFM object. Pass it the name of the font as parameter. # Synopisis: # # $h = new Font::AFM "Helvetica"; # sub new { my($class, $fontname) = @_; my $file; $fontname =~ s/\.afm$//; if ($^O eq 'VMS') { $file = "sys\$ps_font_metrics:$fontname.afm"; } else { $file = "$fontname.afm"; unless ($file =~ m,^/,) { # not absolute, search the metrics path for the file foreach (@metrics_path) { if (-f "$_/$file") { $file = "$_/$file"; last; } } } } open(AFM, $file) or croak "Can't find the AFM file for $fontname"; my $self = bless { }, $class; local($/, $_) = ("\n", undef); # ensure correct $INPUT_RECORD_SEPARATOR while () { next if /^StartKernData/ .. /^EndKernData/; # kern data not parsed yet next if /^StartComposites/ .. /^EndComposites/; # same for composites if (/^StartCharMetrics/ .. /^EndCharMetrics/) { # only lines that start with "C" or "CH" are parsed next unless /^CH?\s/; my($name) = /\bN\s+(\.?\w+)\s*;/; my($wx) = /\bWX\s+(\d+)\s*;/; my($bbox) = /\bB\s+([^;]+);/; $bbox =~ s/\s+$//; # Should also parse lingature data (format: L successor lignature) $self->{'wx'}{$name} = $wx; $self->{'bbox'}{$name} = $bbox; next; } last if /^EndFontMetrics/; if (/(^\w+)\s+(.*)/) { my($key,$val) = ($1, $2); $key = lc $key; if (defined $self->{$key}) { $self->{$key} = [ $self->{$key} ] unless ref $self->{$key}; push(@{$self->{$key}}, $val); } else { $self->{$key} = $val; } } else { print STDERR "Can't parse: $_"; } } close(AFM); unless (exists $self->{wx}->{'.notdef'}) { $self->{wx}->{'.notdef'} = 0; $self->{bbox}{'.notdef'} = "0 0 0 0"; } $self; } # Returns an 256 element array that maps from characters to width sub latin1_wx_table { my($self) = @_; unless ($self->{'_wx_table'}) { my @wx; for (0..255) { my $name = $ISOLatin1Encoding[$_]; if (exists $self->{wx}->{$name}) { push(@wx, $self->{wx}->{$name}) } else { push(@wx, $self->{wx}->{'.notdef'}); } } $self->{'_wx_table'} = \@wx; } wantarray ? @{ $self->{'_wx_table'} } : $self->{'_wx_table'}; } sub stringwidth { my($self, $string, $pointsize) = @_; return 0.0 unless defined $string; return 0.0 unless length $string; my @wx = $self->latin1_wx_table; my $width = 0.0; for (unpack("C*", $string)) { $width += $wx[$_]; } if ($pointsize) { $width *= $pointsize / 1000; } $width; } sub FontName; sub FullName; sub FamilyName; sub Weight; sub ItalicAngle; sub IsFixedPitch; sub FontBBox; sub UnderlinePosition; sub UnderlineThickness; sub Version; sub Notice; sub Comment; sub EncodingScheme; sub CapHeight; sub XHeight; sub Ascender; sub Descender; sub Wx; sub BBox; # We implement all the access functions within this simple autoload # function. sub AUTOLOAD { no strict 'vars'; # don't want to declare $AUTOLOAD #print "AUTOLOAD: $AUTOLOAD\n"; if ($AUTOLOAD =~ /::DESTROY$/) { eval "sub $AUTOLOAD {}"; goto &$AUTOLOAD; } else { my $name = $AUTOLOAD; $name =~ s/^.*:://; croak "Attribute $name not defined for AFM object" unless defined $_[0]->{lc $name}; return $_[0]->{lc $name}; } } # Dumping might be useful for debugging sub dump { my($self) = @_; my($key, $val); foreach $key (sort keys %$self) { if (ref $self->{$key}) { if (ref $self->{$key} eq "ARRAY") { print "$key = [\n\t", join("\n\t", @{$self->{$key}}), "\n]\n"; } elsif (ref $self->{$key} eq "HASH") { print "$key = {\n"; my $key2; foreach $key2 (sort keys %{$self->{$key}}) { print "\t$key2 => $self->{$key}{$key2},\n"; } print "}\n"; } else { print "$key = $self->{$key}\n"; } } else { print "$key = $self->{$key}\n"; } } } 1; Font-AFM-1.20/Changes000064400000000000000000000010551126644767200142540ustar00rootroot000000000000002008-06-05 Gisle Aas Release 1.20 Improved TAP output from test. Patch by Andy Armstrong. 2004-01-08 Gisle Aas Release 1.19 Documentation fixes by Paul Croome . 1999-02-22 Gisle Aas Release 1.18 Fixed small typo discovered by Mark Hershberger . Added a new test as a workaround for Test::Harness bug. 1998-03-25 Gisle Aas Release 1.17, Font::* modules unbundled from libwww-perl-5.22. Font-AFM-1.20/MANIFEST000064400000000000000000000010561126644767200141130ustar00rootroot00000000000000AFM.pm Changes MANIFEST Makefile.PL README lib/Font/Metrics/Courier.pm lib/Font/Metrics/CourierBold.pm lib/Font/Metrics/CourierBoldOblique.pm lib/Font/Metrics/CourierOblique.pm lib/Font/Metrics/Helvetica.pm lib/Font/Metrics/HelveticaBold.pm lib/Font/Metrics/HelveticaBoldOblique.pm lib/Font/Metrics/HelveticaOblique.pm lib/Font/Metrics/TimesBold.pm lib/Font/Metrics/TimesBoldItalic.pm lib/Font/Metrics/TimesItalic.pm lib/Font/Metrics/TimesRoman.pm make_metrics t/afm.t t/times.t META.yml Module meta-data (added by MakeMaker) Font-AFM-1.20/META.yml000064400000000000000000000005201126644767200142260ustar00rootroot00000000000000--- #YAML:1.0 name: Font-AFM version: 1.20 abstract: ~ license: ~ author: ~ generated_by: ExtUtils::MakeMaker version 6.42_01 distribution_type: module requires: meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.3.html version: 1.3 Font-AFM-1.20/Makefile.PL000064400000000000000000000002641126644767200147340ustar00rootroot00000000000000require 5.002; use ExtUtils::MakeMaker; WriteMakefile( NAME => 'Font::AFM', VERSION_FROM => 'AFM.pm', dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, ); Font-AFM-1.20/README000064400000000000000000000111501126644767200136360ustar00rootroot00000000000000NAME Font::AFM - Interface to Adobe Font Metrics files SYNOPSIS use Font::AFM; $h = new Font::AFM "Helvetica"; $copyright = $h->Notice; $w = $h->Wx->{"aring"}; $w = $h->stringwidth("Gisle", 10); $h->dump; # for debugging DESCRIPTION This module implements the Font::AFM class. Objects of this class are initialised from an AFM-file and allows you to obtain information about the font and the metrics of the various glyphs in the font. All measurements in AFM files are given in terms of units equal to 1/1000 of the scale factor of the font being used. To compute actual sizes in a document, these amounts should be multiplied by (scale factor of font)/1000. The following methods are available: $afm = Font::AFM->new($fontname) Object constructor. Takes the name of the font as argument. It will croak if the font can not be found. $afm->latin1_wx_table() Returns a 256 element array, where each element contains the width of the corresponding character in the iso-8859-1 character set. $afm->stringwidth($string, [$fontsize]) Returns the width of the string passed as argument. The string is assumed to be encoded in the iso-8859-1 character set. A second argument can be used to scale the width according to the font size. $afm->FontName The name of the font as presented to the PostScript language `findfont' operator, for instance "Times-Roman". $afm->FullName Unique, human-readable name for an individual font, for instance "Times Roman". $afm->FamilyName Human-readable name for a group of fonts that are stylistic variants of a single design. All fonts that are member of such a group should have exactly the same `FamilyName'. Example of a family name is "Times". $afm->Weight Human-readable name for the weight, or "boldness", attribute of a font. Exampes are `Roman', `Bold', `Light'. $afm->ItalicAngle Angle in degrees counterclockwise from the vertical of the dominant vertical strokes of the font. $afm->IsFixedPitch If the value is `true', it indicated that the font is a fixed-pitch (monospaced) font. $afm->FontBBox A string of four numbers giving the lower-left x, lower-left y, upper-right x, and upper-right y of the font bounding box. The font bounding box is the smallest rectangle enclosing the shape that would result if all the characters of the font were placed with their origins coincident, and then painted. $afm->UnderlinePosition Recommended distance from the baseline for positioning underline stokes. This number is the y coordinate of the center of the stroke. $afm->UnderlineThickness Recommended stroke width for underlining. $afm->Version Version number of the font. $afm->Notice Trademark or copyright notice, if applicable. $afm->Comment Comments found in the AFM file. $afm->EncodingScheme The name of the standard encoding scheme for the font. Most Adobe fonts use the `AdobeStandardEncoding'. Special fonts might state `FontSpecific'. $afm->CapHeight Usually the y-value of the top of the capital H. $afm->XHeight Typically the y-value of the top of the lowercase x. $afm->Ascender Typically the y-value of the top of the lowercase d. $afm->Descender Typically the y-value of the bottom of the lowercase p. $afm->Wx Returns a hash table that maps from glyph names to the width of that glyph. $afm->BBox Returns a hash table that maps from glyph names to bounding box information. The bounding box consist of 4 numbers: llx, lly, urx, ury. $afm->dump Dumps the content of the Font::AFM object to STDOUT. Might sometimes be useful for debugging. The AFM specification can be found at: ftp://ftp.adobe.com/pub/adobe/DeveloperSupport/TechNotes/PSfiles/5004.AFM_Spec.ps ENVIRONMENT METRICS Contains the path to seach for AFM-files. Format is as for the PATH environment variable. The default path built into this library is: /usr/lib/afm:/usr/local/lib/afm:/usr/openwin/lib/fonts/afm/:. BUGS Kerning data and composite character data is not yet parsed. Ligature data is not parsed. COPYRIGHT Copyright 1995-1998 Gisle Aas. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Font-AFM-1.20/lib/000075500000000000000000000000001126644767200135265ustar00rootroot00000000000000Font-AFM-1.20/lib/Font/000075500000000000000000000000001126644767200144345ustar00rootroot00000000000000Font-AFM-1.20/lib/Font/Metrics/000075500000000000000000000000001126644767200160425ustar00rootroot00000000000000Font-AFM-1.20/lib/Font/Metrics/Courier.pm000064400000000000000000000041721126644767200200140ustar00rootroot00000000000000# Font metrics for Courier # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1989 Adobe Systems Incorporated. All rights reserved. package Font::Metrics::Courier; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0, 0.6, 0.6, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/CourierBold.pm000064400000000000000000000042031126644767200206100ustar00rootroot00000000000000# Font metrics for Courier-Bold # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1989 Adobe Systems Incorporated. All rights reserved. package Font::Metrics::CourierBold; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0, 0.6, 0.6, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/CourierBoldOblique.pm000064400000000000000000000042211126644767200221310ustar00rootroot00000000000000# Font metrics for Courier-BoldOblique # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1989 Adobe Systems Incorporated. All rights reserved. package Font::Metrics::CourierBoldOblique; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0, 0.6, 0.6, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/CourierOblique.pm000064400000000000000000000042111126644767200213270ustar00rootroot00000000000000# Font metrics for Courier-Oblique # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1989 Adobe Systems Incorporated. All rights reserved. package Font::Metrics::CourierOblique; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0, 0.6, 0.6, 0, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, 0.6, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/Helvetica.pm000064400000000000000000000043211126644767200203040ustar00rootroot00000000000000# Font metrics for Helvetica # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1985, 1987, 1989, 1990 Adobe Systems Incorporated. All rights reserved.Helvetica is a trademark of Linotype AG and/or its subsidiaries. package Font::Metrics::Helvetica; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.278, 0.355, 0.556, 0.556, 0.889, 0.667, 0.222, 0.333, 0.333, 0.389, 0.584, 0.278, 0.584, 0.278, 0.278, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.278, 0.278, 0.584, 0.584, 0.584, 0.556, 1.01, 0.667, 0.667, 0.722, 0.722, 0.667, 0.611, 0.778, 0.722, 0.278, 0.5, 0.667, 0.556, 0.833, 0.722, 0.778, 0.667, 0.778, 0.722, 0.667, 0.611, 0.722, 0.667, 0.944, 0.667, 0.667, 0.611, 0.278, 0.278, 0.278, 0.469, 0.556, 0.222, 0.556, 0.556, 0.5, 0.556, 0.556, 0.278, 0.556, 0.556, 0.222, 0.222, 0.5, 0.222, 0.833, 0.556, 0.556, 0.556, 0.556, 0.333, 0.5, 0.278, 0.556, 0.5, 0.722, 0.5, 0.5, 0.5, 0.334, 0.26, 0.334, 0.584, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0, 0.333, 0.333, 0, 0.333, 0.333, 0.333, 0.278, 0.333, 0.556, 0.556, 0.556, 0.556, 0.26, 0.556, 0.333, 0.737, 0.37, 0.556, 0.584, 0.333, 0.737, 0.333, 0.4, 0.584, 0.333, 0.333, 0.333, 0.556, 0.537, 0.278, 0.333, 0.333, 0.365, 0.556, 0.834, 0.834, 0.834, 0.611, 0.667, 0.667, 0.667, 0.667, 0.667, 0.667, 1, 0.722, 0.667, 0.667, 0.667, 0.667, 0.278, 0.278, 0.278, 0.278, 0.722, 0.722, 0.778, 0.778, 0.778, 0.778, 0.778, 0.584, 0.778, 0.722, 0.722, 0.722, 0.722, 0.667, 0.667, 0.611, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.889, 0.5, 0.556, 0.556, 0.556, 0.556, 0.278, 0.278, 0.278, 0.278, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.584, 0.611, 0.556, 0.556, 0.556, 0.556, 0.5, 0.556, 0.5, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/HelveticaBold.pm000064400000000000000000000043321126644767200211070ustar00rootroot00000000000000# Font metrics for Helvetica-Bold # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1985, 1987, 1989, 1990 Adobe Systems Incorporated. All Rights Reserved.Helvetica is a trademark of Linotype AG and/or its subsidiaries. package Font::Metrics::HelveticaBold; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.333, 0.474, 0.556, 0.556, 0.889, 0.722, 0.278, 0.333, 0.333, 0.389, 0.584, 0.278, 0.584, 0.278, 0.278, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.333, 0.333, 0.584, 0.584, 0.584, 0.611, 0.975, 0.722, 0.722, 0.722, 0.722, 0.667, 0.611, 0.778, 0.722, 0.278, 0.556, 0.722, 0.611, 0.833, 0.722, 0.778, 0.667, 0.778, 0.722, 0.667, 0.611, 0.722, 0.667, 0.944, 0.667, 0.667, 0.611, 0.333, 0.278, 0.333, 0.584, 0.556, 0.278, 0.556, 0.611, 0.556, 0.611, 0.556, 0.333, 0.611, 0.611, 0.278, 0.278, 0.556, 0.278, 0.889, 0.611, 0.611, 0.611, 0.611, 0.389, 0.556, 0.333, 0.611, 0.556, 0.778, 0.556, 0.556, 0.5, 0.389, 0.28, 0.389, 0.584, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0, 0.333, 0.333, 0, 0.333, 0.333, 0.333, 0.278, 0.333, 0.556, 0.556, 0.556, 0.556, 0.28, 0.556, 0.333, 0.737, 0.37, 0.556, 0.584, 0.333, 0.737, 0.333, 0.4, 0.584, 0.333, 0.333, 0.333, 0.611, 0.556, 0.278, 0.333, 0.333, 0.365, 0.556, 0.834, 0.834, 0.834, 0.611, 0.722, 0.722, 0.722, 0.722, 0.722, 0.722, 1, 0.722, 0.667, 0.667, 0.667, 0.667, 0.278, 0.278, 0.278, 0.278, 0.722, 0.722, 0.778, 0.778, 0.778, 0.778, 0.778, 0.584, 0.778, 0.722, 0.722, 0.722, 0.722, 0.667, 0.667, 0.611, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.889, 0.556, 0.556, 0.556, 0.556, 0.556, 0.278, 0.278, 0.278, 0.278, 0.611, 0.611, 0.611, 0.611, 0.611, 0.611, 0.611, 0.584, 0.611, 0.611, 0.611, 0.611, 0.611, 0.556, 0.611, 0.556, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/HelveticaBoldOblique.pm000064400000000000000000000043501126644767200224300ustar00rootroot00000000000000# Font metrics for Helvetica-BoldOblique # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1985, 1987, 1989, 1990 Adobe Systems Incorporated. All Rights Reserved.Helvetica is a trademark of Linotype AG and/or its subsidiaries. package Font::Metrics::HelveticaBoldOblique; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.333, 0.474, 0.556, 0.556, 0.889, 0.722, 0.278, 0.333, 0.333, 0.389, 0.584, 0.278, 0.584, 0.278, 0.278, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.333, 0.333, 0.584, 0.584, 0.584, 0.611, 0.975, 0.722, 0.722, 0.722, 0.722, 0.667, 0.611, 0.778, 0.722, 0.278, 0.556, 0.722, 0.611, 0.833, 0.722, 0.778, 0.667, 0.778, 0.722, 0.667, 0.611, 0.722, 0.667, 0.944, 0.667, 0.667, 0.611, 0.333, 0.278, 0.333, 0.584, 0.556, 0.278, 0.556, 0.611, 0.556, 0.611, 0.556, 0.333, 0.611, 0.611, 0.278, 0.278, 0.556, 0.278, 0.889, 0.611, 0.611, 0.611, 0.611, 0.389, 0.556, 0.333, 0.611, 0.556, 0.778, 0.556, 0.556, 0.5, 0.389, 0.28, 0.389, 0.584, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0, 0.333, 0.333, 0, 0.333, 0.333, 0.333, 0.278, 0.333, 0.556, 0.556, 0.556, 0.556, 0.28, 0.556, 0.333, 0.737, 0.37, 0.556, 0.584, 0.333, 0.737, 0.333, 0.4, 0.584, 0.333, 0.333, 0.333, 0.611, 0.556, 0.278, 0.333, 0.333, 0.365, 0.556, 0.834, 0.834, 0.834, 0.611, 0.722, 0.722, 0.722, 0.722, 0.722, 0.722, 1, 0.722, 0.667, 0.667, 0.667, 0.667, 0.278, 0.278, 0.278, 0.278, 0.722, 0.722, 0.778, 0.778, 0.778, 0.778, 0.778, 0.584, 0.778, 0.722, 0.722, 0.722, 0.722, 0.667, 0.667, 0.611, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.889, 0.556, 0.556, 0.556, 0.556, 0.556, 0.278, 0.278, 0.278, 0.278, 0.611, 0.611, 0.611, 0.611, 0.611, 0.611, 0.611, 0.584, 0.611, 0.611, 0.611, 0.611, 0.611, 0.556, 0.611, 0.556, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/HelveticaOblique.pm000064400000000000000000000043401126644767200216260ustar00rootroot00000000000000# Font metrics for Helvetica-Oblique # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1985, 1987, 1989, 1990 Adobe Systems Incorporated. All rights reserved.Helvetica is a trademark of Linotype AG and/or its subsidiaries. package Font::Metrics::HelveticaOblique; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.278, 0.355, 0.556, 0.556, 0.889, 0.667, 0.222, 0.333, 0.333, 0.389, 0.584, 0.278, 0.584, 0.278, 0.278, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.278, 0.278, 0.584, 0.584, 0.584, 0.556, 1.01, 0.667, 0.667, 0.722, 0.722, 0.667, 0.611, 0.778, 0.722, 0.278, 0.5, 0.667, 0.556, 0.833, 0.722, 0.778, 0.667, 0.778, 0.722, 0.667, 0.611, 0.722, 0.667, 0.944, 0.667, 0.667, 0.611, 0.278, 0.278, 0.278, 0.469, 0.556, 0.222, 0.556, 0.556, 0.5, 0.556, 0.556, 0.278, 0.556, 0.556, 0.222, 0.222, 0.5, 0.222, 0.833, 0.556, 0.556, 0.556, 0.556, 0.333, 0.5, 0.278, 0.556, 0.5, 0.722, 0.5, 0.5, 0.5, 0.334, 0.26, 0.334, 0.584, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0, 0.333, 0.333, 0, 0.333, 0.333, 0.333, 0.278, 0.333, 0.556, 0.556, 0.556, 0.556, 0.26, 0.556, 0.333, 0.737, 0.37, 0.556, 0.584, 0.333, 0.737, 0.333, 0.4, 0.584, 0.333, 0.333, 0.333, 0.556, 0.537, 0.278, 0.333, 0.333, 0.365, 0.556, 0.834, 0.834, 0.834, 0.611, 0.667, 0.667, 0.667, 0.667, 0.667, 0.667, 1, 0.722, 0.667, 0.667, 0.667, 0.667, 0.278, 0.278, 0.278, 0.278, 0.722, 0.722, 0.778, 0.778, 0.778, 0.778, 0.778, 0.584, 0.778, 0.722, 0.722, 0.722, 0.722, 0.667, 0.667, 0.611, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.889, 0.5, 0.556, 0.556, 0.556, 0.556, 0.278, 0.278, 0.278, 0.278, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.556, 0.584, 0.611, 0.556, 0.556, 0.556, 0.556, 0.5, 0.556, 0.5, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/TimesBold.pm000064400000000000000000000043161126644767200202660ustar00rootroot00000000000000# Font metrics for Times-Bold # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1985, 1987, 1989, 1990 Adobe Systems Incorporated. All Rights Reserved.Times is a trademark of Linotype AG and/or its subsidiaries. package Font::Metrics::TimesBold; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.25, 0.333, 0.555, 0.5, 0.5, 1, 0.833, 0.333, 0.333, 0.333, 0.5, 0.57, 0.25, 0.57, 0.25, 0.278, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.333, 0.333, 0.57, 0.57, 0.57, 0.5, 0.93, 0.722, 0.667, 0.722, 0.722, 0.667, 0.611, 0.778, 0.778, 0.389, 0.5, 0.778, 0.667, 0.944, 0.722, 0.778, 0.611, 0.778, 0.722, 0.556, 0.667, 0.722, 0.722, 1, 0.722, 0.722, 0.667, 0.333, 0.278, 0.333, 0.581, 0.5, 0.333, 0.5, 0.556, 0.444, 0.556, 0.444, 0.333, 0.5, 0.556, 0.278, 0.333, 0.556, 0.278, 0.833, 0.556, 0.5, 0.556, 0.556, 0.444, 0.389, 0.333, 0.556, 0.5, 0.722, 0.5, 0.5, 0.444, 0.394, 0.22, 0.394, 0.52, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0, 0.333, 0.333, 0, 0.333, 0.333, 0.333, 0.25, 0.333, 0.5, 0.5, 0.5, 0.5, 0.22, 0.5, 0.333, 0.747, 0.3, 0.5, 0.57, 0.333, 0.747, 0.333, 0.4, 0.57, 0.3, 0.3, 0.333, 0.556, 0.54, 0.25, 0.333, 0.3, 0.33, 0.5, 0.75, 0.75, 0.75, 0.5, 0.722, 0.722, 0.722, 0.722, 0.722, 0.722, 1, 0.722, 0.667, 0.667, 0.667, 0.667, 0.389, 0.389, 0.389, 0.389, 0.722, 0.722, 0.778, 0.778, 0.778, 0.778, 0.778, 0.57, 0.778, 0.722, 0.722, 0.722, 0.722, 0.722, 0.611, 0.556, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.722, 0.444, 0.444, 0.444, 0.444, 0.444, 0.278, 0.278, 0.278, 0.278, 0.5, 0.556, 0.5, 0.5, 0.5, 0.5, 0.5, 0.57, 0.5, 0.556, 0.556, 0.556, 0.556, 0.5, 0.556, 0.5, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/TimesBoldItalic.pm000064400000000000000000000043321126644767200214120ustar00rootroot00000000000000# Font metrics for Times-BoldItalic # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1985, 1987, 1989, 1990 Adobe Systems Incorporated. All Rights Reserved.Times is a trademark of Linotype AG and/or its subsidiaries. package Font::Metrics::TimesBoldItalic; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.25, 0.389, 0.555, 0.5, 0.5, 0.833, 0.778, 0.333, 0.333, 0.333, 0.5, 0.57, 0.25, 0.606, 0.25, 0.278, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.333, 0.333, 0.57, 0.57, 0.57, 0.5, 0.832, 0.667, 0.667, 0.667, 0.722, 0.667, 0.667, 0.722, 0.778, 0.389, 0.5, 0.667, 0.611, 0.889, 0.722, 0.722, 0.611, 0.722, 0.667, 0.556, 0.611, 0.722, 0.667, 0.889, 0.667, 0.611, 0.611, 0.333, 0.278, 0.333, 0.57, 0.5, 0.333, 0.5, 0.5, 0.444, 0.5, 0.444, 0.333, 0.5, 0.556, 0.278, 0.278, 0.5, 0.278, 0.778, 0.556, 0.5, 0.5, 0.5, 0.389, 0.389, 0.278, 0.556, 0.444, 0.667, 0.5, 0.444, 0.389, 0.348, 0.22, 0.348, 0.57, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0, 0.333, 0.333, 0, 0.333, 0.333, 0.333, 0.25, 0.389, 0.5, 0.5, 0.5, 0.5, 0.22, 0.5, 0.333, 0.747, 0.266, 0.5, 0.606, 0.333, 0.747, 0.333, 0.4, 0.57, 0.3, 0.3, 0.333, 0.576, 0.5, 0.25, 0.333, 0.3, 0.3, 0.5, 0.75, 0.75, 0.75, 0.5, 0.667, 0.667, 0.667, 0.667, 0.667, 0.667, 0.944, 0.667, 0.667, 0.667, 0.667, 0.667, 0.389, 0.389, 0.389, 0.389, 0.722, 0.722, 0.722, 0.722, 0.722, 0.722, 0.722, 0.57, 0.722, 0.722, 0.722, 0.722, 0.722, 0.611, 0.611, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.722, 0.444, 0.444, 0.444, 0.444, 0.444, 0.278, 0.278, 0.278, 0.278, 0.5, 0.556, 0.5, 0.5, 0.5, 0.5, 0.5, 0.57, 0.5, 0.556, 0.556, 0.556, 0.556, 0.444, 0.5, 0.444, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/TimesItalic.pm000064400000000000000000000043221126644767200206100ustar00rootroot00000000000000# Font metrics for Times-Italic # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1985, 1987, 1989, 1990 Adobe Systems Incorporated. All Rights Reserved.Times is a trademark of Linotype AG and/or its subsidiaries. package Font::Metrics::TimesItalic; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.25, 0.333, 0.42, 0.5, 0.5, 0.833, 0.778, 0.333, 0.333, 0.333, 0.5, 0.675, 0.25, 0.675, 0.25, 0.278, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.333, 0.333, 0.675, 0.675, 0.675, 0.5, 0.92, 0.611, 0.611, 0.667, 0.722, 0.611, 0.611, 0.722, 0.722, 0.333, 0.444, 0.667, 0.556, 0.833, 0.667, 0.722, 0.611, 0.722, 0.611, 0.5, 0.556, 0.722, 0.611, 0.833, 0.611, 0.556, 0.556, 0.389, 0.278, 0.389, 0.422, 0.5, 0.333, 0.5, 0.5, 0.444, 0.5, 0.444, 0.278, 0.5, 0.5, 0.278, 0.278, 0.444, 0.278, 0.722, 0.5, 0.5, 0.5, 0.5, 0.389, 0.389, 0.278, 0.5, 0.444, 0.667, 0.444, 0.444, 0.389, 0.4, 0.275, 0.4, 0.541, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0, 0.333, 0.333, 0, 0.333, 0.333, 0.333, 0.25, 0.389, 0.5, 0.5, 0.5, 0.5, 0.275, 0.5, 0.333, 0.76, 0.276, 0.5, 0.675, 0.333, 0.76, 0.333, 0.4, 0.675, 0.3, 0.3, 0.333, 0.5, 0.523, 0.25, 0.333, 0.3, 0.31, 0.5, 0.75, 0.75, 0.75, 0.5, 0.611, 0.611, 0.611, 0.611, 0.611, 0.611, 0.889, 0.667, 0.611, 0.611, 0.611, 0.611, 0.333, 0.333, 0.333, 0.333, 0.722, 0.667, 0.722, 0.722, 0.722, 0.722, 0.722, 0.675, 0.722, 0.722, 0.722, 0.722, 0.722, 0.556, 0.611, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.667, 0.444, 0.444, 0.444, 0.444, 0.444, 0.278, 0.278, 0.278, 0.278, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.675, 0.5, 0.5, 0.5, 0.5, 0.5, 0.444, 0.5, 0.444, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/lib/Font/Metrics/TimesRoman.pm000064400000000000000000000043201126644767200204550ustar00rootroot00000000000000# Font metrics for Times-Roman # # DO NOT EDIT!!! # # This file was auto-generated by make_metrics based on the AFM file for the font. # # Copyright (c) 1985, 1987, 1989, 1990 Adobe Systems Incorporated. All Rights Reserved.Times is a trademark of Linotype AG and/or its subsidiaries. package Font::Metrics::TimesRoman; # Character width table (iso-8859-1) @wx = ( 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.25, 0.333, 0.408, 0.5, 0.5, 0.833, 0.778, 0.333, 0.333, 0.333, 0.5, 0.564, 0.25, 0.564, 0.25, 0.278, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.278, 0.278, 0.564, 0.564, 0.564, 0.444, 0.921, 0.722, 0.667, 0.667, 0.722, 0.611, 0.556, 0.722, 0.722, 0.333, 0.389, 0.722, 0.611, 0.889, 0.722, 0.722, 0.556, 0.722, 0.667, 0.556, 0.611, 0.722, 0.722, 0.944, 0.722, 0.722, 0.611, 0.333, 0.278, 0.333, 0.469, 0.5, 0.333, 0.444, 0.5, 0.444, 0.5, 0.444, 0.333, 0.5, 0.5, 0.278, 0.278, 0.5, 0.278, 0.778, 0.5, 0.5, 0.5, 0.5, 0.333, 0.389, 0.278, 0.5, 0.5, 0.722, 0.5, 0.5, 0.444, 0.48, 0.2, 0.48, 0.541, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.278, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0.333, 0, 0.333, 0.333, 0, 0.333, 0.333, 0.333, 0.25, 0.333, 0.5, 0.5, 0.5, 0.5, 0.2, 0.5, 0.333, 0.76, 0.276, 0.5, 0.564, 0.333, 0.76, 0.333, 0.4, 0.564, 0.3, 0.3, 0.333, 0.5, 0.453, 0.25, 0.333, 0.3, 0.31, 0.5, 0.75, 0.75, 0.75, 0.444, 0.722, 0.722, 0.722, 0.722, 0.722, 0.722, 0.889, 0.667, 0.611, 0.611, 0.611, 0.611, 0.333, 0.333, 0.333, 0.333, 0.722, 0.722, 0.722, 0.722, 0.722, 0.722, 0.722, 0.564, 0.722, 0.722, 0.722, 0.722, 0.722, 0.722, 0.556, 0.5, 0.444, 0.444, 0.444, 0.444, 0.444, 0.444, 0.667, 0.444, 0.444, 0.444, 0.444, 0.444, 0.278, 0.278, 0.278, 0.278, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.564, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, ); $UnderlinePosition = -0.1; $UnderlineThickness = 0.05; 1; Font-AFM-1.20/make_metrics000075500000000000000000000031541126644767200153540ustar00rootroot00000000000000#!/usr/local/bin/perl -w # $Id: make_metrics,v 1.3 1998/03/25 12:59:53 aas Exp $ # # This program creates metrics modules for some fonts and place them # under the "Metrics" directory. # # Author: Gisle Aas @FONTS = qw(Courier Courier-Bold Courier-Oblique Courier-BoldOblique Helvetica Helvetica-Bold Helvetica-Oblique Helvetica-BoldOblique Times-Roman Times-Bold Times-Italic Times-BoldItalic ); @FONTS = @ARGV if @ARGV; require Font::AFM; $0 =~ s,.*/,,; use File::Path qw(mkpath); mkpath("lib/Font/Metrics", 1, 0755); for $font (@FONTS) { eval { $afm = new Font::AFM $font; }; if ($@) { print $@; next; } @wx = $afm->latin1_wx_table; ($fontmod = $font) =~ s/-//g; open(FONTDEF, ">lib/Font/Metrics/$fontmod.pm") or die "Can't open $fontmod.pm: $!"; select FONTDEF; print "# Font metrics for $font\n#\n"; print "# DO NOT EDIT!!!\n"; print "#\n"; print "# This file was auto-generated by $0 based on the AFM file for the font.\n"; print "#\n# ", $afm->Notice, "\n"; print "\n"; print "package Font::Metrics::$fontmod;\n"; print "\n# Character width table (iso-8859-1)\n"; print "\@wx = (\n"; $i = 0; for (@wx) { printf " %-6s", sprintf "%.3g,", $_ / 1000; unless (++$i % 8) { print "\n"; } } print ");\n"; $upos = $afm->UnderlinePosition; $uthick = $afm->UnderlineThickness; if ($upos && $uthick) { print "\n"; printf "\$UnderlinePosition = %.3g;\n", $upos/1000; printf "\$UnderlineThickness = %.3g;\n", $uthick/1000; } print "\n1;\n"; } Font-AFM-1.20/t/000075500000000000000000000000001126644767200132235ustar00rootroot00000000000000Font-AFM-1.20/t/afm.t000064400000000000000000000010161126644767200141510ustar00rootroot00000000000000require Font::AFM; eval { $font = Font::AFM->new("Helvetica"); }; if ($@) { if ($@ =~ /Can't find the AFM file for/) { print "1..0 # Skipped: Can't find required font\n"; print "# $@"; } else { print "1..1\n"; print "# $@"; print "not ok 1 Found font OK\n"; } exit; } print "1..1\n"; $sw = $font->stringwidth("Gisle Aas"); if ($sw == 4279) { print "ok 1 Stringwith for Helvetica seems to work\n"; } else { print "not ok 1 The stringwidth of 'Gisle Aas' should be 4279 (it was $sw)\n"; } Font-AFM-1.20/t/times.t000064400000000000000000000006521126644767200145340ustar00rootroot00000000000000# This test is here basically to work around Test::Harness bug. print "1..2\n"; require Font::Metrics::TimesRoman; print "not " unless @Font::Metrics::TimesRoman::wx == 256; print "ok 1\n"; sub width { my($string, $wx) = @_; my $w = 0; for (unpack("C*", $string)) { $w += $wx->[$_]; } $w; } print "not " unless abs(width("Perl", \@Font::Metrics::TimesRoman::wx) - 1.611) < 1.0e-6; print "ok 2\n";