%!PS-Adobe-3.0
% by ptspts@gmail.com at Sat Jun 13 10:59:04 CEST 2009
%
% Question: How to prevent the font from being embedded to the PDF in two
% parts in Ghostscript 8.54?
%
% Answer: Make sure all glyph names in /CharStrings are part of the /Encoding;
% or use a newer Ghostscript (such as GPL Ghostscript 8.61 (2007-11-21)).
%
% Demonstration:
%
% $ gs -v
% GPL Ghostscript 8.54 (2006-05-17)
% Copyright (C) 2006 artofcode LLC, Benicia, CA.  All rights reserved.
% $ gs -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite \
%   -sOutputFile=twob.pdf twob.ps.txt
% $ grep -a BaseFont twob.pdf
% <</BaseFont/CXGUNB+SFRM1000/FontDescriptor 11 0 R/ToUnicode 16 0 R/Type/Font
% <</BaseFont/CXGUNB+SFRM1000/FontDescriptor 9 0 R/Type/Font
% $ gs -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -dfill_encoding=true \
%   -sOutputFile=twob.pdf twob.ps.txt
% $ grep -a BaseFont twob.pdf
% <</BaseFont/IWRFRS+SFRM1000/FontDescriptor 9 0 R/ToUnicode 13 0 R/Type/Font

/APRKYW+SFRM1000 <<
  /FontType 1
  /Private <<
    /Subrs [
      (\236\264\365\225\354B4fD\355")
      (\233X\367\376z)
      (\233Y\305'#)
      (\033)
      (\234,\026#8iZ\206)
      0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
      0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
      (\351\370|\300g\024\000\323\215\313\317\n\013\036]K7\253\214)  % 77
      (\351\233\244\350\310\266\030e\352\317/\024\222\204\376x\030\234\326)  % 78
    ]
    /UniqueID 5124486
    /BlueValues []
    /BlueShift 7
    /password 5839
    /MinFeature {16 16}
    /StdHW [100]
    /ForceBold false
    /BlueScale 0.03963
    /lenIV 0
    /BlueFuzz 1
    /StdVW [50]
    /OtherSubrs [
      {} {} {}
      {systemdict /internaldict known not {pop 3} {1183615869 systemdict /internaldict get exec dup /startlock known {/startlock get exec} {dup /strtlck known {/strtlck get exec} {pop 3} ifelse} ifelse} ifelse}
    ]
  >>
  /FontInfo <<
    /version (0.3)
    /UnderlinePosition -160.5
    /UnderlineThickness 62.9
    /FullName (Computer Modern Roman)
    /FamilyName (Computer Modern)
    /Weight (Medium)
    /isFixedPitch false
    /ItalicAngle 0
  >>
  /FontName /APRKYW+SFRM1000
  /FontMatrix [0.001 0 0 0.001 0 0]
  /UniqueID 5124486
  /PaintType 0
  /FontBBox {-189 -321 1456 937}
  /CharStrings <<
    /.notdef (\233+\261X\267g!\354\273\357g)
    /P (\275\301'\233\022\177\003\340\363\201\334\237}\n\)\371\347#\342\)\025\272\243\232\222k\340\335/\203\220\352\237\374\345'\236\006\253\022\216q\313\205\275X\311g\334Ull\321!L\356A^\330%\037\336\261\214\304y4\247@\332\362\266$x\317IE\264\300\t\237a$\261o\352\347e56\212\013\334\373\237h\312g\226\272\351\001\212\261"\001Dw\311\314\352\035p\216\254z7,\352\0368\245|R\321\037\266r_\325\321\025\331\341\335\030A\310\352\241\304\270Oh\020G,<\203\263"\320 \374\321%\000\004\340\032\304:\247)
    /uhungarumlaut (\273]P\340\364\031tf\244b\b2\311AE\3602\221\235\325\212q\325\302.\322\373m\t\326\\\212P*\350=\235wk\314q\032\037c\347\035\200\303\237Wa\033\216#\302\003[\331\003\330\352\324\fu$\007\207:\206\002\207\026\343\2227\fk\3614R\226cX\227\233d\017\344j\220\247"\251\336\255\r\235\345\253\204\320O\344*\r\355\305\005S\307\240\224\327%@\333\226{\n<C\331\353e\217\321\025\004\246S<D>Yd\215\035?\233\231\223F\340DZ\001\341\3420\016\317\227\317\247\307x]F\377*E\253\363>\365y\343\201D\007\367B\2338\\\316C\213\273\207\316\221T\0349|\241QF\355\235|\210~\330\226\016\305\356qC\312\037\354\350\240-\277\t.c\305\013\263\372\2105\221\321W\311f\031)
  >>
  /fill_encoding where {pop fill_encoding} {false} ifelse {
    /Encoding [/P /uhungarumlaut 2 1 255 {pop/.notdef} for]
  } {
    /Encoding [/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright /parenleft /parenright /asterisk /plus /comma /hyphen /period /slash /zero /one /two /three /four /five /six /seven /eight /nine /colon /semicolon /less /equal /greater /question /at /A /B /C /D /E /F /G /H /I /J /K /L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore /quoteleft /a /b /c /d /e /f /g /h /i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar /braceright /asciitilde /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /exclamdown /cent /sterling /fraction /yen /florin /section /currency /quotesingle /quotedblleft /guillemotleft /guilsinglleft /guilsinglright /fi /fl /.notdef /endash /dagger /daggerdbl /periodcentered /.notdef /paragraph /bullet /quotesinglbase /quotedblbase /quotedblright /guillemotright /ellipsis /perthousand /.notdef /questiondown /.notdef /grave /acute /circumflex /tilde /macron /breve /dotaccent /dieresis /.notdef /ring /cedilla /.notdef /hungarumlaut /ogonek /caron /emdash /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /AE /.notdef /ordfeminine /.notdef /.notdef /.notdef /.notdef /Lslash /Oslash /OE /ordmasculine /.notdef /.notdef /.notdef /.notdef /.notdef /ae /.notdef /.notdef /.notdef /dotlessi /.notdef /.notdef /lslash /oslash /oe /germandbls /.notdef /.notdef /.notdef /.notdef]
  } ifelse
>> definefont pop

/APRKYW+SFRM1000 findfont setfont
10 10 moveto
/P glyphshow
/uhungarumlaut glyphshow
showpage
%%EOF