% ad-hoc-show.pro -- show non-type1 glyphs as filld-outlines
% 
% Copyright (C) Koji Nakamaru
%
% Author: Koji Nakamaru (nakamaru at gmail.com)
% Modified: Apr 30 2005
%   * changed the contact information.
% Created: Apr 14 2002
% Keywords: postscript, ghostscript, dvipdfm
%
% This file is part of dvipdfa.
%
% This program is free software; you can redistribute it and/or modify
% it under the terms of the GNU General Public License as published by
% the Free Software Foundation; either version 2, or (at your option)
% any later version.
%
% This program is distributed in the hope that it will be useful,
% but WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
% GNU General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with GNU Emacs; see the file COPYING.  If not, write to the
% Free Software Foundation, Inc., 59 Temple Place - Suite 330,
% Boston, MA 02111-1307, USA.
%

/setglobal where
 { pop currentglobal /setglobal load true setglobal }
 { { } }
ifelse

systemdict begin
/_show /show load def
/show {
  currentfont /FontType get 1 eq {
    _show
  }{
    dup stringwidth
    currentpoint exch 4 1 roll add 3 1 roll add exch
    3 -1 roll
    true charpath fill
    moveto
  } ifelse
} bind def
end

exec