This diff has been collapsed as it changes many lines, (946 lines changed) Show them Hide them | |||
@@ -1,473 +1,473 | |||
|
1 | # Copyright (c) 2006 4ssoM LLC <www.4ssoM.com> | |
|
2 | # 1.12 contributed by Ed Moss. | |
|
3 | # | |
|
4 | # The MIT License | |
|
5 | # | |
|
6 | # Permission is hereby granted, free of charge, to any person obtaining a copy | |
|
7 | # of this software and associated documentation files (the "Software"), to deal | |
|
8 | # in the Software without restriction, including without limitation the rights | |
|
9 | # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
|
10 | # copies of the Software, and to permit persons to whom the Software is | |
|
11 | # furnished to do so, subject to the following conditions: | |
|
12 | # | |
|
13 | # The above copyright notice and this permission notice shall be included in | |
|
14 | # all copies or substantial portions of the Software. | |
|
15 | # | |
|
16 | # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
|
17 | # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
|
18 | # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE | |
|
19 | # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER | |
|
20 | # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, | |
|
21 | # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN | |
|
22 | # THE SOFTWARE. | |
|
23 | # | |
|
24 | # This is direct port of chinese.php | |
|
25 | # | |
|
26 | # Chinese PDF support. | |
|
27 | # | |
|
28 | # Usage is as follows: | |
|
29 | # | |
|
30 | # require 'fpdf' | |
|
31 | # require 'chinese' | |
|
32 | # pdf = FPDF.new | |
|
33 | # pdf.extend(PDF_Chinese) | |
|
34 | # | |
|
35 | # This allows it to be combined with other extensions, such as the bookmark | |
|
36 | # module. | |
|
37 | ||
|
38 | module PDF_Chinese | |
|
39 | ||
|
40 | Big5_widths={' '=>250,'!'=>250,'"'=>408,'#'=>668,''=>490,'%'=>875,'&'=>698,'\''=>250, | |
|
41 | '('=>240,')'=>240,'*'=>417,'+'=>667,','=>250,'-'=>313,'.'=>250,'/'=>520,'0'=>500,'1'=>500, | |
|
42 | '2'=>500,'3'=>500,'4'=>500,'5'=>500,'6'=>500,'7'=>500,'8'=>500,'9'=>500,':'=>250,''=>250, | |
|
43 | '<'=>667,'='=>667,'>'=>667,'?'=>396,'@'=>921,'A'=>677,'B'=>615,'C'=>719,'D'=>760,'E'=>625, | |
|
44 | 'F'=>552,'G'=>771,'H'=>802,'I'=>354,'J'=>354,'K'=>781,'L'=>604,'M'=>927,'N'=>750,'O'=>823, | |
|
45 | 'P'=>563,'Q'=>823,'R'=>729,'S'=>542,'T'=>698,'U'=>771,'V'=>729,'W'=>948,'X'=>771,'Y'=>677, | |
|
46 | 'Z'=>635,'['=>344,'\\'=>520,']'=>344,'^'=>469,'_'=>500,'`'=>250,'a'=>469,'b'=>521,'c'=>427, | |
|
47 | 'd'=>521,'e'=>438,'f'=>271,'g'=>469,'h'=>531,'i'=>250,'j'=>250,'k'=>458,'l'=>240,'m'=>802, | |
|
48 | 'n'=>531,'o'=>500,'p'=>521,'q'=>521,'r'=>365,'s'=>333,'t'=>292,'u'=>521,'v'=>458,'w'=>677, | |
|
49 | 'x'=>479,'y'=>458,'z'=>427,'{'=>480,'|'=>496,'end'=>480,'~'=>667} | |
|
50 | ||
|
51 | GB_widths={' '=>207,'!'=>270,'"'=>342,'#'=>467,''=>462,'%'=>797,'&'=>710,'\''=>239, | |
|
52 | '('=>374,')'=>374,'*'=>423,'+'=>605,','=>238,'-'=>375,'.'=>238,'/'=>334,'0'=>462,'1'=>462, | |
|
53 | '2'=>462,'3'=>462,'4'=>462,'5'=>462,'6'=>462,'7'=>462,'8'=>462,'9'=>462,':'=>238,''=>238, | |
|
54 | '<'=>605,'='=>605,'>'=>605,'?'=>344,'@'=>748,'A'=>684,'B'=>560,'C'=>695,'D'=>739,'E'=>563, | |
|
55 | 'F'=>511,'G'=>729,'H'=>793,'I'=>318,'J'=>312,'K'=>666,'L'=>526,'M'=>896,'N'=>758,'O'=>772, | |
|
56 | 'P'=>544,'Q'=>772,'R'=>628,'S'=>465,'T'=>607,'U'=>753,'V'=>711,'W'=>972,'X'=>647,'Y'=>620, | |
|
57 | 'Z'=>607,'['=>374,'\\'=>333,']'=>374,'^'=>606,'_'=>500,'`'=>239,'a'=>417,'b'=>503,'c'=>427, | |
|
58 | 'd'=>529,'e'=>415,'f'=>264,'g'=>444,'h'=>518,'i'=>241,'j'=>230,'k'=>495,'l'=>228,'m'=>793, | |
|
59 | 'n'=>527,'o'=>524,'p'=>524,'q'=>504,'r'=>338,'s'=>336,'t'=>277,'u'=>517,'v'=>450,'w'=>652, | |
|
60 | 'x'=>466,'y'=>452,'z'=>407,'{'=>370,'|'=>258,'end'=>370,'~'=>605} | |
|
61 | ||
|
62 | def AddCIDFont(family,style,name,cw,cMap,registry) | |
|
63 | #ActionController::Base::logger.debug registry.to_a.join(":").to_s | |
|
64 | fontkey=family.downcase+style.upcase | |
|
65 | unless @fonts[fontkey].nil? | |
|
66 | Error("Font already added: family style") | |
|
67 | end | |
|
68 | i=@fonts.length+1 | |
|
69 | name=name.gsub(' ','') | |
|
70 | @fonts[fontkey]={'i'=>i,'type'=>'Type0','name'=>name,'up'=>-130,'ut'=>40,'cw'=>cw, 'CMap'=>cMap,'registry'=>registry} | |
|
71 | end | |
|
72 | ||
|
73 | def AddCIDFonts(family,name,cw,cMap,registry) | |
|
74 | AddCIDFont(family,'',name,cw,cMap,registry) | |
|
75 | AddCIDFont(family,'B',name+',Bold',cw,cMap,registry) | |
|
76 | AddCIDFont(family,'I',name+',Italic',cw,cMap,registry) | |
|
77 | AddCIDFont(family,'BI',name+',BoldItalic',cw,cMap,registry) | |
|
78 | end | |
|
79 | ||
|
80 | def AddBig5Font(family='Big5',name='MSungStd-Light-Acro') | |
|
81 | #Add Big5 font with proportional Latin | |
|
82 | cw=Big5_widths | |
|
83 | cMap='ETenms-B5-H' | |
|
84 | registry={'ordering'=>'CNS1','supplement'=>0} | |
|
85 | #ActionController::Base::logger.debug registry.to_a.join(":").to_s | |
|
86 | AddCIDFonts(family,name,cw,cMap,registry) | |
|
87 | end | |
|
88 | ||
|
89 | def AddBig5hwFont(family='Big5-hw',name='MSungStd-Light-Acro') | |
|
90 | #Add Big5 font with half-witdh Latin | |
|
91 | cw = {} | |
|
92 | 32.upto(126) do |i| | |
|
93 | cw[i.chr]=500 | |
|
94 | end | |
|
95 | cMap='ETen-B5-H' | |
|
96 | registry={'ordering'=>'CNS1','supplement'=>0} | |
|
97 | AddCIDFonts(family,name,cw,cMap,registry) | |
|
98 | end | |
|
99 | ||
|
100 | def AddGBFont(family='GB',name='STSongStd-Light-Acro') | |
|
101 | #Add GB font with proportional Latin | |
|
102 | cw=GB_widths | |
|
103 | cMap='GBKp-EUC-H' | |
|
104 | registry={'ordering'=>'GB1','supplement'=>2} | |
|
105 | AddCIDFonts(family,name,cw,cMap,registry) | |
|
106 | end | |
|
107 | ||
|
108 | def AddGBhwFont(family='GB-hw',name='STSongStd-Light-Acro') | |
|
109 | #Add GB font with half-width Latin | |
|
110 | 32.upto(126) do |i| | |
|
111 | cw[i.chr]=500 | |
|
112 | end | |
|
113 | cMap='GBK-EUC-H' | |
|
114 | registry={'ordering'=>'GB1','supplement'=>2} | |
|
115 | AddCIDFonts(family,name,cw,cMap,registry) | |
|
116 | end | |
|
117 | ||
|
118 | def GetStringWidth(s) | |
|
119 | if(@CurrentFont['type']=='Type0') | |
|
120 | return GetMBStringWidth(s) | |
|
121 | else | |
|
122 | return super(s) | |
|
123 | end | |
|
124 | end | |
|
125 | ||
|
126 | def GetMBStringWidth(s) | |
|
127 | #Multi-byte version of GetStringWidth() | |
|
128 | l=0 | |
|
129 | cw=@CurrentFont['cw'] | |
|
130 | nb=s.length | |
|
131 | i=0 | |
|
132 | while(i<nb) | |
|
133 | c=s[i] | |
|
134 | if(c<128) | |
|
135 | l+=cw[c.chr] if cw[c.chr] | |
|
136 | i+=1 | |
|
137 | else | |
|
138 | l+=1000 | |
|
139 | i+=2 | |
|
140 | end | |
|
141 | end | |
|
142 | return l*@FontSize/1000 | |
|
143 | end | |
|
144 | ||
|
145 | def MultiCell(w,h,txt,border=0,align='L',fill=0) | |
|
146 | if(@CurrentFont['type']=='Type0') | |
|
147 | MBMultiCell(w,h,txt,border,align,fill) | |
|
148 | else | |
|
149 | super(w,h,txt,border,align,fill) | |
|
150 | end | |
|
151 | end | |
|
152 | ||
|
153 | def MBMultiCell(w,h,txt,border=0,align='L',fill=0) | |
|
154 | #Multi-byte version of MultiCell() | |
|
155 | cw=@CurrentFont['cw'] | |
|
156 | if(w==0) | |
|
157 | w=@w-@rMargin-@x | |
|
158 | end | |
|
159 | wmax=(w-2*@cMargin)*1000/@FontSize | |
|
160 | s=txt.gsub("\r",'') | |
|
161 | nb=s.length | |
|
162 | if(nb>0 and s[nb-1]=="\n") | |
|
163 | nb-=1 | |
|
164 | end | |
|
165 | b=0 | |
|
166 | if(border) | |
|
167 | if(border==1) | |
|
168 | border='LTRB' | |
|
169 | b='LRT' | |
|
170 | b2='LR' | |
|
171 | else | |
|
172 | b2='' | |
|
173 | if(border.to_s.index('L')) | |
|
174 | b2+='L' | |
|
175 | end | |
|
176 | if(border.to_s.index('R')) | |
|
177 | b2+='R' | |
|
178 | end | |
|
179 | b=border.to_s.index('T') ? b2+'T' : b2 | |
|
180 | end | |
|
181 | end | |
|
182 | sep=-1 | |
|
183 | i=0 | |
|
184 | j=0 | |
|
185 | l=0 | |
|
186 | nl=1 | |
|
187 | while(i<nb) | |
|
188 | #Get next character | |
|
189 | c=s[i] | |
|
190 | #Check if ASCII or MB | |
|
191 | ascii=(c<128) | |
|
192 | if(c=="\n") | |
|
193 | #Explicit line break | |
|
194 | Cell(w,h,s[j,i-j],b,2,align,fill) | |
|
195 | i+=1 | |
|
196 | sep=-1 | |
|
197 | j=i | |
|
198 | l=0 | |
|
199 | nl+=1 | |
|
200 | if(border and nl==2) | |
|
201 | b=b2 | |
|
202 | end | |
|
203 | next | |
|
204 | end | |
|
205 | if(!ascii) | |
|
206 | sep=i | |
|
207 | ls=l | |
|
208 | elsif(c==' ') | |
|
209 | sep=i | |
|
210 | ls=l | |
|
211 | end | |
|
212 |
l+=ascii ? (cw[c.chr] || 0) : 1 |
|
|
213 | if(l>wmax) | |
|
214 | #Automatic line break | |
|
215 | if(sep==-1 or i==j) | |
|
216 | if(i==j) | |
|
217 |
i+=ascii ? 1 : |
|
|
218 | end | |
|
219 | Cell(w,h,s[j,i-j],b,2,align,fill) | |
|
220 | else | |
|
221 | Cell(w,h,s[j,sep-j],b,2,align,fill) | |
|
222 | i=(s[sep]==' ') ? sep+1 : sep | |
|
223 | end | |
|
224 | sep=-1 | |
|
225 | j=i | |
|
226 | l=0 | |
|
227 | # nl+=1 | |
|
228 | if(border and nl==2) | |
|
229 | b=b2 | |
|
230 | end | |
|
231 | else | |
|
232 |
i+=ascii ? 1 : |
|
|
233 | end | |
|
234 | end | |
|
235 | #Last chunk | |
|
236 | if(border and not border.to_s.index('B').nil?) | |
|
237 | b+='B' | |
|
238 | end | |
|
239 | Cell(w,h,s[j,i-j],b,2,align,fill) | |
|
240 | @x=@lMargin | |
|
241 | end | |
|
242 | ||
|
243 | def Write(h,txt,link='') | |
|
244 | if(@CurrentFont['type']=='Type0') | |
|
245 | MBWrite(h,txt,link) | |
|
246 | else | |
|
247 | super(h,txt,link) | |
|
248 | end | |
|
249 | end | |
|
250 | ||
|
251 | def MBWrite(h,txt,link) | |
|
252 | #Multi-byte version of Write() | |
|
253 | cw=@CurrentFont['cw'] | |
|
254 | w=@w-@rMargin-@x | |
|
255 | wmax=(w-2*@cMargin)*1000/@FontSize | |
|
256 | s=txt.gsub("\r",'') | |
|
257 | nb=s.length | |
|
258 | sep=-1 | |
|
259 | i=0 | |
|
260 | j=0 | |
|
261 | l=0 | |
|
262 | nl=1 | |
|
263 | while(i<nb) | |
|
264 | #Get next character | |
|
265 | c=s[i] | |
|
266 | #Check if ASCII or MB | |
|
267 | ascii=(c<128) | |
|
268 | if(c=="\n") | |
|
269 | #Explicit line break | |
|
270 | Cell(w,h,s[j,i-j],0,2,'',0,link) | |
|
271 | i+=1 | |
|
272 | sep=-1 | |
|
273 | j=i | |
|
274 | l=0 | |
|
275 | if(nl==1) | |
|
276 | @x=@lMargin | |
|
277 | w=@w-@rMargin-@x | |
|
278 | wmax=(w-2*@cMargin)*1000/@FontSize | |
|
279 | end | |
|
280 | nl+=1 | |
|
281 | next | |
|
282 | end | |
|
283 | if(!ascii or c==' ') | |
|
284 | sep=i | |
|
285 | end | |
|
286 |
l+=ascii ? cw[c.chr] : 1 |
|
|
287 | if(l>wmax) | |
|
288 | #Automatic line break | |
|
289 | if(sep==-1 or i==j) | |
|
290 | if(@x>@lMargin) | |
|
291 | #Move to next line | |
|
292 | @x=@lMargin | |
|
293 | @y+=h | |
|
294 | w=@w-@rMargin-@x | |
|
295 | wmax=(w-2*@cMargin)*1000/@FontSize | |
|
296 | i+=1 | |
|
297 | nl+=1 | |
|
298 | next | |
|
299 | end | |
|
300 | if(i==j) | |
|
301 |
i+=ascii ? 1 : |
|
|
302 | end | |
|
303 | Cell(w,h,s[j,i-j],0,2,'',0,link) | |
|
304 | else | |
|
305 | Cell(w,h,s[j,sep-j],0,2,'',0,link) | |
|
306 | i=(s[sep]==' ') ? sep+1 : sep | |
|
307 | end | |
|
308 | sep=-1 | |
|
309 | j=i | |
|
310 | l=0 | |
|
311 | if(nl==1) | |
|
312 | @x=@lMargin | |
|
313 | w=@w-@rMargin-@x | |
|
314 | wmax=(w-2*@cMargin)*1000/@FontSize | |
|
315 | end | |
|
316 | nl+=1 | |
|
317 | else | |
|
318 |
i+=ascii ? 1 : |
|
|
319 | end | |
|
320 | end | |
|
321 | #Last chunk | |
|
322 | if(i!=j) | |
|
323 | Cell(l/1000*@FontSize,h,s[j,i-j],0,0,'',0,link) | |
|
324 | end | |
|
325 | end | |
|
326 | ||
|
327 | private | |
|
328 | ||
|
329 | def putfonts() | |
|
330 | nf=@n | |
|
331 | @diffs.each do |diff| | |
|
332 | #Encodings | |
|
333 | newobj() | |
|
334 | out('<</Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences ['+diff+']>>') | |
|
335 | out('endobj') | |
|
336 | end | |
|
337 | # mqr=get_magic_quotes_runtime() | |
|
338 | # set_magic_quotes_runtime(0) | |
|
339 | @FontFiles.each_pair do |file, info| | |
|
340 | #Font file embedding | |
|
341 | newobj() | |
|
342 | @FontFiles[file]['n']=@n | |
|
343 | if(defined('FPDF_FONTPATH')) | |
|
344 | file=FPDF_FONTPATH+file | |
|
345 | end | |
|
346 | size=filesize(file) | |
|
347 | if(!size) | |
|
348 | Error('Font file not found') | |
|
349 | end | |
|
350 | out('<</Length '+size) | |
|
351 | if(file[-2]=='.z') | |
|
352 | out('/Filter /FlateDecode') | |
|
353 | end | |
|
354 | out('/Length1 '+info['length1']) | |
|
355 | unless info['length2'].nil? | |
|
356 | out('/Length2 '+info['length2']+' /Length3 0') | |
|
357 | end | |
|
358 | out('>>') | |
|
359 | f=fopen(file,'rb') | |
|
360 | putstream(fread(f,size)) | |
|
361 | fclose(f) | |
|
362 | out('endobj') | |
|
363 | end | |
|
364 | # | |
|
365 | # set_magic_quotes_runtime(mqr) | |
|
366 | # | |
|
367 | @fonts.each_pair do |k, font| | |
|
368 | #Font objects | |
|
369 | newobj() | |
|
370 | @fonts[k]['n']=@n | |
|
371 | out('<</Type /Font') | |
|
372 | if(font['type']=='Type0') | |
|
373 | putType0(font) | |
|
374 | else | |
|
375 | name=font['name'] | |
|
376 | out('/BaseFont /'+name) | |
|
377 | if(font['type']=='core') | |
|
378 | #Standard font | |
|
379 | out('/Subtype /Type1') | |
|
380 | if(name!='Symbol' and name!='ZapfDingbats') | |
|
381 | out('/Encoding /WinAnsiEncoding') | |
|
382 | end | |
|
383 | else | |
|
384 | #Additional font | |
|
385 | out('/Subtype /'+font['type']) | |
|
386 | out('/FirstChar 32') | |
|
387 | out('/LastChar 255') | |
|
388 | out('/Widths '+(@n+1)+' 0 R') | |
|
389 | out('/FontDescriptor '+(@n+2)+' 0 R') | |
|
390 | if(font['enc']) | |
|
391 | if !font['diff'].nil? | |
|
392 | out('/Encoding '+(nf+font['diff'])+' 0 R') | |
|
393 | else | |
|
394 | out('/Encoding /WinAnsiEncoding') | |
|
395 | end | |
|
396 | end | |
|
397 | end | |
|
398 | out('>>') | |
|
399 | out('endobj') | |
|
400 | if(font['type']!='core') | |
|
401 | #Widths | |
|
402 | newobj() | |
|
403 | cw=font['cw'] | |
|
404 | s='[' | |
|
405 | 32.upto(255) do |i| | |
|
406 | s+=cw[i.chr]+' ' | |
|
407 | end | |
|
408 | out(s+']') | |
|
409 | out('endobj') | |
|
410 | #Descriptor | |
|
411 | newobj() | |
|
412 | s='<</Type /FontDescriptor /FontName /'+name | |
|
413 | font['desc'].each_pair do |k, v| | |
|
414 | s+=' /'+k+' '+v | |
|
415 | end | |
|
416 | file=font['file'] | |
|
417 | if(file) | |
|
418 | s+=' /FontFile'+(font['type']=='Type1' ? '' : '2')+' '+@FontFiles[file]['n']+' 0 R' | |
|
419 | end | |
|
420 | out(s+'>>') | |
|
421 | out('endobj') | |
|
422 | end | |
|
423 | end | |
|
424 | end | |
|
425 | end | |
|
426 | ||
|
427 | def putType0(font) | |
|
428 | #Type0 | |
|
429 | out('/Subtype /Type0') | |
|
430 | out('/BaseFont /'+font['name']+'-'+font['CMap']) | |
|
431 | out('/Encoding /'+font['CMap']) | |
|
432 | out('/DescendantFonts ['+(@n+1).to_s+' 0 R]') | |
|
433 | out('>>') | |
|
434 | out('endobj') | |
|
435 | #CIDFont | |
|
436 | newobj() | |
|
437 | out('<</Type /Font') | |
|
438 | out('/Subtype /CIDFontType0') | |
|
439 | out('/BaseFont /'+font['name']) | |
|
440 | out('/CIDSystemInfo <</Registry '+textstring('Adobe')+' /Ordering '+textstring(font['registry']['ordering'])+' /Supplement '+font['registry']['supplement'].to_s+'>>') | |
|
441 | out('/FontDescriptor '+(@n+1).to_s+' 0 R') | |
|
442 | if(font['CMap']=='ETen-B5-H') | |
|
443 | w='13648 13742 500' | |
|
444 | elsif(font['CMap']=='GBK-EUC-H') | |
|
445 | w='814 907 500 7716 [500]' | |
|
446 | else | |
|
447 | # ActionController::Base::logger.debug font['cw'].keys.sort.join(' ').to_s | |
|
448 | # ActionController::Base::logger.debug font['cw'].values.join(' ').to_s | |
|
449 | w='1 [' | |
|
450 | font['cw'].keys.sort.each {|key| | |
|
451 | w+=font['cw'][key].to_s + " " | |
|
452 | # ActionController::Base::logger.debug key.to_s | |
|
453 | # ActionController::Base::logger.debug font['cw'][key].to_s | |
|
454 | } | |
|
455 | w +=']' | |
|
456 | end | |
|
457 | out('/W ['+w+']>>') | |
|
458 | out('endobj') | |
|
459 | #Font descriptor | |
|
460 | newobj() | |
|
461 | out('<</Type /FontDescriptor') | |
|
462 | out('/FontName /'+font['name']) | |
|
463 | out('/Flags 6') | |
|
464 | out('/FontBBox [0 -200 1000 900]') | |
|
465 | out('/ItalicAngle 0') | |
|
466 | out('/Ascent 800') | |
|
467 | out('/Descent -200') | |
|
468 | out('/CapHeight 800') | |
|
469 | out('/StemV 50') | |
|
470 | out('>>') | |
|
471 | out('endobj') | |
|
472 | end | |
|
473 | end | |
|
1 | # Copyright (c) 2006 4ssoM LLC <www.4ssoM.com> | |
|
2 | # 1.12 contributed by Ed Moss. | |
|
3 | # | |
|
4 | # The MIT License | |
|
5 | # | |
|
6 | # Permission is hereby granted, free of charge, to any person obtaining a copy | |
|
7 | # of this software and associated documentation files (the "Software"), to deal | |
|
8 | # in the Software without restriction, including without limitation the rights | |
|
9 | # to use, copy, modify, merge, publish, distribute, sublicense, and/or sell | |
|
10 | # copies of the Software, and to permit persons to whom the Software is | |
|
11 | # furnished to do so, subject to the following conditions: | |
|
12 | # | |
|
13 | # The above copyright notice and this permission notice shall be included in | |
|
14 | # all copies or substantial portions of the Software. | |
|
15 | # | |
|
16 | # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR | |
|
17 | # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, | |
|
18 | # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE | |
|
19 | # AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER | |
|
20 | # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, | |
|
21 | # OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN | |
|
22 | # THE SOFTWARE. | |
|
23 | # | |
|
24 | # This is direct port of chinese.php | |
|
25 | # | |
|
26 | # Chinese PDF support. | |
|
27 | # | |
|
28 | # Usage is as follows: | |
|
29 | # | |
|
30 | # require 'fpdf' | |
|
31 | # require 'chinese' | |
|
32 | # pdf = FPDF.new | |
|
33 | # pdf.extend(PDF_Chinese) | |
|
34 | # | |
|
35 | # This allows it to be combined with other extensions, such as the bookmark | |
|
36 | # module. | |
|
37 | ||
|
38 | module PDF_Chinese | |
|
39 | ||
|
40 | Big5_widths={' '=>250,'!'=>250,'"'=>408,'#'=>668,''=>490,'%'=>875,'&'=>698,'\''=>250, | |
|
41 | '('=>240,')'=>240,'*'=>417,'+'=>667,','=>250,'-'=>313,'.'=>250,'/'=>520,'0'=>500,'1'=>500, | |
|
42 | '2'=>500,'3'=>500,'4'=>500,'5'=>500,'6'=>500,'7'=>500,'8'=>500,'9'=>500,':'=>250,''=>250, | |
|
43 | '<'=>667,'='=>667,'>'=>667,'?'=>396,'@'=>921,'A'=>677,'B'=>615,'C'=>719,'D'=>760,'E'=>625, | |
|
44 | 'F'=>552,'G'=>771,'H'=>802,'I'=>354,'J'=>354,'K'=>781,'L'=>604,'M'=>927,'N'=>750,'O'=>823, | |
|
45 | 'P'=>563,'Q'=>823,'R'=>729,'S'=>542,'T'=>698,'U'=>771,'V'=>729,'W'=>948,'X'=>771,'Y'=>677, | |
|
46 | 'Z'=>635,'['=>344,'\\'=>520,']'=>344,'^'=>469,'_'=>500,'`'=>250,'a'=>469,'b'=>521,'c'=>427, | |
|
47 | 'd'=>521,'e'=>438,'f'=>271,'g'=>469,'h'=>531,'i'=>250,'j'=>250,'k'=>458,'l'=>240,'m'=>802, | |
|
48 | 'n'=>531,'o'=>500,'p'=>521,'q'=>521,'r'=>365,'s'=>333,'t'=>292,'u'=>521,'v'=>458,'w'=>677, | |
|
49 | 'x'=>479,'y'=>458,'z'=>427,'{'=>480,'|'=>496,'end'=>480,'~'=>667} | |
|
50 | ||
|
51 | GB_widths={' '=>207,'!'=>270,'"'=>342,'#'=>467,''=>462,'%'=>797,'&'=>710,'\''=>239, | |
|
52 | '('=>374,')'=>374,'*'=>423,'+'=>605,','=>238,'-'=>375,'.'=>238,'/'=>334,'0'=>462,'1'=>462, | |
|
53 | '2'=>462,'3'=>462,'4'=>462,'5'=>462,'6'=>462,'7'=>462,'8'=>462,'9'=>462,':'=>238,''=>238, | |
|
54 | '<'=>605,'='=>605,'>'=>605,'?'=>344,'@'=>748,'A'=>684,'B'=>560,'C'=>695,'D'=>739,'E'=>563, | |
|
55 | 'F'=>511,'G'=>729,'H'=>793,'I'=>318,'J'=>312,'K'=>666,'L'=>526,'M'=>896,'N'=>758,'O'=>772, | |
|
56 | 'P'=>544,'Q'=>772,'R'=>628,'S'=>465,'T'=>607,'U'=>753,'V'=>711,'W'=>972,'X'=>647,'Y'=>620, | |
|
57 | 'Z'=>607,'['=>374,'\\'=>333,']'=>374,'^'=>606,'_'=>500,'`'=>239,'a'=>417,'b'=>503,'c'=>427, | |
|
58 | 'd'=>529,'e'=>415,'f'=>264,'g'=>444,'h'=>518,'i'=>241,'j'=>230,'k'=>495,'l'=>228,'m'=>793, | |
|
59 | 'n'=>527,'o'=>524,'p'=>524,'q'=>504,'r'=>338,'s'=>336,'t'=>277,'u'=>517,'v'=>450,'w'=>652, | |
|
60 | 'x'=>466,'y'=>452,'z'=>407,'{'=>370,'|'=>258,'end'=>370,'~'=>605} | |
|
61 | ||
|
62 | def AddCIDFont(family,style,name,cw,cMap,registry) | |
|
63 | #ActionController::Base::logger.debug registry.to_a.join(":").to_s | |
|
64 | fontkey=family.downcase+style.upcase | |
|
65 | unless @fonts[fontkey].nil? | |
|
66 | Error("Font already added: family style") | |
|
67 | end | |
|
68 | i=@fonts.length+1 | |
|
69 | name=name.gsub(' ','') | |
|
70 | @fonts[fontkey]={'i'=>i,'type'=>'Type0','name'=>name,'up'=>-130,'ut'=>40,'cw'=>cw, 'CMap'=>cMap,'registry'=>registry} | |
|
71 | end | |
|
72 | ||
|
73 | def AddCIDFonts(family,name,cw,cMap,registry) | |
|
74 | AddCIDFont(family,'',name,cw,cMap,registry) | |
|
75 | AddCIDFont(family,'B',name+',Bold',cw,cMap,registry) | |
|
76 | AddCIDFont(family,'I',name+',Italic',cw,cMap,registry) | |
|
77 | AddCIDFont(family,'BI',name+',BoldItalic',cw,cMap,registry) | |
|
78 | end | |
|
79 | ||
|
80 | def AddBig5Font(family='Big5',name='MSungStd-Light-Acro') | |
|
81 | #Add Big5 font with proportional Latin | |
|
82 | cw=Big5_widths | |
|
83 | cMap='ETenms-B5-H' | |
|
84 | registry={'ordering'=>'CNS1','supplement'=>0} | |
|
85 | #ActionController::Base::logger.debug registry.to_a.join(":").to_s | |
|
86 | AddCIDFonts(family,name,cw,cMap,registry) | |
|
87 | end | |
|
88 | ||
|
89 | def AddBig5hwFont(family='Big5-hw',name='MSungStd-Light-Acro') | |
|
90 | #Add Big5 font with half-witdh Latin | |
|
91 | cw = {} | |
|
92 | 32.upto(126) do |i| | |
|
93 | cw[i.chr]=500 | |
|
94 | end | |
|
95 | cMap='ETen-B5-H' | |
|
96 | registry={'ordering'=>'CNS1','supplement'=>0} | |
|
97 | AddCIDFonts(family,name,cw,cMap,registry) | |
|
98 | end | |
|
99 | ||
|
100 | def AddGBFont(family='GB',name='STSongStd-Light-Acro') | |
|
101 | #Add GB font with proportional Latin | |
|
102 | cw=GB_widths | |
|
103 | cMap='GBKp-EUC-H' | |
|
104 | registry={'ordering'=>'GB1','supplement'=>2} | |
|
105 | AddCIDFonts(family,name,cw,cMap,registry) | |
|
106 | end | |
|
107 | ||
|
108 | def AddGBhwFont(family='GB-hw',name='STSongStd-Light-Acro') | |
|
109 | #Add GB font with half-width Latin | |
|
110 | 32.upto(126) do |i| | |
|
111 | cw[i.chr]=500 | |
|
112 | end | |
|
113 | cMap='GBK-EUC-H' | |
|
114 | registry={'ordering'=>'GB1','supplement'=>2} | |
|
115 | AddCIDFonts(family,name,cw,cMap,registry) | |
|
116 | end | |
|
117 | ||
|
118 | def GetStringWidth(s) | |
|
119 | if(@CurrentFont['type']=='Type0') | |
|
120 | return GetMBStringWidth(s) | |
|
121 | else | |
|
122 | return super(s) | |
|
123 | end | |
|
124 | end | |
|
125 | ||
|
126 | def GetMBStringWidth(s) | |
|
127 | #Multi-byte version of GetStringWidth() | |
|
128 | l=0 | |
|
129 | cw=@CurrentFont['cw'] | |
|
130 | nb=s.length | |
|
131 | i=0 | |
|
132 | while(i<nb) | |
|
133 | c=s[i] | |
|
134 | if(c<128) | |
|
135 | l+=cw[c.chr] if cw[c.chr] | |
|
136 | i+=1 | |
|
137 | else | |
|
138 | l+=1000 | |
|
139 | i+=2 | |
|
140 | end | |
|
141 | end | |
|
142 | return l*@FontSize/1000 | |
|
143 | end | |
|
144 | ||
|
145 | def MultiCell(w,h,txt,border=0,align='L',fill=0) | |
|
146 | if(@CurrentFont['type']=='Type0') | |
|
147 | MBMultiCell(w,h,txt,border,align,fill) | |
|
148 | else | |
|
149 | super(w,h,txt,border,align,fill) | |
|
150 | end | |
|
151 | end | |
|
152 | ||
|
153 | def MBMultiCell(w,h,txt,border=0,align='L',fill=0) | |
|
154 | #Multi-byte version of MultiCell() | |
|
155 | cw=@CurrentFont['cw'] | |
|
156 | if(w==0) | |
|
157 | w=@w-@rMargin-@x | |
|
158 | end | |
|
159 | wmax=(w-2*@cMargin)*1000/@FontSize | |
|
160 | s=txt.gsub("\r",'') | |
|
161 | nb=s.length | |
|
162 | if(nb>0 and s[nb-1]=="\n") | |
|
163 | nb-=1 | |
|
164 | end | |
|
165 | b=0 | |
|
166 | if(border) | |
|
167 | if(border==1) | |
|
168 | border='LTRB' | |
|
169 | b='LRT' | |
|
170 | b2='LR' | |
|
171 | else | |
|
172 | b2='' | |
|
173 | if(border.to_s.index('L')) | |
|
174 | b2+='L' | |
|
175 | end | |
|
176 | if(border.to_s.index('R')) | |
|
177 | b2+='R' | |
|
178 | end | |
|
179 | b=border.to_s.index('T') ? b2+'T' : b2 | |
|
180 | end | |
|
181 | end | |
|
182 | sep=-1 | |
|
183 | i=0 | |
|
184 | j=0 | |
|
185 | l=0 | |
|
186 | nl=1 | |
|
187 | while(i<nb) | |
|
188 | #Get next character | |
|
189 | c=s[i] | |
|
190 | #Check if ASCII or MB | |
|
191 | ascii=(c<128) | |
|
192 | if(c.chr=="\n") | |
|
193 | #Explicit line break | |
|
194 | Cell(w,h,s[j,i-j],b,2,align,fill) | |
|
195 | i+=1 | |
|
196 | sep=-1 | |
|
197 | j=i | |
|
198 | l=0 | |
|
199 | nl+=1 | |
|
200 | if(border and nl==2) | |
|
201 | b=b2 | |
|
202 | end | |
|
203 | next | |
|
204 | end | |
|
205 | if(!ascii) | |
|
206 | sep=i | |
|
207 | ls=l | |
|
208 | elsif(c==' ') | |
|
209 | sep=i | |
|
210 | ls=l | |
|
211 | end | |
|
212 | l+=ascii ? (cw[c.chr] || 0) : 1100 | |
|
213 | if(l>wmax) | |
|
214 | #Automatic line break | |
|
215 | if(sep==-1 or i==j) | |
|
216 | if(i==j) | |
|
217 | i+=ascii ? 1 : 3 | |
|
218 | end | |
|
219 | Cell(w,h,s[j,i-j],b,2,align,fill) | |
|
220 | else | |
|
221 | Cell(w,h,s[j,sep-j],b,2,align,fill) | |
|
222 | i=(s[sep]==' ') ? sep+1 : sep | |
|
223 | end | |
|
224 | sep=-1 | |
|
225 | j=i | |
|
226 | l=0 | |
|
227 | # nl+=1 | |
|
228 | if(border and nl==2) | |
|
229 | b=b2 | |
|
230 | end | |
|
231 | else | |
|
232 | i+=ascii ? 1 : 3 | |
|
233 | end | |
|
234 | end | |
|
235 | #Last chunk | |
|
236 | if(border and not border.to_s.index('B').nil?) | |
|
237 | b+='B' | |
|
238 | end | |
|
239 | Cell(w,h,s[j,i-j],b,2,align,fill) | |
|
240 | @x=@lMargin | |
|
241 | end | |
|
242 | ||
|
243 | def Write(h,txt,link='') | |
|
244 | if(@CurrentFont['type']=='Type0') | |
|
245 | MBWrite(h,txt,link) | |
|
246 | else | |
|
247 | super(h,txt,link) | |
|
248 | end | |
|
249 | end | |
|
250 | ||
|
251 | def MBWrite(h,txt,link) | |
|
252 | #Multi-byte version of Write() | |
|
253 | cw=@CurrentFont['cw'] | |
|
254 | w=@w-@rMargin-@x | |
|
255 | wmax=(w-2*@cMargin)*1000/@FontSize | |
|
256 | s=txt.gsub("\r",'') | |
|
257 | nb=s.length | |
|
258 | sep=-1 | |
|
259 | i=0 | |
|
260 | j=0 | |
|
261 | l=0 | |
|
262 | nl=1 | |
|
263 | while(i<nb) | |
|
264 | #Get next character | |
|
265 | c=s[i] | |
|
266 | #Check if ASCII or MB | |
|
267 | ascii=(c<128) | |
|
268 | if(c.chr=="\n") | |
|
269 | #Explicit line break | |
|
270 | Cell(w,h,s[j,i-j],0,2,'',0,link) | |
|
271 | i+=1 | |
|
272 | sep=-1 | |
|
273 | j=i | |
|
274 | l=0 | |
|
275 | if(nl==1) | |
|
276 | @x=@lMargin | |
|
277 | w=@w-@rMargin-@x | |
|
278 | wmax=(w-2*@cMargin)*1000/@FontSize | |
|
279 | end | |
|
280 | nl+=1 | |
|
281 | next | |
|
282 | end | |
|
283 | if(!ascii or c==' ') | |
|
284 | sep=i | |
|
285 | end | |
|
286 | l+=ascii ? cw[c.chr] : 1100 | |
|
287 | if(l>wmax) | |
|
288 | #Automatic line break | |
|
289 | if(sep==-1 or i==j) | |
|
290 | if(@x>@lMargin) | |
|
291 | #Move to next line | |
|
292 | @x=@lMargin | |
|
293 | @y+=h | |
|
294 | w=@w-@rMargin-@x | |
|
295 | wmax=(w-2*@cMargin)*1000/@FontSize | |
|
296 | i+=1 | |
|
297 | nl+=1 | |
|
298 | next | |
|
299 | end | |
|
300 | if(i==j) | |
|
301 | i+=ascii ? 1 : 3 | |
|
302 | end | |
|
303 | Cell(w,h,s[j,i-j],0,2,'',0,link) | |
|
304 | else | |
|
305 | Cell(w,h,s[j,sep-j],0,2,'',0,link) | |
|
306 | i=(s[sep]==' ') ? sep+1 : sep | |
|
307 | end | |
|
308 | sep=-1 | |
|
309 | j=i | |
|
310 | l=0 | |
|
311 | if(nl==1) | |
|
312 | @x=@lMargin | |
|
313 | w=@w-@rMargin-@x | |
|
314 | wmax=(w-2*@cMargin)*1000/@FontSize | |
|
315 | end | |
|
316 | nl+=1 | |
|
317 | else | |
|
318 | i+=ascii ? 1 : 3 | |
|
319 | end | |
|
320 | end | |
|
321 | #Last chunk | |
|
322 | if(i!=j) | |
|
323 | Cell(l/1000*@FontSize,h,s[j,i-j],0,0,'',0,link) | |
|
324 | end | |
|
325 | end | |
|
326 | ||
|
327 | private | |
|
328 | ||
|
329 | def putfonts() | |
|
330 | nf=@n | |
|
331 | @diffs.each do |diff| | |
|
332 | #Encodings | |
|
333 | newobj() | |
|
334 | out('<</Type /Encoding /BaseEncoding /WinAnsiEncoding /Differences ['+diff+']>>') | |
|
335 | out('endobj') | |
|
336 | end | |
|
337 | # mqr=get_magic_quotes_runtime() | |
|
338 | # set_magic_quotes_runtime(0) | |
|
339 | @FontFiles.each_pair do |file, info| | |
|
340 | #Font file embedding | |
|
341 | newobj() | |
|
342 | @FontFiles[file]['n']=@n | |
|
343 | if(defined('FPDF_FONTPATH')) | |
|
344 | file=FPDF_FONTPATH+file | |
|
345 | end | |
|
346 | size=filesize(file) | |
|
347 | if(!size) | |
|
348 | Error('Font file not found') | |
|
349 | end | |
|
350 | out('<</Length '+size) | |
|
351 | if(file[-2]=='.z') | |
|
352 | out('/Filter /FlateDecode') | |
|
353 | end | |
|
354 | out('/Length1 '+info['length1']) | |
|
355 | unless info['length2'].nil? | |
|
356 | out('/Length2 '+info['length2']+' /Length3 0') | |
|
357 | end | |
|
358 | out('>>') | |
|
359 | f=fopen(file,'rb') | |
|
360 | putstream(fread(f,size)) | |
|
361 | fclose(f) | |
|
362 | out('endobj') | |
|
363 | end | |
|
364 | # | |
|
365 | # set_magic_quotes_runtime(mqr) | |
|
366 | # | |
|
367 | @fonts.each_pair do |k, font| | |
|
368 | #Font objects | |
|
369 | newobj() | |
|
370 | @fonts[k]['n']=@n | |
|
371 | out('<</Type /Font') | |
|
372 | if(font['type']=='Type0') | |
|
373 | putType0(font) | |
|
374 | else | |
|
375 | name=font['name'] | |
|
376 | out('/BaseFont /'+name) | |
|
377 | if(font['type']=='core') | |
|
378 | #Standard font | |
|
379 | out('/Subtype /Type1') | |
|
380 | if(name!='Symbol' and name!='ZapfDingbats') | |
|
381 | out('/Encoding /WinAnsiEncoding') | |
|
382 | end | |
|
383 | else | |
|
384 | #Additional font | |
|
385 | out('/Subtype /'+font['type']) | |
|
386 | out('/FirstChar 32') | |
|
387 | out('/LastChar 255') | |
|
388 | out('/Widths '+(@n+1)+' 0 R') | |
|
389 | out('/FontDescriptor '+(@n+2)+' 0 R') | |
|
390 | if(font['enc']) | |
|
391 | if !font['diff'].nil? | |
|
392 | out('/Encoding '+(nf+font['diff'])+' 0 R') | |
|
393 | else | |
|
394 | out('/Encoding /WinAnsiEncoding') | |
|
395 | end | |
|
396 | end | |
|
397 | end | |
|
398 | out('>>') | |
|
399 | out('endobj') | |
|
400 | if(font['type']!='core') | |
|
401 | #Widths | |
|
402 | newobj() | |
|
403 | cw=font['cw'] | |
|
404 | s='[' | |
|
405 | 32.upto(255) do |i| | |
|
406 | s+=cw[i.chr]+' ' | |
|
407 | end | |
|
408 | out(s+']') | |
|
409 | out('endobj') | |
|
410 | #Descriptor | |
|
411 | newobj() | |
|
412 | s='<</Type /FontDescriptor /FontName /'+name | |
|
413 | font['desc'].each_pair do |k, v| | |
|
414 | s+=' /'+k+' '+v | |
|
415 | end | |
|
416 | file=font['file'] | |
|
417 | if(file) | |
|
418 | s+=' /FontFile'+(font['type']=='Type1' ? '' : '2')+' '+@FontFiles[file]['n']+' 0 R' | |
|
419 | end | |
|
420 | out(s+'>>') | |
|
421 | out('endobj') | |
|
422 | end | |
|
423 | end | |
|
424 | end | |
|
425 | end | |
|
426 | ||
|
427 | def putType0(font) | |
|
428 | #Type0 | |
|
429 | out('/Subtype /Type0') | |
|
430 | out('/BaseFont /'+font['name']+'-'+font['CMap']) | |
|
431 | out('/Encoding /'+font['CMap']) | |
|
432 | out('/DescendantFonts ['+(@n+1).to_s+' 0 R]') | |
|
433 | out('>>') | |
|
434 | out('endobj') | |
|
435 | #CIDFont | |
|
436 | newobj() | |
|
437 | out('<</Type /Font') | |
|
438 | out('/Subtype /CIDFontType0') | |
|
439 | out('/BaseFont /'+font['name']) | |
|
440 | out('/CIDSystemInfo <</Registry '+textstring('Adobe')+' /Ordering '+textstring(font['registry']['ordering'])+' /Supplement '+font['registry']['supplement'].to_s+'>>') | |
|
441 | out('/FontDescriptor '+(@n+1).to_s+' 0 R') | |
|
442 | if(font['CMap']=='ETen-B5-H') | |
|
443 | w='13648 13742 500' | |
|
444 | elsif(font['CMap']=='GBK-EUC-H') | |
|
445 | w='814 907 500 7716 [500]' | |
|
446 | else | |
|
447 | # ActionController::Base::logger.debug font['cw'].keys.sort.join(' ').to_s | |
|
448 | # ActionController::Base::logger.debug font['cw'].values.join(' ').to_s | |
|
449 | w='1 [' | |
|
450 | font['cw'].keys.sort.each {|key| | |
|
451 | w+=font['cw'][key].to_s + " " | |
|
452 | # ActionController::Base::logger.debug key.to_s | |
|
453 | # ActionController::Base::logger.debug font['cw'][key].to_s | |
|
454 | } | |
|
455 | w +=']' | |
|
456 | end | |
|
457 | out('/W ['+w+']>>') | |
|
458 | out('endobj') | |
|
459 | #Font descriptor | |
|
460 | newobj() | |
|
461 | out('<</Type /FontDescriptor') | |
|
462 | out('/FontName /'+font['name']) | |
|
463 | out('/Flags 6') | |
|
464 | out('/FontBBox [0 -200 1000 900]') | |
|
465 | out('/ItalicAngle 0') | |
|
466 | out('/Ascent 800') | |
|
467 | out('/Descent -200') | |
|
468 | out('/CapHeight 800') | |
|
469 | out('/StemV 50') | |
|
470 | out('>>') | |
|
471 | out('endobj') | |
|
472 | end | |
|
473 | end |
General Comments 0
You need to be logged in to leave comments.
Login now