home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / servis / ovladace / drivers / CPPLW9xNTgb.exe / CPP_L / Driver / ZSFONT.PS < prev    next >
Encoding:
Text File  |  1995-11-15  |  31.0 KB  |  1,011 lines
  1. %!PS-Adobe-3.0
  2. %%BeginFile: zsfont.ps
  3. %
  4. %   Copyright (c) 1994, 1995 Zenographics, Inc., Irvine, CA. All rights reserved
  5. %
  6. % ZScript font emulator
  7. %
  8. % This sub-system is designed to allow ZS to make 'placeholder' fonts
  9. % that substitute for the actual TrueType fonts that we are using. The
  10. % placeholders are actually Type3 fonts that are dolled up to make them
  11. % look like Type1's to any PostScript code that may make assumptions about
  12. % them when manipulating them.
  13. %
  14. % First, 'findfont' requests are hooked. The hook uses the special ZS operator
  15. % 'getplatformfontmetrics' to determine if the font is not loaded, but is
  16. % available in from the renderer. If not, pass thru to the old findfont 
  17. % handler. If the font is a platform font, create a placeholder font & return
  18. % to user as a bona fide font.
  19. %
  20. % Passthru fonts: This is a Type3 font with extra entries to make it look & act
  21. % like a Type 1 where necessary. As long as the font is not skewed, clipped or
  22. % shown at point sizes > 1000, the xfont mechanism in GS will render the
  23. % glyphs without actually calling the BuildChar/Glyph procedure in the font.
  24. % When BuildChar/Glyph is actually invoked by the GS font engine, it uses
  25. % another special ZS operator 'getglyphoutline' to enumerate the font outline
  26. % and print it to the display. Later, when Level 2 is implemented, we will
  27. % also keep the enumerated outlines in a cache for speed.
  28. %
  29. % The following required dictionary entries are created from the
  30. % getplatformfontmetrics call:
  31. %   Encoding
  32. %   CharStrings
  33. %   FontName
  34. %   FontBBox
  35. %   FontInfo.
  36. %           .FamilyName
  37. %           .FullName
  38. %           .Weight
  39. %           .ItalicAngle
  40. %           .UnderlinePosition
  41. %           .UnderlineThickness
  42. %           .isFixedPitch
  43. %
  44. % The following entries are "dummied out":
  45. %   FontType       = 3
  46. %   FontMatrix     = [0.001 0 0 0.001]
  47. %   PaintType      = 1
  48. %   FontInfo.
  49. %           .version = (001.00)
  50. %           .Notice  = ()
  51. %
  52. % The following entries contain the code/data needed to emulate a Type1 font:
  53. %   UniqueID       = special UID computed by font system
  54. %   BuildChar
  55. %   BuildGlyph
  56. %   Private
  57. %
  58. %
  59. % The following special ZS operators are used exclusively by this font 
  60. % mechanism:
  61. %
  62. % <fontname> getplatformfontmetrics  [mark <BBoxllx><BBoxlly><BBoxurx>
  63. %                                     <BBoxury><italicAngle>
  64. %                                     <underscoreSize><underscorePos>
  65. %                                     <isFixed>
  66. %                  %These are strs:   <Weight><familyName><fullName>
  67. %                                     <UniqueID>
  68. %                %first one is str:   <Private><sideBearingsAreTrue>
  69. %                                     <Encoding#> true]
  70. %                                  | [false]
  71. %    where the metrics are all in PS 1000 em square font units & conventions.
  72. %    Encoding# = 0 DingBats, 1 Symbol, 2 Std, 3 Win-ANSI
  73. %
  74. %
  75. % <Private><glyph> getglyphmetrics  [<xWidth><yWidth><llxBBox><llyBBox>
  76. %                                    <urxBBox><uryBBox> true]
  77. %                                 | [false]
  78. %
  79. %
  80. % <Private><glyph> getglyphoutline  [mark [<drawingOpAndData>]...
  81. %                                    <op count> true]
  82. %                                 | [false]
  83. %
  84. %   where a <drawingOpAndData> is:
  85. %     moveto: x y 0      (imlicit closepath of previous sub-path)
  86. %     lineto: x y 1
  87. %     curveto: x1 y1 x2 y2 x3 y3 2
  88. % 
  89. %     The first point to draw is on the top of the stack. There is an implicit
  90. %     closepath of the last sub-path after its points are drawn;
  91. %
  92. %   and <op count> is the count of <drawingOpandData> n-tuples. All units
  93. %   are in PostScript 1000 em square units. Moves are absolute.
  94. %
  95. %
  96. % mark [<UniqueID>...]  releaseUIDsexcept  --
  97. %
  98. %   This operator will release all the allocated UID slots, except for the
  99. %   ones enumerated. UIDs are not released when a font is deallocated, so
  100. %   the 'restore' operator must be hooked to call this operator with the list
  101. %   of all fonts in fontdict after the restore.
  102. %
  103. %
  104. % <Private><UniqueID><remap bool>  connectUIDtoprivate  --
  105. %
  106. %   This operator associates Private with UniqueID. If remap is true, UniqueID
  107. %   must already be defined; UniqueID will be redefined. In the case where
  108. %   remap is false, Private is mapped to UniqueID only if UniqueID isn't already
  109. %   defined. This operator is needed because of the following situation:
  110. %   if a user takes one of our fake type3 type1's, mofifies it,
  111. %   changes its UID, then does a definefont on it, we must advise the
  112. %   underlying font mechanism that the PrivateStr has another alias (UID).
  113. %   If we don't do this, the xfont mechanism will not work for the new
  114. %   font, since the unknown UID will not enable the xfont mechanism to find
  115. %   the PrivateStr. This is unfortunate since the above scenario is
  116. %   typical when changing a font's /Metrics entry.
  117. %
  118. % --  newUID  <int>
  119. %
  120. %   This operator allocates a new UID number from the same pool that the
  121. %   xfont mechanism draws from.
  122. %
  123. %
  124. % [<glyphName><sidebearing> true] | [false]  newxglyphsidebearing  --
  125. %
  126. %   If true, set a new sidebearing for the next xfont rendering that comes
  127. %   along. If false, disable waiting sidebearing.
  128. %
  129. %
  130. % --  replacefindfont  --     replace findfont operator with platform version
  131. /replacefindfont
  132.     {
  133.     systemdict begin
  134.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  135.         % findfont hook
  136.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  137.  
  138.         /__oldfindfont /findfont load def        % make a copy of old findfont
  139.  
  140.         % 1-time create fake CharStrings entries that we will use in fonts
  141.             % temp procedure to create CharStrings:
  142.             % <CharStringsName><char name array> proc --
  143.             {
  144.             dup length dict begin
  145.                     { {} readonly def}    %turn char name array into dict
  146.                 forall
  147.                 currentdict readonly
  148.             end
  149.             def
  150.             }
  151.  
  152.         /__StandardCharStrings
  153.         [
  154.         /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
  155.         /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
  156.         /grave/acute/circumflex/tilde/macron/breve/dotaccent/dieresis/ring/cedilla
  157.         /hungarumlaut/ogonek/caron/dotlessi/quotesingle/space/exclam/quotedbl
  158.         /numbersign/dollar/percent/ampersand/quotesingle/parenleft/parenright
  159.         /asterisk/plus/comma/hyphen/period/slash/zero/one/two/three/four/five/six
  160.         /seven/eight/nine/colon/semicolon/less/equal/greater/question/at/bracketleft
  161.         /backslash/bracketright/asciicircum/underscore/grave/braceleft/bar/braceright
  162.         /asciitilde/quotesinglbase/florin/quotedblbase/ellipsis/dagger/daggerdbl
  163.         /ansicircumflex/perthousand/Scaron/guilsinglleft/OE/quoteleft/quoteright
  164.         /quotedblleft/quotedblright/bullet/endash/emdash/ansitilde/trademark/scaron
  165.         /guilsinglright/oe/Ydieresis/ansispace/exclamdown/cent/sterling/currency/yen
  166.         /brokenbar/section/dieresis/copyright/ordfeminine/guillemotleft/logicalnot
  167.         /ansihyphen/registered/macron/degree/plusminus/twosuperior/threesuperior
  168.         /acute/mu/paragraph/periodcentered/cedilla/onesuperior/ordmasculine
  169.         /guillemotright/onequarter/onehalf/threequarters/questiondown/Agrave
  170.         /Aacute/Acircumflex/Atilde/Adieresis/Aring/AE/Ccedilla/Egrave/Eacute
  171.         /Ecircumflex/Edieresis/Igrave/Iacute/Icircumflex/Idieresis/Eth/Ntilde/Ograve
  172.         /Oacute/Ocircumflex/Otilde/Odieresis/multiply/Oslash/Ugrave/Uacute/Ucircumflex
  173.         /Udieresis/Yacute/Thorn/germandbls/agrave/aacute/acircumflex/atilde/adieresis
  174.         /aring/ae/ccedilla/egrave/eacute/ecircumflex/edieresis/igrave/iacute/icircumflex
  175.         /idieresis/eth/ntilde/ograve/oacute/ocircumflex/otilde/odieresis/divide/oslash
  176.         /ugrave/uacute/ucircumflex/udieresis/yacute/thorn/ydieresis
  177.         ]
  178.         2 index exec
  179.  
  180.         /__DingbatCharStrings
  181.         [
  182.         /space/a1/a2/a202/a3/a4/a5/a119/a118/a117/a11/a12/a13/a14/a15/a16/a105/a17
  183.         /a18/a19/a20/a21/a22/a23/a24/a25/a26/a27/a28/a6/a7/a8/a9/a10/a29/a30/a31/a32
  184.         /a33/a34/a35/a36/a37/a38/a39/a40/a41/a42/a43/a44/a45/a46/a47/a48/a49/a50/a51
  185.         /a52/a53/a54/a55/a56/a57/a58/a59/a60/a61/a62/a63/a64/a65/a66/a67/a68/a69/a70
  186.         /a71/a72/a73/a74/a203/a75/a204/a76/a77/a78/a79/a81/a82/a83/a84/a97/a98/a99
  187.         /a100/a101/a102/a103/a104/a106/a107/a108/a112/a111/a110/a109/a120/a121/a122
  188.         /a123/a124/a125/a126/a127/a128/a129/a130/a131/a132/a133/a134/a135/a136/a137
  189.         /a138/a139/a140/a141/a142/a143/a144/a145/a146/a147/a148/a149/a150/a151/a152
  190.         /a153/a154/a155/a156/a157/a158/a159/a160/a161/a163/a164/a196/a165/a192/a166
  191.         /a167/a168/a169/a170/a171/a172/a173/a162/a174/a175/a176/a177/a178/a179/a193
  192.         /a180/a199/a181/a200/a182/a201/a183/a184/a197/a185/a194/a198/a186/a195/a187
  193.         /a188/a189/a190/a191
  194.         ]
  195.         2 index exec
  196.  
  197.         /__SymbolCharStrings
  198.         [
  199.         /space/exclam/universal/numbersign/existential/percent/ampersand/suchthat
  200.         /parenleft/parenright/asteriskmath/plus/comma/minus/period/slash/zero/one
  201.         /two/three/four/five/six/seven/eight/nine/colon/semicolon/less/equal/greater
  202.         /question/congruent/Alpha/Beta/Chi/Delta/Epsilon/Phi/Gamma/Eta/Iota/theta1
  203.         /Kappa/Lambda/Mu/Nu/Omicron/Pi/Theta/Rho/Sigma/Tau/Upsilon/sigma1/Omega/Xi
  204.         /Psi/Zeta/bracketleft/therefore/bracketright/perpendicular/underscore
  205.         /radicalex/alpha/beta/chi/delta/epsilon/phi/gamma/eta/iota/phi1/kappa/lambda
  206.         /mu/nu/omicron/pi/theta/rho/sigma/tau/upsilon/omega1/omega/xi/psi/zeta
  207.         /braceleft/bar/braceright/similar/Upsilon1/minute/lessequal/fraction/infinity
  208.         /florin/club/diamond/heart/spade/arrowboth/arrowleft/arrowup/arrowright
  209.         /arrowdown/degree/plusminus/second/greaterequal/multiply/proportional
  210.         /partialdiff/bullet/divide/notequal/equivalence/approxequal/ellipsis
  211.         /arrowvertex/arrowhorizex/carriagereturn/aleph/Ifraktur/Rfraktur/weierstrass
  212.         /circlemultiply/circleplus/emptyset/intersection/union/propersuperset
  213.         /reflexsuperset/notsubset/propersubset/reflexsubset/element/notelement/angle
  214.         /gradient/registerserif/copyrightserif/trademarkserif/product/radical/dotmath
  215.         /logicalnot/logicaland/logicalor/arrowdblboth/arrowdblleft/arrowdblup/arrowdblright/arrowdbldown
  216.         /lozenge/angleleft/registersans/copyrightsans/trademarksans/summation
  217.         /parenlefttp/parenleftex/parenleftbt/bracketlefttp/bracketleftex/bracketleftbt
  218.         /bracelefttp/braceleftmid/braceleftbt/braceex/apple/angleright/integral
  219.         /integraltp/integralex/integralbt/parenrighttp/parenrightex/parenrightbt
  220.         /bracketrighttp/bracketrightex/bracketrightbt/bracerighttp/bracerightmid
  221.         /bracerightbt
  222.         ]
  223.         3 -1 roll exec
  224.  
  225.         % This dict is used as a marker when on the dict stack: If its uniquely-
  226.         % named entry is found by 'where,' we know the marker is on the dictstack
  227.         /__DefiningFontDict 1 dict dup /__DefiningFontMarker__ 0 put def
  228.  
  229.         % These fonts will be substituted for the other font if not found
  230.         /__KnownFontSubstitutes
  231.         mark
  232.         %Substitute_from_name [Substitute_to_name X-scale(opt) Y-scale(opt)]
  233.         /AvantGarde-Book [/Helvetica 0.916 1]
  234.         /AvantGarde-Demi [/Helvetica-Bold 0.916 1]
  235.         /AvantGarde-BookOblique [/Helvetica-Oblique 0.916 1]
  236.         /AvantGarde-DemiOblique [/Helvetica-BoldOblique 0.916 1]
  237.         /Bookman-Light [/Times-Roman 1.2 1]
  238.         /Bookman-Demi [/Times-Bold 1.2 1]
  239.         /Bookman-LightItalic [/Times-Italic 1.1 1]
  240.         /Bookman-DemiItalic [/Times-BoldItalic 1.2 1]
  241.         /Palatino-Roman [/Times-Roman 1.11 1]
  242.         /Palatino-Italic [/Times-Italic 1.11 1]
  243.         /Palatino-Bold [/Times-Bold 1.11 1]
  244.         /Palatino-BoldItalic [/Times-BoldItalic 1.11 1]
  245.         /NewCenturySchlbk-Roman [/Times-Roman 1.175 1]
  246.         /NewCenturySchlbk-Italic [/Times-Italic 1.175 1]
  247.         /NewCenturySchlbk-Bold [/Times-Bold 1.175 1]
  248.         /NewCenturySchlbk-BoldItalic [/Times-BoldItalic 1.175 1]
  249.         /Helvetica-Narrow [/Helvetica 0.82 1]
  250.         /Helvetica-Narrow-Bold [/Helvetica-Bold 0.82 1]
  251.         /Helvetica-Narrow-Oblique [/Helvetica-Oblique 0.82 1]
  252.         /Helvetica-Narrow-BoldOblique [/Helvetica-BoldOblique 0.82 1]
  253.         /ZapfChancery-MediumItalic /Times-Italic
  254.  
  255.         % create dictionary from pairs
  256.         counttomark 2 idiv dup dict    
  257.         begin
  258.                 {def}
  259.             repeat
  260.             pop
  261.             currentdict
  262.         end
  263.         readonly def
  264.  
  265.         % Manufacture new type3 font dict:
  266.         %key mark <BBoxllx><BBoxlly><BBoxurx><BBoxury><italicAngle>
  267.         % <underscoreSize><underscorePos><isFixed><Weight>
  268.         % <familyName><fullName><UniqueID><Private><SidebearingsTrue>
  269.         % <Encoding#>
  270.         %
  271.         % returns: key dict
  272.         %
  273.         /__buildfontfromplatformmetrics
  274.             {
  275.             14 dict begin                        % one bigger for definefont's FID
  276.                 /FontType 3 def
  277.                 /FontMatrix [0.001 0 0 0.001 0 0]readonly def
  278.                 dup 2 ge
  279.                     {pop __StandardCharStrings StandardEncoding}
  280.                 %else
  281.                     {
  282.                     1 eq
  283.                         {__SymbolCharStrings SymbolEncoding}
  284.                     %else equals 0
  285.                         {__DingbatCharStrings DingbatsEncoding}
  286.                     ifelse
  287.                     }
  288.                 ifelse
  289.                 /Encoding exch def
  290.                 /CharStrings exch def            % create this for PSCRIPT.DRV
  291.                 pop                                    % ignore SidebearingsTrue
  292.                 4 dict begin
  293.                     /PrivateStr exch def
  294.                     /RequestedName 14 index def
  295.                     currentdict
  296.                 end
  297.                 /Private exch def
  298.                 /UniqueID exch def
  299.                 /PaintType 0 def
  300.                 /StrokeWidth 0 def
  301.  
  302.                 9 dict begin
  303.                     /version (001.000)readonly def
  304.                     /Notice ()readonly def
  305.                     /FullName exch readonly def
  306.                     /FamilyName exch readonly def
  307.                     /Weight exch readonly def
  308.                     /isFixedPitch exch def
  309.                     /UnderlinePosition exch def
  310.                     /UnderlineThickness exch def
  311.                     /ItalicAngle exch def
  312.  
  313.                     currentdict                        %...dict
  314.                 end
  315.                 readonly
  316.                 /FontInfo exch def
  317.  
  318.                 4 array astore cvx readonly    % executable is bogus, but customary
  319.                 /FontBBox exch def
  320.  
  321.                 cleartomark                            %key mark [...] 
  322.  
  323.                 /FontName 1 index def            %key
  324.  
  325.                 % Font's BuildGlyph proc
  326.                 % <fontdict><glyphname>  BuildGlyph  --
  327.                 /BuildGlyph
  328.                     {
  329.                     exch
  330.                     begin
  331.                         dup /.notdef eq
  332.                             % nop if .notdef
  333.                             {pop}
  334.                         %else
  335.                             % get the glyph from platform, enumerate & render
  336.                             {                            %glyphname
  337.                             Private /PrivateStr get            %glyphname private
  338.                             dup type /nulltype eq
  339.                                 {
  340.                                 % This font is a stub for a pre-loaded fake Type 1.
  341.                                 % Get the real PrivateStr by doing a getplatformfontmetrics,
  342.                                 % then stick it into the font & force the UniqueID to
  343.                                 % be associated with the new PrivateStr.
  344.                                 pop
  345.                                 currentdict
  346.                                 Private begin
  347.                                     currentglobal currentdict gcheck setglobal
  348.                                      RequestedName getplatformfontmetrics not
  349.                                         {setglobal end end exch stop}
  350.                                     if
  351.                                     3 -1 roll /PrivateStr exch def
  352.                                     cleartomark
  353.                                     currentglobal
  354.                                     PrivateStr
  355.                                     exch /UniqueID known
  356.                                         {
  357.                                         dup UniqueID true connectUIDtoprivate
  358.                                         }
  359.                                     if
  360.                                 end
  361.                                 }
  362.                             if
  363.                             exch                                    %private glyphname
  364.                             2 copy
  365.                             getglyphmetrics        % *original* sidebearings
  366.                                 {
  367.                                                         %private glyphname
  368.                                             % <xWidth><yWidth><llxBBox>
  369.                                                         % <llyBBox><urxBBox><uryBBox>
  370.                                 currentdict /Metrics .knownget
  371.                                     {
  372.                                     7 index .knownget
  373.                                         {
  374.                                         dup type
  375.                                         dup /integertype eq exch /realtype eq or
  376.                                             {
  377.                                             % we've got new xWidth + set yWidth = 0
  378.                                             0                %y-width to 0
  379.                                             }
  380.                                         %else
  381.                                             {
  382.                                             % Array entry means sidebearings 2 adjust
  383.                                             aload
  384.                                             length 2 eq
  385.                                                 {
  386.                                                 % new X-width & sidebearing
  387.                                                 0                % y-width to 0
  388.                                                 }
  389.                                             %else
  390.                                                 {
  391.                                                 % new X/Y width & X/Y sidebearing
  392.                                                 pop            % ignore y-component
  393.                                                 }
  394.                                             ifelse
  395.                                             exch
  396.                                                         %private glyphname
  397.                                             % <xWidth><yWidth><llxBBox>
  398.                                                         % <llyBBox><urxBBox><uryBBox>
  399.                                                         % xwidth ywidth sidebearing
  400.  
  401.                                             % adjust bbox for new sidebearings
  402.                                             dup 7 index sub
  403.                                             dup 9 -1 roll add 8 1 roll
  404.                                             dup 7 -1 roll add 6 1 roll
  405.  
  406.                                             % note that sidebearings changed
  407.                                             10 1 roll
  408.                                             10 index exch true newxglyphsidebearing
  409.                                             }
  410.                                         ifelse
  411.                                         8 -2 roll pop pop 6 2 roll    % new x/y-width
  412.                                         }
  413.                                     if
  414.                                     }
  415.                                 if
  416.  
  417.                                 % Expand bbox by a 3 pixels, since filling an outline
  418.                                 % in Type 3 mode tends to fatten the finished product
  419.                                 % & shift it over.
  420.                                 %
  421.                                 3 3 idtransform 3 -1 roll add 3 1 roll add exch
  422.  
  423.                                 % If stroked font, also fatten by width of line.
  424.                                 %
  425.                                 currentdict /PaintType .knownget {0 ne}{false}ifelse
  426.                                     {
  427.                                     1.415 currentmiterlimit max 
  428.                                     currentdict /StrokeWidth .knownget {ceiling}{1}ifelse
  429.                                     mul 2 div
  430.                                         % llx lly urx ury exp
  431.                                     5 1 roll 4 index add
  432.                                         % exp llx lly urx ury+
  433.                                     5 1 roll 3 index add
  434.                                         % ury+ exp llx lly urx+
  435.                                     5 1 roll 2 index sub
  436.                                         % urx+ ury+ exp llx lly-
  437.                                     5 1 roll exch sub
  438.                                         % lly- urx+ ury+ llx-
  439.                                     4 1 roll
  440.                                     }
  441.                                 if
  442.                                 setcachedevice
  443.                                 false
  444.                                 }
  445.                             %else
  446.                                 {
  447.                                 % No glyph available
  448.                                 dup /fraction ne
  449.                                     {true}
  450.                                 %else
  451.                                     {
  452.                                     % substitute a slash for fraction bar
  453.                                     pop
  454.                                     % .. a "fraction" width is usually 90% of "0" advance
  455.                                     % .. we further cut the 90% into 3rds
  456.                                     dup /zero getglyphmetrics not
  457.                                         {/fraction true}        %private glyph
  458.                                     %else
  459.                                         {
  460.                                         pop pop pop pop pop    %private width
  461.                                         0.3 mul                    %private .3width0
  462.                                         exch /slash 2 copy
  463.                                         getglyphmetrics not
  464.                                             {3 -1 roll pop true} %private glyph
  465.                                         %else
  466.                                             {                %.3width0 private /fraction
  467.                                                             % <xW><yW><llx><lly><urx>
  468.                                                             % <ury>
  469.                                             9 -1 roll
  470.  
  471.                                             % new advance width is 30% of zero's wid
  472.                                             7 -1 roll
  473.                                             pop
  474.                                             6 1 roll        %private /fraction
  475.                                                             %.3wid yW llx lly urx ury
  476.  
  477.                                             % y-width is 0
  478.                                             5 -1 roll pop 0 5 1 roll
  479.  
  480.                                             % center slash bbox over nu advance box
  481.                                             % the rest of the slash is under/overhang
  482.                                             1 index 4 index     % slash's bbox width
  483.                                             sub
  484.                                             6 index sub
  485.                                             2 div floor
  486.                                             neg 4 index sub    % additional sidebearing
  487.                                             dup dup            %private /slash .3wid
  488.                                                                 % yW llx lly urx ury
  489.                                                                 % adjust adjust adjust
  490.                                             9 1 roll
  491.                                             6 -1 roll
  492.                                             add
  493.                                             5 1 roll
  494.                                             3 -1 roll
  495.                                             add
  496.                                             exch                %private /slash adjust
  497.                                                                 % .3wid yW llx' lly
  498.                                                                 % urx' ury
  499.  
  500.                                             % Do any /Metrics modifications needed
  501.                                             currentdict /Metrics .knownget
  502.                                                 {
  503.                                                 8 index .knownget
  504.                                                     {
  505.                                                     dup type
  506.                                                     dup /integertype eq exch /realtype eq or
  507.                                                         {
  508.                                                         % we've got new xWidth + set yWidth = 0
  509.                                                         0                %y-width to 0
  510.                                                         }
  511.                                                     %else
  512.                                                         {
  513.                                                         % Array entry means sidebearings 2 adjust
  514.                                                         aload
  515.                                                         length 2 eq
  516.                                                             {
  517.                                                             % new X-width & sidebearing
  518.                                                             0                % y-width to 0
  519.                                                             }
  520.                                                         %else
  521.                                                             {
  522.                                                             % new X/Y width & X/Y sidebearing
  523.                                                             pop            % ignore y-component s/brng
  524.                                                             }
  525.                                                         ifelse
  526.                                                             %private glyphname adjust
  527.                                                 % <xWidth><yWidth><llxBBox>
  528.                                                             % <llyBBox><urxBBox><uryBBox>
  529.                                                             % xwidth ywidth sidebearing
  530.  
  531.                                                         % adjust bbox for new sidebearings
  532.                                                         dup 7 index sub
  533.                                                         dup 9 -1 roll add 8 1 roll
  534.                                                         dup 7 -1 roll add 6 1 roll
  535.  
  536.                                                         % note that sidebearings changed
  537.                                                         11 1 roll
  538.                                                         11 index exch true
  539.                                                          newxglyphsidebearing
  540.                                                         }
  541.                                                     ifelse
  542.                                                     8 -2 roll pop pop 6 2 roll    % new x/y-width
  543.                                                     }
  544.                                                 if
  545.                                                 }
  546.                                             if
  547.  
  548.                                             % Expand bbox if stroked font
  549.                                             currentdict /PaintType .knownget {0 ne}{false}ifelse
  550.                                                 {
  551.                                                 1.415 currentmiterlimit max
  552.                                                 currentdict /StrokeWidth .knownget {ceiling}{1}ifelse
  553.                                                 mul 2 div
  554.                                                     % llx lly urx ury exp
  555.                                                 5 1 roll 4 index add
  556.                                                     % exp llx lly urx ury+
  557.                                                 5 1 roll 3 index add
  558.                                                     % ury+ exp llx lly urx+
  559.                                                 5 1 roll 2 index sub
  560.                                                     % urx+ ury+ exp llx lly-
  561.                                                 5 1 roll exch sub
  562.                                                     % lly- urx+ ury+ llx-
  563.                                                 4 1 roll
  564.                                                 }
  565.                                             if
  566.                                             % set cache & offset rendering to land
  567.                                             % in the right place
  568.                                             setcachedevice    %private /slash adjust
  569.                                             0 translate        % force -ve sidebearing
  570.  
  571.                                             false
  572.                                             }
  573.                                         ifelse
  574.                                         }
  575.                                     ifelse
  576.                                     }
  577.                                 ifelse
  578.                                 }
  579.                             ifelse
  580.  
  581.                             % Based on bool which preceding code left on stak
  582.                                 {pop pop}            % no glyph available, fail
  583.                             %else
  584.                                 {
  585.                                                     %private glyphname [sideadjust]
  586.                                 % Paint the glyph by enumerating & filling outline
  587.                                 %
  588.                                 % maybe hafta translate in lieu of newxglyphsidebearing
  589.                                 dup type /nametype ne
  590.                                     {
  591.                                     false newxglyphsidebearing
  592.                                     0 translate
  593.                                     }
  594.                                 if
  595.  
  596.                                 getglyphoutline
  597.                                     {
  598.                                     %mark [<drawingOpAndData>]... <opcnt>
  599.                                     % enumerate font outline into a path
  600.                                     %
  601.                                     % Points are rounded to quarter pixels to
  602.                                     % improve print quality.
  603.                                         {
  604.                                         dup 0 eq
  605.                                             {
  606.                                             pop closepath
  607.                                             transform
  608.                                             4 mul floor 4 div .125 add
  609.                                             exch
  610.                                             4 mul floor 4 div .125 add
  611.                                             exch
  612.                                             itransform
  613.                                             moveto
  614.                                             }
  615.                                         %else
  616.                                             {
  617.                                             dup 1 eq
  618.                                                 {
  619.                                                          pop
  620.                                                 transform
  621.                                                 4 mul floor 4 div .125 add
  622.                                                 exch
  623.                                                 4 mul floor 4 div .125 add
  624.                                                 exch
  625.                                                 itransform
  626.                                                 lineto
  627.                                                 }
  628.                                             %else
  629.                                                 {
  630.                                                 2 eq
  631.                                                     {
  632.                                                     transform
  633.                                                     4 mul floor 4 div .125 add
  634.                                                     exch
  635.                                                     4 mul floor 4 div .125 add
  636.                                                     exch
  637.                                                     itransform
  638.                                                     6 2 roll
  639.                                                     transform
  640.                                                     4 mul floor 4 div .125 add
  641.                                                     exch
  642.                                                     4 mul floor 4 div .125 add
  643.                                                     exch
  644.                                                     itransform
  645.                                                     6 2 roll
  646.                                                     transform
  647.                                                     4 mul floor 4 div .125 add
  648.                                                     exch
  649.                                                     4 mul floor 4 div .125 add
  650.                                                     exch
  651.                                                     itransform
  652.                                                     6 2 roll
  653.                                                     curveto
  654.                                                     }
  655.                                                 if
  656.                                                 }
  657.                                             ifelse
  658.                                             }
  659.                                         ifelse
  660.                                         }                                    
  661.                                     repeat
  662.                                     closepath
  663.                                     cleartomark
  664.  
  665.                                     % fill or stroke path, depending on PaintType
  666.                                     PaintType 2 eq
  667.                                         {StrokeWidth setlinewidth stroke}
  668.                                     %else
  669.                                         {fill}
  670.                                     ifelse
  671.                                     }
  672.                                 if
  673.                                 }
  674.                             ifelse
  675.                             }
  676.                         ifelse
  677.                     end
  678.                     }
  679.                 def %bind will make R/O
  680.  
  681.                 % Font's BuildChar proc just maps into a BuildGlyph
  682.                 % <fontdict><charcode>  BuildChar  --
  683.                 /BuildChar
  684.                     {
  685.                     1 index /Encoding get exch get
  686.                     BuildGlyph
  687.                     }
  688.                 def %bind will make R/O
  689.  
  690.                 currentdict                        %key dict
  691.             end
  692.             }
  693.         bind def
  694.  
  695.  
  696.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  697.         % This is the new findfont proc
  698.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  699.         /findfont                                        % replace findfont with new ver
  700.             {
  701.             FontDirectory 1 index known
  702.                 {
  703.                 __oldfindfont                            % cascade to old proc if already known
  704.                 __fixupstubfont
  705.                 }
  706.             %else
  707.                 % Must try to substitute req'd font with a platform font
  708.                 {
  709.                 dup type /stringtype eq {cvn}if    % if key is a string, convert to name
  710.                 dup getplatformfontmetrics not    %key [...] bool
  711.  
  712.                 dup
  713.                     % try making *known* font substitutions if font not known
  714.                     {
  715.                     pop
  716.                     __KnownFontSubstitutes 1 index .knownget
  717.                         {
  718.                         % known font substitution... do it
  719.                         %key fontname_or_array
  720.                         dup type /arraytype eq
  721.                             {aload pop}
  722.                         %else
  723.                             {1 1}
  724.                         ifelse                            %key substname scalex scaley
  725.                         3 -1 roll                        %key scalex scaley substname
  726.                             {findfont}                    %key scalex scaley font
  727.                         stopped
  728.                             {
  729.                             pop pop pop
  730.                             true
  731.                             }
  732.                         %else
  733.                             {
  734.                             dup maxlength dict
  735.                             begin
  736.                                     {
  737.                                     % copy found font into current dict w/mods
  738.                                     exch
  739.                                     % our definefont will put in its own UniqueID later
  740.                                     dup /FID eq 1 index /UniqueID eq or
  741.                                         {pop pop}
  742.                                     %else
  743.                                         {                        %key scalex scaley value key
  744.                                         dup /FontName eq
  745.                                             {exch pop 3 index exch}
  746.                                         if
  747.                                         dup /FontMatrix eq
  748.                                             {
  749.                                             exch
  750.                                             3 index 3 index 6 array scale
  751.                                             exch 6 array concatmatrix
  752.                                             readonly
  753.                                             exch
  754.                                             }
  755.                                         if
  756.                                         exch def
  757.                                         }
  758.                                     ifelse
  759.                                     }
  760.                                 forall                        %key scalex scaley
  761.                                 pop pop
  762.                                 currentdict                    %key dict
  763.                             end
  764.                             false
  765.                             }
  766.                         ifelse
  767.                         }
  768.                     %else
  769.                         {true}
  770.                     ifelse
  771.                     }
  772.                 if
  773.  
  774.                 dup
  775.                     % try substituting default font w/property copying if unsuccessful
  776.                     {
  777.                     pop
  778.                     % We go to some trouble to parse the font name and extract
  779.                     % properties from it.
  780.                     %
  781.                     % Look for properties in the font name.
  782.                    dup dup length string cvs
  783.                    0 exch
  784.                     [
  785.                      [(Bold) 1] [(Demi) 1]
  786.                      [(Italic) 2] [(Oblique) 2]
  787.                     ]
  788.                         {                                    %...bitmask namestr subarray
  789.                         2 copy 0 get search
  790.                             { pop pop pop 1 get 3 -1 roll or exch }
  791.                         %else
  792.                             { pop pop }
  793.                         ifelse
  794.                         }
  795.                     forall                                %...bitmask namestr
  796.                     pop                                    %...bitmask
  797.  
  798.                     % Substitute alternate font based on accumulated bit mask
  799.                     [/Courier /Courier-Bold /Courier-Oblique /Courier-BoldOblique]
  800.                     exch get
  801.                     getplatformfontmetrics not
  802.                     }
  803.                 if
  804.  
  805.                 dup
  806.                     % try substituting bottom-line default font if unsuccessful
  807.                     {pop /Courier getplatformfontmetrics not}
  808.                 if
  809.  
  810.                     {__oldfindfont}                    % no platform font: cascade to old one
  811.                 %else
  812.                     {
  813.                     dup type /dicttype ne
  814.                         {
  815.                         __buildfontfromplatformmetrics
  816.                         % Put a marker on dict stack to prevent 'our' definefont
  817.                         % from doing extra work twice. We must call a late-bound
  818.                         % 'definefont' to satisfy any potential later hookers.
  819.                         __DefiningFontDict begin
  820.                             /definefont load exec    %font
  821.                         end
  822.                         }
  823.                     %else
  824.                         {/definefont load exec}        %font
  825.                     ifelse
  826.                     }
  827.                 ifelse
  828.                 }
  829.             ifelse
  830.             }
  831.         def %don't bind
  832.  
  833.  
  834.  
  835.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  836.         % subroutine of findfont to reload PrivateStr of stub fonts
  837.         % <font> __fixupstubfont <font>
  838.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  839.         /__fixupstubfont
  840.             {
  841.             % If found font is one of our fake Type 3's & it has the PrivateStr
  842.             % nulled out, load it now.
  843.             false 1 index rcheck                    %font bool
  844.                 {
  845.                 1 index /Private .knownget        %font bool [dict] bool
  846.                     {
  847.                     dup rcheck                        %font bool dict bool
  848.                         {
  849.                         /PrivateStr .knownget    %font bool [str] bool
  850.                             {
  851.                             type /nulltype eq        %font bool bool
  852.                             exch pop                    %font bool
  853.                             }
  854.                         if
  855.                         }
  856.                     %else                                %font bool dict
  857.                         {pop}                            %font bool
  858.                     ifelse
  859.                     }
  860.                 if
  861.                 }
  862.             if                                            %font bool
  863.  
  864.                 {
  865.                 % This font is a stub for a pre-loaded fake Type 1.
  866.                 % Get the real PrivateStr by doing a getplatformfontmetrics,
  867.                 % then stick it into the font & force the UniqueID to
  868.                 % be associated with the new PrivateStr.
  869.                 dup /UniqueID known
  870.                          {
  871.                     dup begin
  872.                         Private begin
  873.                             currentglobal currentdict gcheck setglobal
  874.                             RequestedName getplatformfontmetrics
  875.                                 {
  876.                                 3 -1 roll /PrivateStr exch def
  877.                                 cleartomark
  878.                                 PrivateStr UniqueID true connectUIDtoprivate
  879.                                 }
  880.                             if
  881.                             setglobal
  882.                         end
  883.                     end
  884.                     }
  885.                 if
  886.                 }
  887.             if
  888.             }
  889.         def
  890.  
  891.  
  892.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  893.         % restore hook
  894.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  895.  
  896.         /__oldrestore /restore load def        % make a copy of old restore
  897.  
  898.         % This is the new restore proc
  899.         /restore                                        % replace find fontfont with new ver
  900.             {
  901.             __oldrestore                            % cascade to old proc first
  902.  
  903.             % push a mark on stack, then UIDs of all fonts still in FontDirectory
  904.             mark
  905.             FontDirectory
  906.                 {
  907.                 exch pop                                %...dict
  908.                 dup type /dicttype eq            %...dict bool
  909.                 1 index rcheck and
  910.                     {
  911.                     /UniqueID .knownget            % push UID of this font if present
  912.                     }
  913.                 %else
  914.                     {pop}
  915.                 ifelse
  916.                 }
  917.             forall                                    %mark [UID]...
  918.  
  919.             % release all UIDs not in FontDictionary            
  920.             releaseUIDsexcept
  921.             }
  922.         odef %odef will make R/O
  923.  
  924.  
  925.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  926.         % definefont hook
  927.         %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  928.  
  929.         /__olddefinefont /definefont load def    % make a copy of old definefont
  930.  
  931.         % This is the new definefont proc. We must hook this & invoke the
  932.         % connectUIDtoprivate (see comments in main proc header, above) if this
  933.         % font is one of our type3 type1's.
  934.         %
  935.         /definefont                                    % replace find fontfont with new ver
  936.             {                                            %key dict
  937.             /__DefiningFontMarker__ where        % don't do our job if called by findfont
  938.                 {pop}
  939.             %else
  940.                 {
  941.                 % is this one of our fake type3 type1's?
  942.                 %
  943.                 dup type /dicttype eq                %key dict bool
  944.                     {dup rcheck}
  945.                 %else
  946.                     {false}
  947.                 ifelse
  948.                     {
  949.                     dup /Private .knownget            %key dict [dict] bool
  950.                         {
  951.                         dup rcheck
  952.                             {true}
  953.                         %else
  954.                             {pop false}
  955.                         ifelse
  956.                         }
  957.                     %else
  958.                         {false}
  959.                     ifelse
  960.                         {
  961.                         dup /PrivateStr known         %key dict dict bool
  962.                             {
  963.                             1 index /UniqueID known        %key dict dict bool
  964.                                 {true}
  965.                             %else
  966.                                 {
  967.                                 % If there's no UID, try to assign one
  968.                                 %
  969.                                 1 index wcheck
  970.                                     {1 index /UniqueID newUID put true}
  971.                                 %else
  972.                                     {false}
  973.                                 ifelse
  974.                                 }
  975.                             ifelse
  976.                             }
  977.                         %else
  978.                             {false}
  979.                         ifelse
  980.                             {
  981.                             % This is one of our fake type3 type1's.
  982.                             % If there is a UniqueID, we must connect it to PrivateStr.
  983.                             %
  984.                             /PrivateStr get            %key dict str
  985.                             1 index /UniqueID get    %key dict str uid
  986.                                 {false connectUIDtoprivate}%key dict
  987.                             stopped                        % operands haven't been pre-validated
  988.                                 {pop pop pop}
  989.                             if
  990.                             }
  991.                         %else                                %key dict dict
  992.                             {pop}
  993.                         ifelse                            %key dict
  994.                         }
  995.                     if
  996.                     }
  997.                 if                                            %key dict
  998.                 }
  999.             ifelse
  1000.             __olddefinefont
  1001.             }
  1002.         odef %odef will make R/O
  1003.  
  1004.     end
  1005.     }
  1006. bind def
  1007.  
  1008. % Hook the findfont-related operators
  1009. %
  1010. replacefindfont
  1011.