home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / pdf_font.ps < prev    next >
Text File  |  2000-12-05  |  25KB  |  778 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: pdf_font.ps,v 1.12.2.2 2000/11/28 19:03:16 alexcher Exp $
  19. % pdf_font.ps
  20. % PDF font operations.
  21.  
  22. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  23. .currentglobal true .setglobal
  24. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  25. GS_PDF_ProcSet begin
  26. pdfdict begin
  27.  
  28. % We cache the PostScript font in an additional element of the
  29. % font resource dictionary, called PSFont.
  30.  
  31. % ---------------- Encodings ---------------- %
  32.  
  33. % Apply a list of differences to an Encoding.
  34. % Note that the differences may cause the array to grow.
  35. /updateencoding {    % <encoding> <differences> updateencoding <enc'>
  36.     % Calculate the length of the result.
  37.   exch 0 2 index {
  38.     dup type /nametype ne { exch pop } { pop 1 add } ifelse
  39.   } forall
  40.   1 index length .max array dup 0 4 -1 roll putinterval
  41.   exch 0 exch {
  42.         % Stack: enc' code element
  43.     dup type /nametype ne
  44.       { exch pop }
  45.       { 3 copy put pop 1 add }
  46.     ifelse
  47.   } forall pop
  48. } bdef
  49.  
  50. % Get the Encoding for a font.
  51. /getencoding        % <base-encoding> <font-resource> getencoding <enc>
  52.  { /Encoding knownoget
  53.     { dup type /nametype eq
  54.        {
  55.          % The published PDF specification says the Encoding name
  56.          % "must be" one of the 3 predefined Encodings, implying
  57.          % that an error should occur if it isn't.  However, Acrobat
  58.          % Reader simply ignores unknown names, and since there are
  59.          % some buggy applications that rely on this, we do the same.
  60.  
  61.          dup dup dup /MacRomanEncoding eq
  62.          exch /MacExpertEncoding eq or 
  63.          exch /WinAnsiEncoding eq or
  64.            { exch pop findencoding
  65.            }
  66.            { pop
  67.            }
  68.          ifelse
  69.        }
  70.        { dup /BaseEncoding knownoget
  71.       { findencoding 3 -1 roll pop exch
  72.       }
  73.      if
  74.      /Differences knownoget { updateencoding } if
  75.        }
  76.       ifelse
  77.     }
  78.    if
  79.  } bdef
  80.  
  81. % Rename a font with a generated name.
  82. /renamefont {        % <fontdict> renamefont <font'>
  83.   dup /FontName 2 copy get genfontname dup 5 1 roll put definefont
  84. } bind def
  85.  
  86. % Adjust a font according to the Encoding and Widths in the font resource.
  87. /adjustfont {        % <font-resource> <font> adjustfont <font'>
  88.         % Hack required by the PDF specification: if the
  89.         % font resource has Subtype = /TrueType but the actual
  90.         % (installed) font is not a TrueType font, ignore the
  91.         % Encoding in the font resource.
  92.   1 index /Subtype oget /TrueType eq
  93.   1 index /FontType get 42 ne and {
  94.     null
  95.   } {
  96.     getfontencoding
  97.   } ifelse
  98.   getfontmetrics 4 -1 roll pop .updatefont { renamefont } if
  99. } bind def
  100.  
  101. % Get the (possibly modified) encoding of a font.
  102. /getfontencoding {    % <font-resource> <font> getfontencoding
  103.             %   <font-resource> <font> <Encoding|null>
  104.   1 index /Encoding known {
  105.     dup /Encoding .knownget { 2 index getencoding } { null } ifelse
  106.   } {
  107.     null
  108.   } ifelse
  109. } bdef
  110.  
  111. % Get the metrics of a font, if specified.
  112. /getfontmetrics {    % <font-resource> <font> <Encoding|null> getfontmetrics
  113.             %   <font-resource> <font> <Encoding|null>
  114.             %   <Metrics|null>
  115.   2 index /Widths known {
  116.     dup null eq { pop dup /Encoding get } if
  117.     4 dict begin
  118.       /Encoding exch def
  119.       /Metrics Encoding length dict def
  120.       exch
  121.       dup /Widths oget /Widths exch def
  122.         % Stack: font font-res
  123.         % Note that widths are always based on a 1000-unit
  124.         % character space, but the FontMatrix may specify
  125.         % some other scale factor.  Compensate for this here,
  126.         % by scaling the Widths if necessary.
  127.       0.001 2 index /FontMatrix get 0 get div
  128.         % Stack: font font-res mscale
  129.       1 index /FirstChar oget dup 1 4 index /LastChar oget
  130.        {    % Stack: font font-res mscale first-char index
  131.      Encoding 1 index get
  132.      Widths 2 index 4 index sub get
  133.          % Stack: font font-res mscale first-char index charname width
  134.      4 index mul
  135.         % There is a hack here to deal with encodings where the
  136.         % same character appears more than once, because the Metrics
  137.         % dictionary works by character name, not by character code.
  138.         % Because of this, we can't deal with Width vectors that
  139.         % specify different widths for the same character name
  140.         % appearing multiple times in the Encoding.
  141.      Metrics 2 index .knownget not { 0 } if 0 ne {
  142.        pop pop
  143.      } {
  144.         % Work around a bug in pdfTeX, which can generate Encoding
  145.         % vectors containing nulls.
  146.        1 index null ne {
  147.          Metrics 3 1 roll put
  148.        } {
  149.          pop pop
  150.        } ifelse
  151.      }
  152.      ifelse pop
  153.        }
  154.       for pop
  155.         % Now fill in the MissingWidth for any encoded characters
  156.         % that aren't in Metrics already.  Note that built-in
  157.         % fonts may have Widths/FirstChar/LastChar but no
  158.         % FontDescriptor, so we must check for this.
  159.         % Stack: font font-res mscale
  160.       1 index /FontDescriptor knownoget {
  161.     Metrics exch
  162.     /MissingWidth knownoget { 2 index mul } { 0 } ifelse exch
  163.     Encoding {
  164.         % Stack: font font-res mscale missing-width metrics charname
  165.         % Work around the abovementioned pdfTeX bug.
  166.       dup null ne {
  167.         2 copy known not { 2 copy 4 index put } if pop
  168.       } {
  169.         pop
  170.       } ifelse
  171.     } forall pop pop pop
  172.       } {
  173.     pop
  174.       } ifelse
  175.     exch Encoding Metrics end
  176.   } {
  177.     null
  178.   } ifelse
  179. } bdef
  180.  
  181. % ---------------- Descriptors ---------------- %
  182.  
  183. % Partial descriptors for the 14 built-in fonts.  Note that
  184. % from PDF 1.1 to PDF 1.2, the meaning of the Flag 6 in the FontDescriptor
  185. % object has undergone a subtle change in its meaning which has serious
  186. % consequences for searching with Acrobat:
  187. % In PDF 1.1, the flag meant: Font has StandardEncoding
  188. % In PDF 1.2, the flag means: Font has (subset of) StandardRomanCharacterSet
  189. /standardfontdescriptors mark
  190.   /Courier mark /Flags 16#23 .dicttomark
  191.   /Courier-Oblique 1 index
  192.   /Courier-Bold 1 index
  193.   /Courier-BoldOblique 1 index
  194.   /Helvetica mark /Flags 16#20 .dicttomark
  195.   /Helvetica-Oblique 1 index
  196.   /Helvetica-Bold 1 index
  197.   /Helvetica-BoldOblique 1 index
  198.   /Times-Roman mark /Flags 16#22 .dicttomark
  199.   /Times-Bold 1 index
  200.   /Times-Italic mark /Flags 16#62 .dicttomark
  201.   /Times-BoldItalic 1 index
  202.   /Symbol mark /Flags 16#4 .dicttomark
  203.   /ZapfDingbats 1 index
  204. .dicttomark readonly def
  205.  
  206. % ---------------- Utilities ---------------- %
  207.  
  208. % Fabricate a font name by adding ?'s on the end.
  209. /genfontname        % <name> genfontname <name>
  210.  { dup length string cvs
  211.     { (?) concatstrings
  212.       dup cvn FontDirectory exch known not { cvn exit } if
  213.     }
  214.    loop
  215.  } bdef
  216.  
  217. % Find a font, and adjust its encoding if necessary.
  218. /.pdfdfndict mark
  219.   /defaultfontname /Helvetica
  220. .dicttomark readonly def
  221. /pdffindfont {        % <font-resource> <fontname> pdffindfont <font>
  222.         % If the font isn't available, synthesize one based on
  223.         % its descriptor.
  224.   dup /Font resourcestatus {
  225.     pop pop findfont
  226.   } {
  227.     1 index /FontDescriptor knownoget {
  228.         % Stack: font-res fontname fontdesc
  229.       dup /Flags oget
  230.       dup 16#40 and -6 bitshift        % 1, oblique/italic
  231.       1 index 16#40000 and -17 bitshift add    % 2, bold
  232.       exch 16#2 and 2 bitshift add    % 8, serif
  233.         % We should look at the fixed flag, too.
  234.         % Stack: font-res fontname fontdesc properties
  235.       1 index /FontName oget exch
  236.         % Analyzes font name and extract "Narrow" property
  237.         % which is not described by the FontDescriptor Flags.
  238.       0 2 index .fontnameproperties 4 and or
  239.         % Rebind the default font name to Helvetica so that
  240.         % fonts with no properties are handled correctly.
  241.       //.pdfdfndict begin .substitutefontname end
  242.         % Stack: font-res fontname fontdesc substname|null
  243.       Fontmap 1 index known not {
  244.         % No available good substitution, use the standard one.
  245.     pop 1 index .substitutefont
  246.       } if
  247.       QUIET not {
  248.     (Substituting font ) print dup =only
  249.     ( for ) print 2 index =only (.) = flush
  250.       } if
  251.       3 -1 roll pop findfont
  252.         % Stack: font-res fontdesc font
  253.         % If this is a small-caps font, replace the CharString
  254.         % entries for a..z.
  255.       exch /Flags oget 16#20000 and 0 ne {
  256.     true .copyfontdict
  257.     dup /CharStrings 2 copy get dup length dict .copydict
  258.     4 index /FirstChar get 97 .max
  259.     5 index /LastChar get 122 .min 1 exch {
  260.         % Stack: font-res font' font' /CharStrings charstrings code
  261.         % Note that this only remaps a-z, not accented characters.
  262.       5 index /Widths oget 1 index 7 index /FirstChar get sub oget
  263.       1 string dup 0 5 -1 roll put
  264.         % Stack: font-res font' font' /CharStrings charstrings code
  265.         %   width (x)
  266.       2 index exch dup cvn exch
  267.       dup 0 2 copy get 32 sub put 4 -1 roll {
  268.             % Stack: operand (X) width
  269.         0 setcharwidth exch pop
  270.         currentfont /FontMatrix get matrix invertmatrix concat
  271.         0.7 dup scale 0 0 moveto show
  272.       } /exec cvx 4 packedarray cvx put
  273.     } for put
  274.     renamefont
  275.       } if
  276.     } {
  277.         % No descriptor available, use the default algorithm.
  278.       findfont
  279.     } ifelse
  280.   } ifelse adjustfont
  281. } bdef
  282.  
  283. % ---------------- Type 1 fonts ---------------- %
  284.  
  285. /buildType1        % <Type1-font-resource> buildType1 <font>
  286.  { dup /BaseFont get pdffindfont
  287.  } bdef
  288.  
  289. % The state dictionary for the embedded Type 1 font reading procedure
  290. % has the following keys and values:
  291. %    data - stream (filter)
  292. %    buffer, buffer2 - string
  293. %    hexify - procedure to convert buffer to hex if needed
  294. %    leftstr - string containing (non-negative) integer
  295. %    sectionstr - string containing a character 0 .. 2
  296. %    stream - (stream) dictionary
  297. %    proc - procedure of the form {-dict- type1read}
  298. % When the procedure is executing, this dictionary is current.
  299. % leftstr and sectionstr are strings so that we can change their values
  300. % reliably in case the font executes a restore!
  301. % We also have to do something special about embedded fonts that
  302. % execute definefont more than once -- that is the function of topFontDict.
  303.  
  304. % Read an embedded Type 1 font.
  305. /readfontfilter {    % <proc> readfontfilter <filter>
  306.   0 () /SubFileDecode filter
  307. } bdef
  308. /readtype1dict 5 dict dup begin
  309.   /definefont {
  310.     dup topFontDict eq topFontDict null eq or {
  311.       dup wcheck not { dup length dict copy } if
  312.       exch pop savedFontName exch
  313.     } if
  314.     //systemdict /definefont get exec
  315.   } bdef
  316.   /eexec {
  317.         % Assume the font dictionary is on the top of the stack.
  318.     count 0 gt { /topFontDict 1 index cvlit store } if
  319.     55665 /eexecDecode filter
  320.     //systemdict begin readtype1dictcopy begin cvx stopped
  321.     currentdict readtype1dictcopy eq { end } if
  322.     currentdict //systemdict eq { end } if
  323.      { stop } if
  324.   } bdef
  325. end readonly def
  326. /readtype1 {        % <font-resource> <stream-dict> readtype1 <font>
  327.         % Read the definition, using a procedure-based filter
  328.         % that turns binary/hex conversion on and off
  329.         % at the right times.
  330.    1 index exch
  331.    PDFfile fileposition 3 1 roll
  332.    10 dict begin
  333.      /leftstr (          ) 10 string copy def
  334.        dup /Length1 oget leftstr cvs pop
  335.      /sectionstr <00> 1 string copy def
  336.      /stream 1 index def
  337.      true resolvestream /data exch def
  338.      /buffer 1000 string def        % arbitrary
  339.      /buffer2 buffer length 2.1 div cvi 1 sub string def
  340.      /hexify /buf2hex load def
  341.    currentdict end
  342.    /type1read cvx 2 array astore cvx dup 0 get /proc 2 index put
  343.    readfontfilter
  344.         % Some buggy embedded fonts leave extra junk on the stack,
  345.         % so we have to make a closure that records the stack depth
  346.         % in a fail-safe way.
  347.    //systemdict begin
  348.         % The PDF specification is somewhat muddy about whether
  349.         % an embedded font's name is supposed to be the BaseFont
  350.         % from the Font object or the FontName from the descriptor.
  351.         % Acrobat Distiller requires the former.  Save away the
  352.         % name so we can substitute it at definefont time.
  353.    //readtype1dict dup length 3 add dict copy begin
  354.    1 index /BaseFont oget /savedFontName exch def
  355.    /topFontDict null def
  356.    /readtype1dictcopy currentdict def
  357.     { run } aload pop count 1 sub 2 packedarray cvx exec
  358.    end end
  359.    count exch sub { pop } repeat
  360.    PDFfile 3 -1 roll setfileposition
  361.    /BaseFont oget findfont
  362.    adjustfont
  363.  } bdef
  364.  
  365. % Execute the appropriate reading procedure.
  366. /type1read        % <dict> type1read <string>
  367.  { begin leftstr cvi
  368.     { type1read1 type1read2 type1read3 } sectionstr 0 get get exec
  369.    (          ) leftstr copy cvs pop end
  370.  } bdef
  371.  
  372. % Read the next block of data into the buffer.
  373. /type1readdata        % <left> <buffer> type1readdata <substring> <left'>
  374.  { 0 2 index 2 index length min getinterval
  375.         % Adobe requires readstring to signal an error if given
  376.         % an empty string.  Work around this nonsense here.
  377.    dup length 0 ne { data exch readstring pop } if
  378.    dup length 3 -1 roll exch sub
  379.    DEBUG
  380.     { dup =only ( read ) print
  381.       1 index length =only (: ) print
  382.       1 index == flush
  383.     } if
  384.  } bdef
  385.  
  386. % Read the next block of the initial text portion.
  387. /type1read1 {        % <left> type1read1 <string> <left'>
  388.   DEBUG { (read1 ) print } if
  389.   dup 0 eq {
  390.     pop sectionstr 0 1 put
  391.     stream /Length2 oget
  392.             % Determine whether to hexify data for eexec.
  393.     dup 8 lt {
  394.       type1read2    % Hexify.
  395.     } {
  396.       DEBUG { (read2 ) print } if
  397.       buffer2 type1readdata exch
  398.             % The check doesn't have to be 100% accurate:
  399.             % hexifying is always OK.
  400.       dup 0 8 getinterval 0 exch { or } forall
  401.       128 ge {
  402.     /hexify { } store
  403.     /buffer2 buffer def    % We don't need an intermediate buffer.
  404.       } if hexify exch
  405.     } ifelse
  406.   } {
  407.     buffer type1readdata
  408.   } ifelse
  409. } bdef
  410.  
  411. % Convert a string from binary to hex for eexec.
  412. % Free variables: buffer.
  413. /buf2hex {        % <string> buf2hex <hexstring>
  414.   buffer /ASCIIHexEncode filter dup 3 -1 roll writestring closefile
  415.   buffer (>) search pop exch pop exch pop
  416. } bdef
  417.  
  418. % Read the next block of the encrypted portion.
  419. /type1trailer
  420. (0000000000000000000000000000000000000000000000000000000000000000\n\
  421. 0000000000000000000000000000000000000000000000000000000000000000\n\
  422. 0000000000000000000000000000000000000000000000000000000000000000\n\
  423. 0000000000000000000000000000000000000000000000000000000000000000\n\
  424. 0000000000000000000000000000000000000000000000000000000000000000\n\
  425. 0000000000000000000000000000000000000000000000000000000000000000\n\
  426. 0000000000000000000000000000000000000000000000000000000000000000\n\
  427. 0000000000000000000000000000000000000000000000000000000000000000\n\
  428. cleartomark\n)
  429. readonly def
  430. /type1read2 {        % <left> type1read2 <string> <left'>
  431.   DEBUG { (read2 ) print } if
  432.    dup 0 eq
  433.     { pop sectionstr 0 2 put
  434.       stream /Length3 oget
  435.       dup 0 eq
  436.        { DEBUG { (trailer ) print } if
  437.      type1trailer exch
  438.        }
  439.        { type1read3
  440.        }
  441.       ifelse
  442.     }
  443.     { buffer2 type1readdata exch hexify exch
  444.     }
  445.    ifelse
  446. } bdef
  447.  
  448. % Read the next block of the final text portion.
  449. % When finished, this procedure returns an empty string.
  450. /type1read3        % <left> type1read3 <string> <left'>
  451.  { DEBUG { (read3 ) print } if
  452.    buffer type1readdata
  453.  } bdef
  454.  
  455. % ---------------- Type 3 fonts ---------------- %
  456.  
  457. /.notdefEncoding 256 { /.notdef } repeat 256 packedarray def
  458.  
  459. /buildType3 {        % <Type3-font-resource> buildType3 <font>
  460.   8 dict begin
  461.     /FontType 3 def
  462.     /Resources 1 index /Resources knownoget { oforce } { 0 dict } ifelse def
  463.     /FontBBox 1 index /FontBBox get cvx def
  464.     /FontMatrix 1 index /FontMatrix oget def
  465.     /CharProcs 1 index /CharProcs oget def
  466.     1 index /Widths knownoget {
  467.       /Widths exch def
  468.       /FirstChar 1 index /FirstChar oget def
  469.       /LastChar 1 index /LastChar oget def
  470.     } if
  471.     /FontName 1 index /Name get genfontname def
  472.     /Encoding .notdefEncoding 2 index getencoding def
  473.         % We have to define BuildChar rather than BuildGlyph:
  474.         % there is no PDF equivalent of glyphshow, and we need
  475.         % the character code to access the Widths.
  476.     /BuildChar {
  477.         % Stack: font charcode
  478.       1 index begin 3 dict begin
  479.       /Font 3 -1 roll def /CharCode 1 index def
  480.       Encoding exch get CharProcs exch oget
  481.       PDFfile fileposition exch
  482.       false resolvestream
  483.         % Stack: filepos stream
  484.         % Don't let setgcolor set the color inside the BuildGlyph
  485.         % procedure, because this causes an /undefined error.
  486.       q null /FillColor gput null /StrokeColor gput
  487.       Font /Resources get exch pdfopdict .pdfruncontext
  488.       Q
  489.       PDFfile exch setfileposition
  490.       end end
  491.     } bdef
  492.     FontName currentdict end definefont exch pop
  493. } bdef
  494. /.adjustcharwidth {    % <wx> <wy> .adjustcharwidth <wx'> <wy'>
  495.   /Widths where {
  496.     begin
  497.     CharCode FirstChar ge CharCode LastChar le and {
  498.       exch pop Widths CharCode FirstChar sub get exch
  499.     } if end
  500.   } if
  501. } bdef
  502.  
  503. % ---------------- TrueType fonts ---------------- %
  504.  
  505. /TTfonts mark
  506.   /Arial /Helvetica
  507.   /Arial,Italic /Helvetica-Oblique
  508.   /Arial,Bold /Helvetica-Bold
  509.   /Arial,BoldItalic /Helvetica-BoldOblique
  510.   /CourierNew /Courier
  511.   /CourierNew,Bold /Courier-Bold
  512.   /TimesNewRoman /Times-Roman
  513.   /TimesNewRoman,Italic /Times-Italic
  514.   /TimesNewRoman,Bold /Times-Bold
  515.   /TimesNewRoman,BoldItalic /Times-BoldItalic
  516. .dicttomark readonly def
  517.  
  518. /buildTrueType {    % <TrueType-font-resource> buildTrueType <font>
  519.   dup /BaseFont get
  520.   dup TTfonts exch .knownget {
  521.     exch pop
  522.         % Hack required by the PDF specification: if the
  523.         % font resource has Subtype = /TrueType but the actual
  524.         % (installed) font is not a TrueType font, ignore the
  525.         % Encoding in the font resource.  However, all current
  526.         % versions of Acrobat Reader have the 14 base TrueType
  527.         % fonts built in, so this produces incorrect output for
  528.         % badly designed PDF files that specify these file names
  529.         % with /Subtype = /TrueType but no embedded definition.
  530.         % Compensate for this by removing the /Subtype key when
  531.         % looking up the font.
  532.     exch dup length dict copy dup /Subtype null put exch
  533.   } if pdffindfont
  534. } bdef
  535.  
  536. % Read an embedded TrueType font.
  537. /readtruetype {        % <font-resource> <stream-dict> readtruetype <font>
  538.         % This is much simpler than readtype1, because we don't
  539.         % have to deal with the tripartite .PFB format.
  540.   1 index exch
  541.   PDFfile fileposition 3 1 roll
  542.   true resolvestream readfontfilter
  543.         % Stack: filepos fontres stream
  544.   1 index /Subtype get /CIDFontType2 eq {
  545.     .loadttcidfont
  546.   } {
  547.     null 2 index getencoding .loadpdfttfont
  548.   } ifelse
  549.   exch pop
  550.   PDFfile 3 -1 roll setfileposition
  551.         % Ignore both the Encoding and the Widths.
  552.   exch pop
  553. } bdef
  554.  
  555. % ---------------- Type 0 fonts ---------------- %
  556.  
  557. % Predefine the known CMaps, but only create them on demand.
  558. /knownCMaps mark
  559.   /Identity-H { /Identity-H 0 makeIdentityCMap }
  560.   /Identity-V { /Identity-V 1 makeIdentityCMap }
  561. .dicttomark def
  562.  
  563. /makeIdentityCMap {        % <cmapname> <wmode> .makeIdentityCMap -
  564.   .currentglobal true .setglobal 3 1 roll
  565.   /CIDInit /ProcSet findresource begin
  566.   12 dict begin
  567.     begincmap
  568.     /WMode exch def
  569.     /CMapName exch def
  570.     /CIDSystemInfo 3 dict dup begin
  571.       /Registry (Adobe) def
  572.       /Ordering (Japan1) def
  573.       /Supplement 0 def
  574.     end def
  575.     %/CMapName (see above)
  576.     /CMapVersion 1 def
  577.     /CMapType 1 def
  578.     %WMode (see above)
  579.     % The PDF documentation says that these CMaps map CIDs
  580.     % "1 to 65,536".  This is a misprint for 0 to 65,535.
  581.     1 begincodespacerange
  582.     % <0001> <00ff>  <0100> <ffff>
  583.       <0000> <ffff>
  584.     endcodespacerange
  585.     1 begincidrange
  586.     % <0001> <00ff> 1   <0100> <ffff> 256
  587.       <0000> <ffff> 0
  588.     endcidrange
  589.     endcmap
  590.     CMapName currentdict /CMap defineresource
  591.     knownCMaps CMapName 2 index put
  592.   end        % CMap
  593.   end        % CIDInit ProcSet
  594.   exch .setglobal
  595. } bdef
  596.  
  597. /buildType0 {        % <Type0-font-resource> buildType0 <font>
  598.   dup /BaseFont get    % FontName
  599.   1 index /Encoding oget
  600.   dup type /nametype eq {
  601.     dup /CMap resourcestatus {
  602.     pop pop /CMap findresource
  603.     } {
  604.     knownCMaps 1 index .knownget
  605.       { exch pop exec } { /undefined signalerror } ifelse
  606.     } ifelse
  607.   } {
  608.     resolvestream
  609.   } ifelse        % CMap
  610.   [
  611.     3 index /DescendantFonts oget { exec resourcefont } forall
  612.   ]            % subfonts
  613.   composefont
  614.         % Stack: fontres font
  615.   1 index /FontMatrix knownoget {
  616.     dup aload pop true {0 0 1 0 0 1} {3 -1 roll eq and} forall {
  617.       1 index exch makefont exch /FontName get exch definefont
  618.     } {
  619.       pop
  620.     } ifelse
  621.   } if exch pop
  622. } bdef
  623.  
  624. % ---------------- CIDFontType0/2 fonts ---------------- %
  625.  
  626. % Insert metrics into a CIDFont, by saving the PDF W, W2, DW, and DW2
  627. % arrays and using a (currently very inefficient) CDevProc.
  628. /addCIDmetrics {    % <CIDFont-resource> <CIDFont> addCIDmetrics <fontdict>
  629.   dup length 5 add dict .copydict
  630.   dup /FID undef
  631.   dup /UniqueID undef
  632.   dup /XUID undef
  633.     % Insert the widths into the font.
  634.   {W W2 DW DW2} {
  635.     % Stack: pdfresource newfont key
  636.     2 index 1 index .knownget {
  637.       2 index 3 1 roll put
  638.     } {
  639.       pop
  640.     } ifelse
  641.   } forall
  642.   dup /CDevProc 1 index /CIDWProc load /exec load 3 packedarray cvx put
  643.   exch pop
  644. } bdef
  645.  
  646. % Apply the [D]W[2] metrics to a character before displaying.
  647. /CIDWProc {        % <w0x> <w0y> <llx> <lly> <urx> <ury>
  648.             %   <w1x> <w1y> <vx> <vy> <cid> <font> CIDWproc
  649.             %   <w0x'> ... <vy'>
  650.   begin
  651.     % Look up and apply [D]W
  652.   10 index
  653.   currentdict /DW .knownget { 1000 div exch pop } if
  654.   currentdict /W .knownget {
  655.     % Search the W array for the CID.
  656.     % ****** NOT IMPLEMENTED YET ******
  657.     pop
  658.   } if
  659.   0 13 2 roll 11 -2 roll pop pop
  660.     % Look up and apply [D]W2
  661.     % ****** NOT IMPLEMENTED YET ******
  662.   pop end
  663. } bdef
  664.  
  665. /buildCIDType0 {    % <CIDFontType0-font-resource> buildCIDType0 <font>
  666.   dup /BaseFont get /CIDFont findresource
  667.   addCIDmetrics dup /CIDFontName get exch /CIDFont defineresource
  668. } bdef
  669.  
  670. /buildCIDType2 {    % <CIDFontType2-font-resource> buildCIDType2 <font>
  671.   dup /BaseFont get /CIDFont findresource
  672.   addCIDmetrics
  673.     %****** Handle CIDToGIDMap ******
  674.   dup /BaseFont get exch /CIDFont defineresource
  675. } bdef
  676.  
  677. % ---------------- Other embedded fonts ---------------- %
  678.  
  679. /fontloadprocs mark
  680.   /Type1C /readType1C cvx
  681.   /CIDFontType0C /readCIDFontType0C cvx
  682. .dicttomark readonly def
  683.  
  684. % Read an embedded compressed font.
  685. /readType1C {        % <font-resource> <stream-dict> readType1C <font>
  686.   1 index exch
  687.   PDFfile fileposition 3 1 roll
  688.   dup true resolvestream dup readfontfilter
  689.         % Stack: pos resource streamdict stream filter
  690.   3 index /FontDescriptor oget /FontName oget
  691.   1 index FRD
  692.   closefile closefile pop
  693.   PDFfile 3 -1 roll setfileposition
  694.   /FontDescriptor oget /FontName oget findfont
  695.   adjustfont
  696. } bdef
  697.  
  698. % Read an embedded CFF CIDFont.
  699. /readCIDFontType0C {  % <font-resource> <stream-dict> readCIDFontType0C <font>
  700.   PDFfile fileposition 3 1 roll
  701.   dup true resolvestream dup readfontfilter
  702.         % Stack: pos resource streamdict stream filter
  703.   3 index /FontDescriptor oget /FontName oget
  704.   1 index FRD
  705.   closefile closefile pop
  706.   PDFfile 3 -1 roll setfileposition
  707.         % Some broken Adobe software produces PDF files in which
  708.         % the FontName of the CFF font and the FontName in the
  709.         % FontDescriptor don't match the BaseFont in the font.
  710.         % Use the FontName, rather than the BaseFont, here.
  711.   dup /FontDescriptor oget /FontName oget /CIDFont findresource
  712.   addCIDmetrics dup /CIDFontName get exch /CIDFont defineresource
  713. } bdef
  714.  
  715. % ---------------- Font lookup ---------------- %
  716.  
  717. /fonttypeprocs mark        % <font-resource> -proc- <font>
  718.   /Type0 /buildType0 cvx
  719.   /Type1 /buildType1 cvx
  720.   /MMType1 1 index
  721.   /Type3 /buildType3 cvx
  722.   /TrueType /buildTrueType cvx
  723.   /CIDFontType0 /buildCIDType0 cvx
  724.   /CIDFontType2 /buildCIDType2 cvx
  725. .dicttomark readonly def
  726.  
  727. /resourcefont            % <font-resource> resourcefont <font>
  728.  { dup /PSFont .knownget
  729.     { /FID .knownget { type /fonttype eq } { false } ifelse }
  730.     { false }
  731.    ifelse
  732.     { /PSFont get
  733.     }
  734.     { dup dup /FontDescriptor knownoget
  735.        {    % Stack: font-res font-res font-desc
  736.      dup /FontFile knownoget
  737.       { exch pop readtype1 true }
  738.       { dup /FontFile2 knownoget
  739.          { exch pop readtruetype true }
  740.          { /FontFile3 knownoget
  741.         { dup /Subtype get fontloadprocs exch get exec true }
  742.         { false }
  743.            ifelse
  744.          }
  745.         ifelse
  746.       }
  747.      ifelse
  748.        }
  749.        { false }
  750.       ifelse
  751.         % Stack: font-res font-res false
  752.         %  -or-: font-res font true
  753.       not
  754.        { dup /Subtype get fonttypeprocs exch get exec }
  755.       if
  756.       2 copy /PSFont exch put
  757.       exch pop
  758.     }
  759.    ifelse
  760.  } bdef
  761.  
  762. drawopdict begin
  763.   /d0 {
  764.     .adjustcharwidth setcharwidth
  765.   } bdef
  766.   /d1 {
  767.     6 -2 roll .adjustcharwidth 6 2 roll setcachedevice
  768.   } bdef
  769.   /Tf {
  770.     1 index Page /Font rget not { 1 index /invalidfont signalerror } if
  771.     resourcefont exch Tf pop
  772.   } bdef
  773. end
  774.  
  775. end            % pdfdict
  776. end            % GS_PDF_ProcSet
  777. .setglobal
  778.