afont.pm

PDF-API2-0.2.3.7_dev.tar.gz

Returns the new font object.

=cut

sub reencode {
	my ($class, $parent, $pdfname, $encoding, @glyphs) = @_;
	my ($self) = $class->SUPER::new;
	my (@w);
	$self->{' AFM'}={};
	%{$self->{' AFM'}->{'wx'}} = map { $_ => $class->{' AFM'}->{'wx'}{$_} } keys %{$class->{' AFM'}->{'wx'}};
	%{$self->{' AFM'}->{'bbox'}} = map { $_ => $class->{' AFM'}->{'bbox'}{$_} } keys %{$class->{' AFM'}->{'bbox'}};
	@{$self->{' AFM'}->{'char'}}=@{$class->{' AFM'}->{'char'}};
	$self->{'Type'} = PDFName("Font");
	$self->{'Subtype'} = PDFName("Type1");
	$self->{'BaseFont'} = PDFName($class->{' AFM'}->{'fontname'});
	$self->{'FirstChar'} = PDFNum(32);
	$self->{'LastChar'} = PDFNum(255);
	$self->{'Name'} = PDFName($pdfname);
	
	$self->encodeProper($encoding,32,255, @glyphs);
		
	$self->{'FontDescriptor'}=$class->{'FontDescriptor'};
	if(defined $parent) {
		$parent->new_obj($self);
	}
	return($self);
}


=head2 $f->width($text)

Returns the width of the text in em.

=cut

sub width
{
    my ($self, $text) = @_;
    my ($width);
    foreach (unpack("C*", $text))
    { $width += $self->{' AFM'}{'wx'}{$self->{' AFM'}{'char'}[$_]||0}||0; }
    $width / 1000;
}

=head2 $f->out_text($text)

Acknowledges the text to be output for subsetting purposes, etc.

=cut

sub out_text
{
    my ($self, $text) = @_;

    return PDFStr($text)->as_pdf;
}

BEGIN
{
@win_enc = (
        '.notdef',      # hex=0x00 oct=0000 dec=0
        '.notdef',      # hex=0x01 oct=0001 dec=1
        '.notdef',      # hex=0x02 oct=0002 dec=2
        '.notdef',      # hex=0x03 oct=0003 dec=3
        '.notdef',      # hex=0x04 oct=0004 dec=4
        '.notdef',      # hex=0x05 oct=0005 dec=5
        '.notdef',      # hex=0x06 oct=0006 dec=6
        '.notdef',      # hex=0x07 oct=0007 dec=7
        '.notdef',      # hex=0x08 oct=0010 dec=8
        '.notdef',      # hex=0x09 oct=0011 dec=9
        '.notdef',      # hex=0x0a oct=0012 dec=10
        '.notdef',      # hex=0x0b oct=0013 dec=11
        '.notdef',      # hex=0x0c oct=0014 dec=12
        '.notdef',      # hex=0x0d oct=0015 dec=13
        '.notdef',      # hex=0x0e oct=0016 dec=14
        '.notdef',      # hex=0x0f oct=0017 dec=15
        '.notdef',      # hex=0x10 oct=0020 dec=16
        '.notdef',      # hex=0x11 oct=0021 dec=17
        '.notdef',      # hex=0x12 oct=0022 dec=18
        '.notdef',      # hex=0x13 oct=0023 dec=19
        '.notdef',      # hex=0x14 oct=0024 dec=20
        '.notdef',      # hex=0x15 oct=0025 dec=21
        '.notdef',      # hex=0x16 oct=0026 dec=22
        '.notdef',      # hex=0x17 oct=0027 dec=23
        '.notdef',      # hex=0x18 oct=0030 dec=24
        '.notdef',      # hex=0x19 oct=0031 dec=25
        '.notdef',      # hex=0x1a oct=0032 dec=26
        '.notdef',      # hex=0x1b oct=0033 dec=27
        '.notdef',      # hex=0x1c oct=0034 dec=28
        '.notdef',      # hex=0x1d oct=0035 dec=29
        '.notdef',      # hex=0x1e oct=0036 dec=30
        '.notdef',      # hex=0x1f oct=0037 dec=31
        'space',        # hex=0x20 oct=0040 dec=32
        'exclam',       # hex=0x21 oct=0041 dec=33
        'quotedbl',     # hex=0x22 oct=0042 dec=34
        'numbersign',   # hex=0x23 oct=0043 dec=35
        'dollar',       # hex=0x24 oct=0044 dec=36
        'percent',      # hex=0x25 oct=0045 dec=37
        'ampersand',    # hex=0x26 oct=0046 dec=38
        'quotesingle',  # hex=0x27 oct=0047 dec=39
        'parenleft',    # hex=0x28 oct=0050 dec=40
        'parenright',   # hex=0x29 oct=0051 dec=41
        'asterisk',     # hex=0x2a oct=0052 dec=42
        'plus', # hex=0x2b oct=0053 dec=43
        'comma',        # hex=0x2c oct=0054 dec=44
        'hyphen',       # hex=0x2d oct=0055 dec=45
        'period',       # hex=0x2e oct=0056 dec=46
        'slash',        # hex=0x2f oct=0057 dec=47
        'zero', # hex=0x30 oct=0060 dec=48
        'one',  # hex=0x31 oct=0061 dec=49
        'two',  # hex=0x32 oct=0062 dec=50
        'three',        # hex=0x33 oct=0063 dec=51
        'four', # hex=0x34 oct=0064 dec=52
        'five', # hex=0x35 oct=0065 dec=53
        'six',  # hex=0x36 oct=0066 dec=54
        'seven',        # hex=0x37 oct=0067 dec=55
        'eight',        # hex=0x38 oct=0070 dec=56
        'nine', # hex=0x39 oct=0071 dec=57
        'colon',        # hex=0x3a oct=0072 dec=58
        'semicolon',    # hex=0x3b oct=0073 dec=59
        'less', # hex=0x3c oct=0074 dec=60
        'equal',        # hex=0x3d oct=0075 dec=61
        'greater',      # hex=0x3e oct=0076 dec=62
        'question',     # hex=0x3f oct=0077 dec=63
        'at',   # hex=0x40 oct=0100 dec=64
        'A',    # hex=0x41 oct=0101 dec=65
        'B',    # hex=0x42 oct=0102 dec=66
        'C',    # hex=0x43 oct=0103 dec=67
        'D',    # hex=0x44 oct=0104 dec=68
        'E',    # hex=0x45 oct=0105 dec=69
        'F',    # hex=0x46 oct=0106 dec=70
        'G',    # hex=0x47 oct=0107 dec=71
        'H',    # hex=0x48 oct=0110 dec=72
        'I',    # hex=0x49 oct=0111 dec=73
        'J',    # hex=0x4a oct=0112 dec=74
        'K',    # hex=0x4b oct=0113 dec=75
        'L',    # hex=0x4c oct=0114 dec=76
        'M',    # hex=0x4d oct=0115 dec=77
        'N',    # hex=0x4e oct=0116 dec=78
        'O',    # hex=0x4f oct=0117 dec=79
        'P',    # hex=0x50 oct=0120 dec=80
        'Q',    # hex=0x51 oct=0121 dec=81
        'R',    # hex=0x52 oct=0122 dec=82
        'S',    # hex=0x53 oct=0123 dec=83
        'T',    # hex=0x54 oct=0124 dec=84
        'U',    # hex=0x55 oct=0125 dec=85
        'V',    # hex=0x56 oct=0126 dec=86
        'W',    # hex=0x57 oct=0127 dec=87
        'X',    # hex=0x58 oct=0130 dec=88
        'Y',    # hex=0x59 oct=0131 dec=89
        'Z',    # hex=0x5a oct=0132 dec=90
        'bracketleft',  # hex=0x5b oct=0133 dec=91
        'backslash',    # hex=0x5c oct=0134 dec=92
        'bracketright', # hex=0x5d oct=0135 dec=93
        'asciicircum',  # hex=0x5e oct=0136 dec=94
        'underscore',   # hex=0x5f oct=0137 dec=95
        'grave',        # hex=0x60 oct=0140 dec=96
        'a',    # hex=0x61 oct=0141 dec=97
        'b',    # hex=0x62 oct=0142 dec=98
        'c',    # hex=0x63 oct=0143 dec=99
        'd',    # hex=0x64 oct=0144 dec=100
        'e',    # hex=0x65 oct=0145 dec=101
        'f',    # hex=0x66 oct=0146 dec=102
        'g',    # hex=0x67 oct=0147 dec=103
        'h',    # hex=0x68 oct=0150 dec=104
        'i',    # hex=0x69 oct=0151 dec=105
        'j',    # hex=0x6a oct=0152 dec=106
        'k',    # hex=0x6b oct=0153 dec=107
        'l',    # hex=0x6c oct=0154 dec=108
        'm',    # hex=0x6d oct=0155 dec=109
        'n',    # hex=0x6e oct=0156 dec=110
        'o',    # hex=0x6f oct=0157 dec=111
        'p',    # hex=0x70 oct=0160 dec=112
        'q',    # hex=0x71 oct=0161 dec=113
        'r',    # hex=0x72 oct=0162 dec=114
        's',    # hex=0x73 oct=0163 dec=115
        't',    # hex=0x74 oct=0164 dec=116
        'u',    # hex=0x75 oct=0165 dec=117
        'v',    # hex=0x76 oct=0166 dec=118
        'w',    # hex=0x77 oct=0167 dec=119
        'x',    # hex=0x78 oct=0170 dec=120
        'y',    # hex=0x79 oct=0171 dec=121
        'z',    # hex=0x7a oct=0172 dec=122
        'braceleft',    # hex=0x7b oct=0173 dec=123
        'bar',  # hex=0x7c oct=0174 dec=124
        'braceright',   # hex=0x7d oct=0175 dec=125
        'asciitilde',   # hex=0x7e oct=0176 dec=126
        'bullet',      # hex=0x7f oct=0177 dec=127
        'Euro',      # hex=0x80 oct=0200 dec=128
        'bullet',      # hex=0x81 oct=0201 dec=129
        'quotesinglbase',       # hex=0x82 oct=0202 dec=130
        'florin',       # hex=0x83 oct=0203 dec=131
        'quotedblbase', # hex=0x84 oct=0204 dec=132
        'ellipsis',     # hex=0x85 oct=0205 dec=133
        'dagger',       # hex=0x86 oct=0206 dec=134
        'daggerdbl',    # hex=0x87 oct=0207 dec=135
        'circumflex',   # hex=0x88 oct=0210 dec=136
        'perthousand',  # hex=0x89 oct=0211 dec=137
        'Scaron',       # hex=0x8a oct=0212 dec=138
        'guilsinglleft',        # hex=0x8b oct=0213 dec=139
        'OE',   # hex=0x8c oct=0214 dec=140
        'bullet',      # hex=0x8d oct=0215 dec=141
        'Zcaron',      # hex=0x8e oct=0216 dec=142
        'bullet',      # hex=0x8f oct=0217 dec=143
        'bullet',      # hex=0x90 oct=0220 dec=144
        'quoteleft',    # hex=0x91 oct=0221 dec=145
        'quoteright',   # hex=0x92 oct=0222 dec=146
        'quotedblleft', # hex=0x93 oct=0223 dec=147
        'quotedblright',        # hex=0x94 oct=0224 dec=148
        'bullet',      # hex=0x95 oct=0225 dec=149
        'endash',       # hex=0x96 oct=0226 dec=150
        'emdash',       # hex=0x97 oct=0227 dec=151
        'tilde',        # hex=0x98 oct=0230 dec=152
        'trademark',    # hex=0x99 oct=0231 dec=153
        'scaron',       # hex=0x9a oct=0232 dec=154
        'guilsinglright',       # hex=0x9b oct=0233 dec=155
        'oe',   # hex=0x9c oct=0234 dec=156
        'bullet',      # hex=0x9d oct=0235 dec=157
        'zcaron',       # hex=0x9e oct=0236 dec=158
        'Ydieresis',    # hex=0x9f oct=0237 dec=159
        'space',      # hex=0xa0 oct=0240 dec=160
        'exclamdown',   # hex=0xa1 oct=0241 dec=161
        'cent', # hex=0xa2 oct=0242 dec=162
        'sterling',     # hex=0xa3 oct=0243 dec=163
        'currency',      # hex=0xa4 oct=0244 dec=164
        'yen',  # hex=0xa5 oct=0245 dec=165
        'brokenbar',    # hex=0xa6 oct=0246 dec=166
        'section',      # hex=0xa7 oct=0247 dec=167
        'dieresis',     # hex=0xa8 oct=0250 dec=168
        'copyright',    # hex=0xa9 oct=0251 dec=169
        'ordfeminine',  # hex=0xaa oct=0252 dec=170
        'guillemotleft',      # hex=0xab oct=0253 dec=171
        'logicalnot',   # hex=0xac oct=0254 dec=172
        'hyphen',      # hex=0xad oct=0255 dec=173
        'registered',   # hex=0xae oct=0256 dec=174
        'macron',       # hex=0xaf oct=0257 dec=175
        'degree',       # hex=0xb0 oct=0260 dec=176
        'plusminus',    # hex=0xb1 oct=0261 dec=177
        'twosuperior',  # hex=0xb2 oct=0262 dec=178
        'threesuperior',        # hex=0xb3 oct=0263 dec=179
        'acute',        # hex=0xb4 oct=0264 dec=180
        'mu',   # hex=0xb5 oct=0265 dec=181
        'paragraph',    # hex=0xb6 oct=0266 dec=182
        'periodcentered',       # hex=0xb7 oct=0267 dec=183
        'cedilla',      # hex=0xb8 oct=0270 dec=184
        'onesuperior',  # hex=0xb9 oct=0271 dec=185
        'ordmasculine', # hex=0xba oct=0272 dec=186
        'guillemotright',      # hex=0xbb oct=0273 dec=187
        'onequarter',   # hex=0xbc oct=0274 dec=188
        'onehalf',      # hex=0xbd oct=0275 dec=189
        'threequarters',        # hex=0xbe oct=0276 dec=190
        'questiondown', # hex=0xbf oct=0277 dec=191
        'Agrave',       # hex=0xc0 oct=0300 dec=192
        'Aacute',       # hex=0xc1 oct=0301 dec=193
        'Acircumflex',  # hex=0xc2 oct=0302 dec=194
        'Atilde',       # hex=0xc3 oct=0303 dec=195
        'Adieresis',    # hex=0xc4 oct=0304 dec=196
        'Aring',        # hex=0xc5 oct=0305 dec=197
        'AE',   # hex=0xc6 oct=0306 dec=198
        'Ccedilla',        # hex=0xc7 oct=0307 dec=199
        'Egrave',       # hex=0xc8 oct=0310 dec=200
        'Eacute',       # hex=0xc9 oct=0311 dec=201
        'Ecircumflex',  # hex=0xca oct=0312 dec=202
        'Edieresis',    # hex=0xcb oct=0313 dec=203
        'Igrave',       # hex=0xcc oct=0314 dec=204
        'Iacute',       # hex=0xcd oct=0315 dec=205
        'Icircumflex',  # hex=0xce oct=0316 dec=206
        'Idieresis',    # hex=0xcf oct=0317 dec=207
        'Eth',  # hex=0xd0 oct=0320 dec=208
        'Ntilde',       # hex=0xd1 oct=0321 dec=209
        'Ograve',       # hex=0xd2 oct=0322 dec=210
        'Oacute',       # hex=0xd3 oct=0323 dec=211
        'Ocircumflex',  # hex=0xd4 oct=0324 dec=212
        'Otilde',       # hex=0xd5 oct=0325 dec=213
        'Odieresis',    # hex=0xd6 oct=0326 dec=214
        'multiply',     # hex=0xd7 oct=0327 dec=215
        'Oslash',       # hex=0xd8 oct=0330 dec=216
        'Ugrave',       # hex=0xd9 oct=0331 dec=217
        'Uacute',       # hex=0xda oct=0332 dec=218
        'Ucircumflex',     # hex=0xdb oct=0333 dec=219
        'Udieresis',    # hex=0xdc oct=0334 dec=220
        'Yacute',       # hex=0xdd oct=0335 dec=221
        'Thorn',        # hex=0xde oct=0336 dec=222
        'germandbls',   # hex=0xdf oct=0337 dec=223
        'agrave',       # hex=0xe0 oct=0340 dec=224
        'aacute',       # hex=0xe1 oct=0341 dec=225
        'acircumflex',  # hex=0xe2 oct=0342 dec=226
        'atilde',       # hex=0xe3 oct=0343 dec=227
        'adieresis',    # hex=0xe4 oct=0344 dec=228
        'aring',        # hex=0xe5 oct=0345 dec=229
        'ae',   # hex=0xe6 oct=0346 dec=230
        'ccedilla',     # hex=0xe7 oct=0347 dec=231
        'egrave',       # hex=0xe8 oct=0350 dec=232
        'eacute',       # hex=0xe9 oct=0351 dec=233
        'ecircumflex',  # hex=0xea oct=0352 dec=234
        'edieresis',    # hex=0xeb oct=0353 dec=235
        'igrave',       # hex=0xec oct=0354 dec=236
        'iacute',       # hex=0xed oct=0355 dec=237
        'icircumflex',  # hex=0xee oct=0356 dec=238
        'idieresis',    # hex=0xef oct=0357 dec=239
        'eth',  # hex=0xf0 oct=0360 dec=240
        'ntilde',       # hex=0xf1 oct=0361 dec=241
        'ograve',       # hex=0xf2 oct=0362 dec=242
        'oacute',       # hex=0xf3 oct=0363 dec=243
        'ocircumflex',  # hex=0xf4 oct=0364 dec=244
        'otilde',       # hex=0xf5 oct=0365 dec=245
        'odieresis',    # hex=0xf6 oct=0366 dec=246
        'divide',       # hex=0xf7 oct=0367 dec=247
        'oslash',       # hex=0xf8 oct=0370 dec=248
        'ugrave',       # hex=0xf9 oct=0371 dec=249
        'uacute',       # hex=0xfa oct=0372 dec=250
        'ucircumflex',  # hex=0xfb oct=0373 dec=251
        'udieresis',    # hex=0xfc oct=0374 dec=252
        'yacute',      # hex=0xfd oct=0375 dec=253
        'thorn',        # hex=0xfe oct=0376 dec=254
        'ydieresis',    # hex=0xff oct=0377 dec=255
 );
@mac_enc = (
        '.notdef',      # hex=0x00 oct=0000 dec=0
        '.notdef',      # hex=0x01 oct=0001 dec=1
        '.notdef',      # hex=0x02 oct=0002 dec=2
        '.notdef',      # hex=0x03 oct=0003 dec=3