%    Copyright (C) 1990 Aladdin Enterprises.  All rights reserved.
%    Distributed by Free Software Foundation, Inc.
%
% This file is part of Ghostscript.
%
% Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
% to anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing.  Refer
% to the Ghostscript General Public License for full details.
%
% Everyone is granted permission to copy, modify and redistribute
% Ghostscript, but only under the conditions described in the Ghostscript
% General Public License.  A copy of this license is supposed to have been
% given to you along with Ghostscript so you can know your rights and
% responsibilities.  It should be in a file named COPYING.  Among other
% things, the copyright notice and this notice must be preserved on all
% copies.

% Print the CharStrings and Subrs from a Type 1 font in symbolic form.

30 dict dup begin
  1 (hstem) def   3 (vstem) def   4 (vmoveto) def
  5 (rlineto) def   6 (hlineto) def   7 (vlineto) def
  8 (rrcurveto) def   9 (closepath) def   10 (callsubr) def
  11 (return) def   13 (hsbw) def   14 (endchar) def
  21 (rmoveto) def   22 (hmoveto) def   30 (vhcurveto) def
  31 (hvcurveto) def
  32 (dotsection) def   33 (vstem3) def   34 (hstem3) def
  38 (seac) def   39 (sbw) def   44 (div) def
  48 (callothersubr) def   49 (pop) def   65 (setcurrentpoint) def
end /csdict exch def

/printcs
 { 4330 exch dup length string type1decrypt exch pop
   dup /s exch def length /n exch def
   lenIV 1 sub
    { 1 add dup n ge { exit } if
      ( ) print dup s exch get
      dup 31 le
       { dup 12 eq { pop 1 add dup s exch get 32 add } if
         dup csdict exch known
	  { csdict exch get print }
	  { =only (?) print }
	 ifelse
       }
       { dup 247 lt
       	  { 139 sub }
	  { dup 255 eq
	     { pop 4 add (****)
	     }
	     { 247 sub {108 364 620 876 -108 -364 -620 -876} exch get
	       exch 1 add exch s 2 index get add
	     }
	    ifelse
	  }
	 ifelse =only
       }
      ifelse
    } loop
   pop (\n) print
 } bind def

/printfont
 { currentfont begin Private begin 10 dict begin
   CharStrings { exch ==only printcs } forall
   0 1 Subrs length 1 sub
    { dup =only
      Subrs exch get printcs
    } for
   end end end
 } bind def

/Times-Roman findfont setfont
printfont