32sample.ps

GhostScript的源代码

%!
% Type 32 font example, derived from Blue Book Program 21, on page 223

% Define the Type 32 font.

10 dict begin
/CIDFontName /Bitmapfont def
/CIDFontType 4 def
/CIDSystemInfo <<
  /Registry (Aladdin)
  /Ordering (unknown)
  /Supplement 0
>> def
/FontBBox [ [-0.16 -0.24 1.28 1.2] {25 mul} forall ] def
/FontMatrix [1 0 0 1 0 0] def
CIDFontName currentdict end /CIDFont defineresource
/BF exch def

% Add the glyphs.
    
/BitmapFontInit /ProcSet findresource begin
25 dict begin

/addchar {		% <char> <wx> <llx> <lly> <urx> <ury> <width> <height>
			%   <tx> <ty> <bitstring> addchar -
  {bitstring ty tx height width ury urx lly llx wx char} {exch def} forall
  [wx 25 mul   0
   llx 25 mul cvi   lly 25 mul cvi
   1 index width add   1 index height add
  ]
  bitstring   char .namestring 0 get   BF
  addglyph
} def

    /a   .64 .04 0 .56 .56 13 14 -1.5 13.5
       <0F983FD870786038C018C018C018C01
       8C018C018603870783FD80F98> addchar
    /b   .64 .04 0 .56 .76 13 19 -1.5 18.5
       <C000C000C000C000C000CF80DFE0F
       070E030C018C018C018C018C018C018
       E030F070DFE0CF80> addchar
    /c   .6 .04 0 .52 .56 12 14 -1.5 13.5
       <0F803FE070706030C000C000C000C00
       0C000C000603070703FE00F80> addchar
    /d  .64 .04 0 .56 .76 13 19 -1.5 18.5<001800180
      018001800180F983FD870786038C018C018
      C018C018C018C018603870783FD80F98> addchar
    /e   .64 .04 0 .56 .56 13 14 -1.5 13.5
       <0F803FE070706030C018C018FFF8FFF
       8C000C000603070703FE00F80> addchar
    /f   .32 0 0 .28 .76 7 19 -0.5 18.5 <0E1E3830
       30FEFE303030303030303030303030> addchar
    /g  .64 .04 -0.16 .56 .56 13 18 -1.5 13.5<0F983F
       D870786038C018C018C018C018C018C018
       603870783FD80F98601870303FF00FC0> addchar
    /h   .6 .04 0 .52 .76 12 19 -1.5 18.5
       <C000C000C000C000C000CF80DFE0F070
       E030C030C030C030C030C030C030C030C
       030C030C030> addchar
    /i   .2 .04 0 .12 .76 2 19 -1.5 18.5 <C0C0C00000
       C0C0C0C0C0C0C0C0C0C0C0C0C0C0> addchar
    /l  .2 .04 0 .12 .76 2 19 -1.5 18.5<C0C0C0C0C0
       C0C0C0C0C0C0C0C0C0C0C0C0C0C0> addchar
    /m   .92 .04 0 .84 .56 20 14 -1.5 13.5
       <CF0780DFCFE0F0F870E07030C06030
       C06030C06030C06030C06030C06030
       C06030C06030C06030C06030> addchar
    /n   .6 .04 0 .52 .56 12 14 -1.5 13.5
       <CF80DFE0F070E030C030C030C030C0
       30C030C030C030C030C030C030> addchar
    /o   .64 .04 0 .56 .56 13 14 -1.5 13.5
       <0F803FE070706030C018C018C018C0
       18C018C018603070703FE00F80> addchar
    /p  .64 .04 -.16 .56 .56 13 18 -1.5 13.5<CF80DF
      E0F070E030C018C018C018C018C018C018E
      030F070DFE0CF80C000C000C000C000> addchar
    /r   .32 .04 0 .28 .56 6 14 -1.5 13.5 <DCFCE0
       C0C0C0C0C0C0C0C0C0C0C0> addchar
    /s   .36 0 0 .32 .56 8 14 -0.5 13.5
       <3C7EC3C3C0E0781E0703C3C37E3C> addchar
    /t   .36 0 0 .32 .76 8 19 -0.5 18.5 <1818181818
       FFFF181818181818181818181818> addchar
    /u   .6 .04 0 .52 .56 12 14 -1.5 13.5
       <C030C030C030C030C030C030C030C0
       30C030C030C070E0F07FB01F30> addchar
    /v   .48 0 0 .44 .56 11 14 -0.5 13.5
       <C060C060C06060C060C060C0318031
       8031801B001B001B000E000E00> addchar
    /w   .88 0 0 .84 .56 21 14 -0.5 13.5
       <C07018C07018C0701860D83060D830
       60D830318C60318C60318C601B06C0
       1B06C01B06C00E03800E0380> addchar
    /y  .48 0 -.16 .44 .56 11 18 -.5 13.5<C060C060
       C06060C060C060C03180318031801B001B
       001F000600060006000C000C000C00> addchar
    (.)cvn  .28 .08 0 .16 .12 2 3 -2.5 2.5
       <C0C0C0>addchar
    (,)cvn  .32 0 -0.8 .2 .08 5 4 -0.5 1.5
       <183060C0>addchar
    ( )cvn  .24 0 0 0 0 1 1 0 0 <00>addchar

end		% temp dict
end		% BitmapFontInit ProcSet

% Create a CMap sufficient for the example.
/CIDInit /ProcSet findresource begin
12 dict begin
begincmap
/CIDSystemInfo <<
  /Registry (Aladdin)
  /Ordering (unknown)
  /Supplement 0
>> def
/CMapName /ASCIISubsetMap def
/CMapVersion 1 def
/CMapType 0 def
/UIDOffset 0 def
/XUID [107 2 0] def
/WMode 0 def
1 begincodespacerange
<00> <7f>
endcodespacerange
1 begincidrange
<01> <7e> 1
endcidrange
endcmap
CMapName currentdict /CMap defineresource pop
end
end

% Create a real font from the CID font.
/Bitfont
  /ASCIISubsetMap [ /Bitmapfont /CIDFont findresource ] composefont
pop

/Bitfont findfont 12 scalefont setfont
count ==
72 500 moveto (the tendency of the best) show
count ==
72 488 moveto (typography has been and) show
count ==
72 476 moveto (still should be in the path of) show
count ==
72 464 moveto (simplicity, legibility, and) show
count ==
72 452 moveto (orderly arrangement.) show
count ==
/Bitfont findfont 8 scalefont setfont
count ==
72 436 moveto (theodore low de vinne) show
count ==

showpage