%% Creating a Bitmap Font
%%                PostScript Language Tutorial and Cookbook

9 dict dup begin
 /FontType 3 def
 /FontMatrix [1 0 00 1 0 0] def
 /FontBBox [1.28 1.2 -0.16 -0.24] def

 /Encoding 256 array def
 0 1 255 {Encoding exch /.notdef put} bind for
 Encoding
 dup  97 /a put % dup  98 /b put
% dup  99 /c put dup 100 /d put
% dup 101 /e put dup 102 /f put
% dup 103 /g put dup 104 /h put
% dup 105 /i put dup 108 /l put
% dup 109 /m put dup 110 /n put
% dup 111 /o put dup 112 /p put
% dup 114 /r put dup 115 /s put
% dup 116 /t put dup 117 /u put
% dup 118 /v put dup 119 /w put
 dup 121 /y put dup 32 /space put
 dup 46 /period put 44 /comma put

 /BuildChar { 0 % Remplace dans la suite...
   begin
     /char exch def
     /fontdict exch def
     /charname fontdict /Encoding get char get def
     /charinfo fontdict /CharData get charname get def
     /wx charinfo 0 get def
     /charbbox charinfo 1 4 getinterval def
     wx 0 charbbox aload pop setcachedevice
     charinfo 5 get charinfo 6 get true
     fontdict /imagemaskmatrix get
     dup 4 charinfo 7 get put
     dup 5 charinfo 8 get put
     charinfo 9 1 getinterval cvx imagemask
     end
   } bind def

  /BuildChar load 0 6 dict put

  /imagemaskmatrix [25 0 0 -25 0 0] def

  /CharData 25 dict def
  CharData begin
    /a [.64 .04 0 .56 .56 13 14 -1.5 13.5
        <0F983FD870786038C018C018C018C018C018C018603870783FD80F98>] def
    /y [.48 0 -.16 .44 .56 11 18 -.5 13.5
        <C060C060C06060C060C0C03180318031801B
         001B001F000600060006000C000C000C00>] def
    /period [.28 .08 0 .16 .12 2 3 -2.5 2.5 <C0C0C0>] def
    /comma  [.32 0 -.08 .2 .08 5 4 -.5 1.5  <183060C0>] def
    /space [.24 0 0 0 0 1 1 0 0 <>] def
    /.notdef [.24 0 0 0 0 1 1 0 0 <>] def
    end
  /UniqueID 82613 def
  end

/Bitfont exch definefont pop

/Bitfont findfont 12 scalefont setfont

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